Default save dir for things with an Archive-name ?

Default save dir for things with an Archive-name ?

[Andrew J Cosgriff]

When I go to save, say, an FAQ, or something out of
alt.sources/comp.sources.*, Gnus defaults to wanting to save it as,
say, ~/News/computer-security/ssh-faq - what I want to do, however, is
to save it as something like ~/News/faq/computer-security/ssh-faq
instead.

I couldn't find anything in the manual when I did my 3-monthly
complete read of the gnus manual the other day...

Any ideas ?

Thanks,
 Andrew.
-- 
 - Andrew J. Cosgriff --------------------------------- PGP/MIME mail preferred
 * ajc@bing.wattle.id.au * http://netspace.net.au/~ajc * Phone : +61 14 856 122
    Hey, wait a minute!!  I want a divorce!!..  you're not Clint Eastwood!!

Re: Default save dir for things with an Archive-name ?

[Kees de Bruin]

>>>>> "ajc" == Andrew J Cosgriff <ajc@bing.wattle.id.au> writes:

 ajc> When I go to save, say, an FAQ, or something out of
 ajc> alt.sources/comp.sources.*, Gnus defaults to wanting to save it as,
 ajc> say, ~/News/computer-security/ssh-faq - what I want to do, however,
 ajc> is to save it as something like ~/News/faq/computer-security/ssh-faq
 ajc> instead.

Hello Andrew,

I have the following functions in my .gnus (adjusted for your situation):

| (defun kdb/faq-save-directory ()
|   "Determine the directory where I want my FAQ files."
|   (expand-file-name "faq/" gnus-article-save-directory))
|
| (defun kdb/gnus-article-archive-name (group)
|   "Return the first instance of an \"Archive-name\" in the current buffer.
| This is stolen from the Gnus code."
|   (let ((case-fold-search t))
|     (when (re-search-forward "archive-name: *\\([^ \n\t]+\\)[ \t]*$" nil t)
|       (nnheader-concat (kdb/faq-save-directory)
|                        (match-string 1)))))

Setting the variable `gnus-split-methods' using the above function, Gnus
will save your FAQ files in the correct directory. Be careful when setting
this variable. It may contain the function `gnus-article-archive-name'. It
should be removed from the list.

| (setq gnus-split-methods '((kdb/gnus-article-archive-name))

I hope this helps,

Kees.

-- 
Kees de Bruin                                     kees_de_bruin@tasking.com
Software Engineer                                    http://www.tasking.com

Tasking Software BV,  Plotterweg 31,  3821 BB  Amersfoort,  The Netherlands
Phone: +31-33-455 85 84     Fax: +31-33-455 10 05    CompuServe: GO TASKING
------------------[ Quality Development Tools Worldwide ]------------------