Saving according to time received

[N. Raghavendra]

I want to save some articles according to the sender and the time
received, i.e., each article should be saved to an mbox file of the
form ~/foo/20050420T213752, where FOO is the sender and
2005-04-20T21:37:52 is the local time of receipt of the message.

I started by trying to mimic `gnus-summary-save-article-mail' like
this:

(defun foo-summary-save-article-mail (&optional n)
  (interactive "P")
  (let ((gnus-default-article-saver 'foo-summary-save-in-mail)) 
    (gnus-summary-save-article n)))

;; Test version: `/tmp/foo' should be later replaced by a filename
;; constructed from the sender and received date.
(defun foo-summary-save-in-mail ()
  (gnus-summary-save-in-mail "/tmp/foo"))

However, when I do `M-x foo-summary-save-article-mail' in a summary
buffer, I get the error

  !byte-code: Wrong number of arguments: #[nil ... 
  [gnus-summary-save-in-mail "/tmp/foo"] 2], 1

Any suggestions would be appreciated.

TIA,
Raghavendra.

-- 
N. Raghavendra <raghu@mri.ernet.in> | http://www.retrotexts.net/
Harish-Chandra Research Institute   | http://www.mri.ernet.in/
See message headers for contact and OpenPGP information.