gnus-mail-save-name: folder based on sender?

gnus-mail-save-name: folder based on sender?

[lewst]

When saving mail messages with `o', I'd like it if Gnus could choose a
folder based on the username of the sender rather than the name of the
group.  For example, `o' on one of Lars' articles would prompt for
~/Mail/Archive/larsi

Has anyone tweaked `gnus-mail-save-name' to do this?


__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/

Re: gnus-mail-save-name: folder based on sender?

[ShengHuo ZHU]

lewst <lewst@yahoo.com> writes:

> When saving mail messages with `o', I'd like it if Gnus could choose a
> folder based on the username of the sender rather than the name of the
> group.  For example, `o' on one of Lars' articles would prompt for
> ~/Mail/Archive/larsi
> 
> Has anyone tweaked `gnus-mail-save-name' to do this?

Do you want this?

(defun gnus-sender-save-name (newsgroup headers &optional last-file)
  "Generate file name from sender."
  (let ((from (mail-header-from headers)))
    (expand-file-name
     (if (and from (string-match "\\([^ <]+\\)@" from))
	 (match-string 1 from)
       "misc")
     gnus-article-save-directory)))

ShengHuo

-- 
(setq gnus-posting-styles 
      '((".*" (signature (format "(setq gnus-posting-styles 
      '%S)" gnus-posting-styles)))))

Re: gnus-mail-save-name: folder based on sender?

[lewst]

ShengHuo ZHU <zsh@cs.rochester.edu> wrote:

> Do you want this?
> 
> (defun gnus-sender-save-name (newsgroup headers &optional last-file)
>   "Generate file name from sender."
>   (let ((from (mail-header-from headers)))
>     (expand-file-name
>      (if (and from (string-match "\\([^ <]+\\)@" from))
> 	 (match-string 1 from)
>        "misc")
>      gnus-article-save-directory)))
> 

This doesn't have any effect for me.  I added it to my .gnus,
and gnus still prompts for a folder based on the name of the
group.  I'm using Oort v0.01 under XEmacs 21.1.14.


__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/

Re: gnus-mail-save-name: folder based on sender?

[ShengHuo ZHU]

lewst <lewst@yahoo.com> writes:

> ShengHuo ZHU <zsh@cs.rochester.edu> wrote:
> 
> > Do you want this?
> > 
> > (defun gnus-sender-save-name (newsgroup headers &optional last-file)
> >   "Generate file name from sender."
> >   (let ((from (mail-header-from headers)))
> >     (expand-file-name
> >      (if (and from (string-match "\\([^ <]+\\)@" from))
> > 	 (match-string 1 from)
> >        "misc")
> >      gnus-article-save-directory)))
> > 
> 
> This doesn't have any effect for me.  I added it to my .gnus,
> and gnus still prompts for a folder based on the name of the
> group.  I'm using Oort v0.01 under XEmacs 21.1.14.

Did you add this or some other gnus-*-save-name variables?

    (setq gnus-mail-save-name 'gnus-sender-save-name)

ShengHuo (t y p i n g  w i t h  o n e  h a n d)

-- 
(setq gnus-posting-styles 
      '((".*" (signature (format "(setq gnus-posting-styles 
      '%S)" gnus-posting-styles)))))

Re: gnus-mail-save-name: folder based on sender?

[lewst]

Thanks, I got it working now!

__________________________________________________
Do You Yahoo!?
Get personalized email addresses from Yahoo! Mail - only $35 
a year!  http://personal.mail.yahoo.com/