Re: nnmail-spool-file should be a list...

[wmperry@aventail.com (William M. Perry)]

Stainless Steel Rat <ratinox@peorth.gweep.net> writes:

> -----BEGIN PGP SIGNED MESSAGE-----
> 
> >>>>> "WMP" == William M Perry <wmperry@aventail.com> writes:
> 
> WMP> (setq nnmail-spool-files '("po:wmperry@aventail.com"
> WMP>                            "po:wmperry@oz.net"
> WMP>                            "/var/spool/mail/wmperry"))
> 
> Here is a problem that a few have run into: pop3 cannot deal with local
> mail spool files; it is strictly a pop interface.  I expect the IMAP
> equivalent to have a similar problem.  On the other hand, movemail is kinda
> lame in a variety of ways but sometimes you need it.
> 
> To do things right, nnmail-spool-files should really be an alist, something
> like this, to ensure that the correct method is used to retrieve mail:
> 
> (setq nnmail-spool-methods
>       '(("po:wmperry@aventail.com" . 'nnmail-pop3-movemail) ; POP3
>         ("po:wmperry@oz.net"       . 'nnmail-imap-movemail) ; IMAP
>         ("/var/spool/mail/wmperry" . "movemail")            ; local spool file
>         ))

  Well, in case anyone is interested, this is what I ended up with as just
a quick hack.

(setq nnmail-movemail-program 'my-movemail
      nnmail-spool-file 'pop)

(defun my-movemail (inbox crashbox)
  (require 'vm)
  (if (getenv "MAIL")
      (vm-spool-move-mail (getenv "MAIL") crashbox))
  (vm-pop-move-mail "oz.net:110:pass:wmperry:*" crashbox)
  (vm-pop-move-mail "aventail.com:110:pass:wmperry:*" crashbox))

It at least works. :)  The pop support in VM is quite nice and gives
_great_ feedback during mail downloads, and lets you limit both the # of
messages, the total size of the messages, and the max size of a message
that it will download in a single retrieval session.  Pretty nice - we
should rip code out of it, or at least mimic the functionality.  I'd like
to eventually see VM + GNUS use the same POP3 backend.

-Bill P.