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

lisp/gnus/ChangeLog

+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.

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)