diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/gnus/nnimap.el | 9 |
2 files changed, 13 insertions, 0 deletions
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) |