From: Sergio Martínez <samf0xb58@gmail.com>
Date: Thu, 22 Mar 2012 20:28:31 +0000 (+0100)
Subject: Allow several IMAP inboxes
X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=08f0aef5376ea79e44de232503c5a3159fc2350d;hp=6910044663bc77081e08faabd6385cd34a9c8f5d

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 e8eb8261e..7fdc86c00 100644
--- 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 f326f134e..e94a98e9a 100644
--- 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)