diff options
| author | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-07-25 03:22:25 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka <yamaoka@jpl.org> | 2012-07-25 03:22:25 +0000 |
| commit | 9830626b31fe96bd19bdb61e3dfd09f25a806560 (patch) | |
| tree | ef6b8aad07d92b8a88381c532496c3f8e998f1e6 /lisp/gnus/nnimap.el | |
| parent | 3cc5a3a8718bf0d9c06562a01fd86c22ff9840c0 (diff) | |
| download | emacs-9830626b31fe96bd19bdb61e3dfd09f25a806560.tar.gz | |
nnimap.el (nnimap-get-responses): Don't remove, still used
Diffstat (limited to 'lisp/gnus/nnimap.el')
| -rw-r--r-- | lisp/gnus/nnimap.el | 9 |
1 files changed, 9 insertions, 0 deletions
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) |