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

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 7278d427d414baa214ba0357888839655343f51e..dcdddc8cc102295009e4672874bcfb437fe6250d 100644 (file)
--- 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 a630c732b8165b0388ce53dc746e06ef6ab0f0c5..5126c25f66b614db9b9f19d0d3b51bed7b305490 100644 (file)
--- 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)