mail agenda similar to `diary-mail-entries'

mail agenda similar to `diary-mail-entries'

[Patrick Drechsler]

Hi,

is it possible to mail the agenda using a cron job similar to the
diary function `diary-mail-entries'?

Currently I have this shell script for mailing the diary entries to
myself:

--8<---------------cut here---------------start------------->8---
#!/bin/bash
## send diary entries by mail
emacs \
    --batch \
    --load ~/.emacs \
    --load ~/.gnus \
    --funcall diary-mail-entries \
    --eval "(setq diary-mail-days 7)"
--8<---------------cut here---------------end--------------->8---

It would be nice to also include the agenda in this setup.

Any ideas?

Cheers,

Patrick 
-- 
"You know the world is going crazy when the best rapper is a white
guy, the best golfer is a black guy, the Swiss hold the America's Cup,
France is accusing the US of arrogance, and Germany doesn't want to go
to war."          -- Charles Barkley

Re: mail agenda similar to `diary-mail-entries'

[Carsten Dominik]

Untested:

emacs -batch -l ~/.emacs -eval '(org-batch-agenda "a")' \
        | mail user@address.com


With (setq org-agenda-include-diary t), the diary will
be part of the mailing automatically.

- Carsten

On May 15, 2007, at 14:50, Patrick Drechsler wrote:

> Hi,
>
> is it possible to mail the agenda using a cron job similar to the
> diary function `diary-mail-entries'?
>
> Currently I have this shell script for mailing the diary entries to
> myself:
>
> --8<---------------cut here---------------start------------->8---
> #!/bin/bash
> ## send diary entries by mail
> emacs \
>     --batch \
>     --load ~/.emacs \
>     --load ~/.gnus \
>     --funcall diary-mail-entries \
>     --eval "(setq diary-mail-days 7)"
> --8<---------------cut here---------------end--------------->8---
>
> It would be nice to also include the agenda in this setup.
>
> Any ideas?
>
> Cheers,
>
> Patrick
> -- 
> "You know the world is going crazy when the best rapper is a white
> guy, the best golfer is a black guy, the Swiss hold the America's Cup,
> France is accusing the US of arrogance, and Germany doesn't want to go
> to war."          -- Charles Barkley
>
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>

--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477

Re: mail agenda similar to `diary-mail-entries'

[Patrick Drechsler]

Carsten Dominik <dominik@science.uva.nl> writes:

> Untested:
>
> emacs -batch -l ~/.emacs -eval '(org-batch-agenda "a")' \
>        | mail user@address.com
>
>
> With (setq org-agenda-include-diary t), the diary will
> be part of the mailing automatically.

I am very sorry for the late reply.

Thank you Carsten for your script!

The problem I am having with your approach is that `mail' requires a
full blown MTA. And since the diary script works fine with Emacs/Gnus
I was wondering if an approach along those lines might work, but to no
avail so far:

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)))

;;; Test 2
;;; ERROR:
;;; Buffer is read-only: #<buffer *Org Agenda*>
;; (defun org-mail ()
;;   "Send mail of agenda to myself."
;;   (compose-mail diary-mail-addr "agenda")
;;   (insert (org-batch-agenda "a"))
;;   (call-interactively (get mail-user-agent 'sendfunc)))

;;; Test 3:
;;; ERROR:
;;; Invalid header line (maybe a continuation line lacks initial whitespace)
;; (defun org-mail ()
;;   "Send mail of agenda to myself."
;;   (compose-mail diary-mail-addr "agenda")
;;   (insert (org-agenda-list "a"))
;;   (call-interactively (get mail-user-agent 'sendfunc)))
--8<---------------cut here---------------end--------------->8---

Maybe it is obvious to you or somebody else what I am doing wrong. I
have the impression that this might work somehow.

Thankful for any further input/ideas,

Patrick
-- 
OS's and GUI's come and go, only Emacs has lasting power.
(Per Abrahamsen)

Re: Re: mail agenda similar to `diary-mail-entries'

[Carsten Dominik]

On Jun 10, 2007, at 1:36, Patrick Drechsler wrote:

> Carsten Dominik <dominik@science.uva.nl> writes:
>
>> Untested:
>>
>> emacs -batch -l ~/.emacs -eval '(org-batch-agenda "a")' \
>>        | mail user@address.com
>>
>>
>> With (setq org-agenda-include-diary t), the diary will
>> be part of the mailing automatically.
>
> I am very sorry for the late reply.
>
> Thank you Carsten for your script!
>
> The problem I am having with your approach is that `mail' requires a
> full blown MTA.

what is an MTA?

> And since the diary script works fine with Emacs/Gnus
> I was wondering if an approach along those lines might work, but to no
> avail so far:
>
> 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))))


In the following two approach you are assuming that
(org-batch-agenda "a") would *return* the agenda.  It does
not.  Instead yu are trying to indert the return value
of this function (don't even know what it would be...)
into the agenda buffer, which is indeed read-only

>
> ;;; Test 2
> ;;; ERROR:
> ;;; Buffer is read-only: #<buffer *Org Agenda*>
> ;; (defun org-mail ()
> ;;   "Send mail of agenda to myself."
> ;;   (compose-mail diary-mail-addr "agenda")
> ;;   (insert (org-batch-agenda "a"))
> ;;   (call-interactively (get mail-user-agent 'sendfunc)))
>

Below the same problem as before...

> ;;; Test 3:
> ;;; ERROR:
> ;;; Invalid header line (maybe a continuation line lacks initial 
> whitespace)
> ;; (defun org-mail ()
> ;;   "Send mail of agenda to myself."
> ;;   (compose-mail diary-mail-addr "agenda")
> ;;   (insert (org-agenda-list "a"))
> ;;   (call-interactively (get mail-user-agent 'sendfunc)))
> --8<---------------cut here---------------end--------------->8---

Hope this helps.

- Carsten

Re: Re: mail agenda similar to `diary-mail-entries'

[Eddward DeVilla]

On 6/9/07, Carsten Dominik <dominik@science.uva.nl> wrote:
>
> On Jun 10, 2007, at 1:36, Patrick Drechsler wrote:
>
> > Carsten Dominik <dominik@science.uva.nl> writes:
> > The problem I am having with your approach is that `mail' requires a
> > full blown MTA.
>
> what is an MTA?

Mail Transport Agent.  It's a mail server.  Something like sendmail or qmail.

Edd

Re: mail agenda similar to `diary-mail-entries'

[Patrick Drechsler]

Carsten Dominik <dominik@science.uva.nl> writes:

> On Jun 10, 2007, at 1:36, Patrick Drechsler wrote:
>
>> Carsten Dominik <dominik@science.uva.nl> 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