Carsten Dominik <[EMAIL PROTECTED]> writes: > On Jun 10, 2007, at 1:36, Patrick Drechsler wrote: > >> Carsten Dominik <[EMAIL PROTECTED]> writes:
[...] >> Here is the script I a trying to use: >> >> --8<---------------cut here---------------start------------->8--- >> emacs \ >> --batch \ >> --load ~/.emacs.d/init.el \ >> --load ~/.emacs.d/.gnus \ >> --funcall org-mail >> --8<---------------cut here---------------end--------------->8--- >> >> >> And I have tried this in my ~/.emacs (well, actually >> ~/.emacs.d/init.el, but that should not make a difference): >> >> --8<---------------cut here---------------start------------->8--- >> ;;; Test 1: this sends a message, but only replicates the header in the >> ;;; body. The actual body (the agenda) is not present. >> ;; (defun org-mail () >> ;; "Send mail of agenda to myself." >> ;; (org-batch-agenda "a") >> ;; (compose-mail diary-mail-addr "agenda") >> ;; (insert (buffer-string)) >> ;; (call-interactively (get mail-user-agent 'sendfunc))) > > > When you do `(insert (buffer-string))', then you are already in the > mail buffer, so indeed you are only duplocating the content of the > mail buffer. You need to do something like this: > > (defun org-mail () > "Send mail of agenda to myself." > (org-batch-agenda "a") > (let ((str (buffer-string))) > (compose-mail diary-mail-addr "agenda") > (insert str) > (call-interactively (get mail-user-agent 'sendfunc)))) Thank you very much Carsten! Works like a charm! I also appreciate you taking the time to explain why my Lisp snipplets didn't work. Cheers, Patrick -- "Statistics are like bikinis. What they reveal is suggestive, but what they conceal is vital" --Aaron Levenstein _______________________________________________ Emacs-orgmode mailing list Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
