* gnus-mail-save-name: folder based on sender?
@ 2001-02-12 22:59 lewst
2001-02-13 5:12 ` ShengHuo ZHU
0 siblings, 1 reply; 5+ messages in thread
From: lewst @ 2001-02-12 22:59 UTC (permalink / raw)
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/
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: gnus-mail-save-name: folder based on sender?
2001-02-12 22:59 gnus-mail-save-name: folder based on sender? lewst
@ 2001-02-13 5:12 ` ShengHuo ZHU
2001-02-13 18:07 ` lewst
2001-02-13 19:06 ` lewst
0 siblings, 2 replies; 5+ messages in thread
From: ShengHuo ZHU @ 2001-02-13 5:12 UTC (permalink / raw)
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)))))
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: gnus-mail-save-name: folder based on sender?
2001-02-13 5:12 ` ShengHuo ZHU
@ 2001-02-13 18:07 ` lewst
2001-02-13 18:28 ` ShengHuo ZHU
2001-02-13 19:06 ` lewst
1 sibling, 1 reply; 5+ messages in thread
From: lewst @ 2001-02-13 18:07 UTC (permalink / raw)
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/
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: gnus-mail-save-name: folder based on sender?
2001-02-13 18:07 ` lewst
@ 2001-02-13 18:28 ` ShengHuo ZHU
0 siblings, 0 replies; 5+ messages in thread
From: ShengHuo ZHU @ 2001-02-13 18:28 UTC (permalink / raw)
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)))))
^ permalink raw reply [flat|nested] 5+ messages in thread
* Re: gnus-mail-save-name: folder based on sender?
2001-02-13 5:12 ` ShengHuo ZHU
2001-02-13 18:07 ` lewst
@ 2001-02-13 19:06 ` lewst
1 sibling, 0 replies; 5+ messages in thread
From: lewst @ 2001-02-13 19:06 UTC (permalink / raw)
Cc: ding
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/
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2001-02-13 19:06 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2001-02-12 22:59 gnus-mail-save-name: folder based on sender? lewst
2001-02-13 5:12 ` ShengHuo ZHU
2001-02-13 18:07 ` lewst
2001-02-13 18:28 ` ShengHuo ZHU
2001-02-13 19:06 ` lewst
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).