nnmail-fancy-expiry-target problems

[Austin Frank]

Hello!

I'm trying to set up an archiving system for my mail.  I'm having some
problems with expiry, and am hoping you all can help.

I have a number of mailboxes on a local imap server that I connect to
with nnimap.  The manual suggests using nnfolder for archives, so I'd
like to set up mail from my nnimap server to expire to an nnfolder
server at ~/Mail_Archive.

Even though all read mails are marked as expired as soon as I finish
them, I've never seen any mail moved to ~/Mail_Archive.  Trying to
explicitly expire articles in a group with C-c C-x seems to apply the
expiry flag to every appropriate mail in the group, but nothing gets
moved anywhere.  The output in the message buffer is the following:

    Expiring articles in nnimap:mail.misc...
    Expiring articles in nnimap:mail.misc
    gnus-agent-expire: Loading overview... Done
    gnus-agent-expire: Sorting entries... Done
    gnus-agent-expire: Merging entries... Done
    Expiry recovered 7 NOV entries, deleted 0 files, and freed 2.184570 KB.

Finally, sometimes when I quit a group I get the following message:

    Expiring articles...
    nnmail-fancy-expiry-target: Wrong type argument: stringp, nil

I'm using GNU Emacs 22.1.1 and No Gnus v0.7.  I've included a sanitized
version of the relevant (I think) configuration options below.  Please
let me know if there is more information I can provide.

Thanks in advance for any help.

/au

    ;; keep a copy of all outgoing mail.  Send it through the INBOX
    ;; since I've got filters set up to get it to the right places
    (setq gnus-message-archive-method
          '(nnimap ""
               (nnimap-server-address "localhost")))
    (setq
     gnus-message-archive-group "INBOX"
     gnus-gcc-mark-as-read t )

    ;; expiry settings
    (remove-hook 'gnus-mark-article-hook
                 'gnus-summary-mark-read-and-unread-as-read)
    (add-hook 'gnus-mark-article-hook
              'gnus-summary-mark-unread-as-read)
    
    (setq nnmail-expiry-wait-function          
          (lambda (group)
            (cond ((string= group "mail.personal")
                   90)
                  ((string= group "mail.academic")
                   90)
                  (t
                   6))))
    
    (setq nnfolder-directory "~/Mail_Archive"
          nnfolder-get-new-mail nil)
    
    (setq nnmail-expiry-target 'nnmail-fancy-expiry-target
          nnmail-fancy-expiry-targets
          '((to-from "group1" "nnfolder:group1")
            (to-from "boss1" "nnfolder:boss1")
            (to-from "boss2" "nnfolder:boss2")
            (to-from "my-private-address" "nnfolder:personal.%Y")
            (to-from ".*\\.edu" "nnfolder:academic.%Y.%b")
            ("from"  "my-other-addresses" "nnfolder:sent.%Y.%b")
            ("from" ".*" "nnfolder:archive-%Y.%b")))

-- 
Austin Frank
http://aufrank.net
GPG Public Key (D7398C2F): http://aufrank.net/personal.asc

pgpWwlYzdtYMt.pgp
Description: PGP signature