mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

nnimap.el (nnimap-parse-copied-articles): Allow for "<foo> OK" outputs from the server.

Browse source 
gnus-art.el (gnus-article-prepare): Run gnus-article-prepare-hook later so that bbdb can hook in easier.
This commit is contained in:
Gnus developers 2011-02-19 09:45:07 +00:00 • committed by Katsumi Yamaoka
parent 2db8710ecf
commit 56e96bed34
3 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/nnimap.el
View file

@ -1823,7 +1823,7 @@ textual parts.")
(defun nnimap-parse-copied-articles (sequences)
(let (sequence copied range)
(goto-char (point-min))
(while (re-search-forward "^\\([0-9]+\\) OK " nil t)
(while (re-search-forward "^\\([0-9]+\\) OK\\b" nil t)
(setq sequence (string-to-number (match-string 1)))
(when (setq range (cadr (assq sequence sequences)))
(push (gnus-uncompress-range range) copied)))