Re: [emacs-wiki-discuss] Re: gnus sent messages

[Charles Hachten]

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 <address@hidden> writes:

> Charles Hachten <address@hidden> 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 <address@hidden> - 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
> address@hidden
> http://lists.nongnu.org/mailman/listinfo/emacs-wiki-discuss