Re: Using IMAP as POP, :mailbox taking a list?

[asjo@koldfront.dk (Adam Sjøgren)]

Andreas writes:

> Looks doable, see mail-source-fetch-imap.  You probably just need to add
> a loop over mailbox.

Yeah, I have got it working with this change:

--- a/lisp/mail-source.el
+++ b/lisp/mail-source.el
@@ -1090,10 +1090,13 @@ This only works when `display-time' is enabled."
       (if (and (imap-open server port stream authentication buf)
               (imap-authenticate
                user (or (cdr (assoc from mail-source-password-cache))
-                        password) buf)
-              (imap-mailbox-select mailbox nil buf))
+                        password) buf))
+          (let ((mailbox-list (if (listp mailbox) mailbox (list mailbox))))
+            (dolist (mailbox mailbox-list)
+              (when (imap-mailbox-select mailbox nil buf)
          (let ((coding-system-for-write mail-source-imap-file-coding-system)
                str)
+            (message (format "Fetching from %s..." mailbox))
            (with-temp-file mail-source-crash-box
              ;; Avoid converting 8-bit chars from inserted strings to
              ;; multibyte.
@@ -1128,8 +1131,7 @@ This only works when `display-time' is enabled."
               fetchflag nil buf))
            (if dontexpunge
                (imap-mailbox-unselect buf)
-             (imap-mailbox-close nil buf))
-           (imap-close buf))
+             (imap-mailbox-close nil buf))))))
        (imap-close buf)
        ;; We nix out the password in case the error
        ;; was because of a wrong password being given.


Now I just need to document and wrap it up nicely; I hope :-)

It is incredible how much writing about what you (I) can't figure out
motivates...


  Best regards,

   Adam

-- 
 "Vi er fanget i en kø                                        Adam Sjøgren
  I lys og nærkontakt.                                   asjo@koldfront.dk
  Hun sir at vi skal dø
  Det gad jeg ikke have sagt"