That works!
Only one minor problem. It works when I send mail from within my mail
group (i.e., nnml+private:other). It doesn't work when I send mail
from the highest level list of groups (whatever that's called). Is
there anything I can do to make it work from the top level?
My .emacs has these lines for archiving mail:
(setq gnus-message-archive-method '(nnml ""))
(setq gnus-message-archive-method
'(nnfolder "archive"
(nnfolder-inhibit-expiry t)
(nnfolder-active-file "~/News/sent-mail/active")
(nnfolder-directory "~/News/sent-mail/")))
But otherwise, it works great.
Thanks for everything!
Charles
P.S. I've decided that it's worth learning lisp in order to do things
like this myself. :-)
Sacha Chua <[EMAIL PROTECTED]> writes:
> Charles Hachten <[EMAIL PROTECTED]> writes:
>
>> But recently I started wondering whether it was possible to further
>> integrate planner with gnus such that when you send a message using
>> gnus, a link to the sent letter could be or would automatically be
>> listed on a planner day page. Is this possible? I'm not really a
>> programmer so I wouldn't be able to do it myself.
>
> Mmkay, this snippet seems to work for me...
>
> ;;;_+ Keep track of sent messages
>
> (defun sacha/planner-gnus-track-sent ()
> "Add this to `message-sent-hook' to keep track of messages sent on your
> daily page.
> Result: Adds it to * E-mail."
> ;; Grab the header
> (let (text)
> (setq text
> (planner-make-link
> (concat "gnus://" gnus-newsgroup-name "/"
> (planner-gnus-get-message-id))
> (concat (planner-get-name-from-address (planner-gnus-get-address
> "To"))
> ": "
> (message-fetch-field "Subject"))))
> (save-window-excursion
> (save-excursion
> (planner-goto-today)
> (planner-seek-to-first "E-mail sent")
> (insert " - " text "\n"))))
> nil)
>
> (add-hook 'message-mode-hook
> (lambda ()
> (add-hook 'message-sent-hook 'sacha/planner-gnus-track-sent)))
>
> --
> Sacha Chua <[EMAIL PROTECTED]> - http://sacha.free.net.ph/
> Technology evangelist wannabe and apprentice of all things
> University of Toronto - IBM Center for Advanced Studies, Toronto
> Interest: enterprise social computing (particularly bookmarking)
>
>
> _______________________________________________
> emacs-wiki-discuss mailing list
> [email protected]
> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
_______________________________________________
emacs-wiki-discuss mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss
