nnimap.el (nnimap-get-responses): Don't remove, still used

2 files changed, 13 insertions, 0 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7278d427d41..dcdddc8cc10 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2012-07-25  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+        * nnimap.el (nnimap-get-responses): Don't remove, still used.
+
 2012-07-24  Julien Danjou  <julien@danjou.info>
 
         * mail-source.el (mail-source-movemail-and-remove): Remove, unused.
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index a630c732b81..5126c25f66b 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -1852,6 +1852,15 @@ textual parts.")
           (forward-line 1)))
       (buffer-substring (point) end))))
 
+(defun nnimap-get-responses (sequences)
+  (let (responses)
+    (dolist (sequence sequences)
+      (goto-char (point-min))
+      (when (re-search-forward (format "^%d " sequence) nil t)
+        (push (list sequence (nnimap-parse-response))
+              responses)))
+    responses))
+
 (defvar nnimap-incoming-split-list nil)
 
 (defun nnimap-fetch-inbox (articles)