mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Katsumi Yamaoka 2012-07-25 03:22:25 +00:00
parent 3cc5a3a871
commit 9830626b31
2 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/gnus/ChangeLog
View File

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

9
lisp/gnus/nnimap.el
View File

@ -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)