From: Katsumi Yamaoka <yamaoka@jpl.org>
Date: Wed, 25 Jul 2012 03:22:25 +0000 (+0000)
Subject: nnimap.el (nnimap-get-responses): Don't remove, still used
X-Git-Tag: emacs-24.2.90~1088
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9830626b31fe96bd19bdb61e3dfd09f25a806560;p=emacs.git

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

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)