[Emacs-diffs] /srv/bzr/emacs/trunk r109200: nnimap.el (nnimap-get-responses): Don't remove, still used

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 109200
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Wed 2012-07-25 03:22:25 +0000
message:
  nnimap.el (nnimap-get-responses): Don't remove, still used
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2012-07-24 22:17:17 +0000
+++ b/lisp/gnus/ChangeLog       2012-07-25 03:22:25 +0000
@@ -1,3 +1,7 @@
+2012-07-25  Katsumi Yamaoka  <address@hidden>
+
+       * nnimap.el (nnimap-get-responses): Don't remove, still used.
+
 2012-07-24  Julien Danjou  <address@hidden>
 
        * mail-source.el (mail-source-movemail-and-remove): Remove, unused.

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2012-07-24 22:17:17 +0000
+++ b/lisp/gnus/nnimap.el       2012-07-25 03:22:25 +0000
@@ -1852,6 +1852,15 @@
          (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)