Allow several IMAP inboxes

* nnimap.el (nnimap-request-scan): Allow `nnimap-inbox' to be a list of
inboxes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e8eb826..7fdc86c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-03-22  Sergio Martínez  <samf0xb58@gmail.com>  (tiny change)
+
+       * nnimap.el (nnimap-request-scan): Allow `nnimap-inbox' to be a list of
+       inboxes.
+
 2012-03-22  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * nnimap.el (nnimap-fetch-partial-articles): Minor doc string fixup.

diff --git a/lisp/nnimap.el b/lisp/nnimap.el
index f326f13..e94a98e 100644 (file)
--- a/lisp/nnimap.el
+++ b/lisp/nnimap.el
@@ -82,7 +82,8 @@ back on `network'.")
 
 (defvoo nnimap-inbox nil
   "The mail box where incoming mail arrives and should be split out of.
-For example, \"INBOX\".")
+This can be a string or a list of strings
+For example, \"INBOX\" or (\"INBOX\" \"SENT\").")
 
 (defvoo nnimap-split-methods nil
   "How mail is split.
@@ -1007,7 +1008,10 @@ textual parts.")
             nnimap-inbox
             nnimap-split-methods)
     (nnheader-message 7 "nnimap %s splitting mail..." server)
-    (nnimap-split-incoming-mail)
+    (if (listp nnimap-inbox)
+       (dolist (nnimap-inbox nnimap-inbox)
+         (nnimap-split-incoming-mail))
+      (nnimap-split-incoming-mail))
     (nnheader-message 7 "nnimap %s splitting mail...done" server)))
 
 (defun nnimap-marks-to-flags (marks)