Commit 56e96bed authored by Gnus developers's avatar Gnus developers Committed by Katsumi Yamaoka

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

gnus-art.el (gnus-article-prepare): Run gnus-article-prepare-hook later so that bbdb can hook in easier.
parent 2db8710e
2011-02-19 Lars Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-parse-copied-articles): Allow for "<foo> OK"
outputs from the server.
2011-02-18 Antoine Levitt <antoine.levitt@gmail.com> (tiny change)
* gnus-art.el (gnus-article-prepare): Run gnus-article-prepare-hook
later so that bbdb can hook in easier.
2011-02-18 Lars Ingebrigtsen <larsi@gnus.org>
* auth-source.el (auth-source-search): Don't try to create credentials
......
......@@ -4637,6 +4637,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
(forward-line -1))
(set-window-point (get-buffer-window (current-buffer)) (point))
(gnus-configure-windows 'article)
(gnus-run-hooks 'gnus-article-prepare-hook)
t))))))
;;;###autoload
......@@ -4654,8 +4655,7 @@ If ALL-HEADERS is non-nil, no headers are hidden."
gnus-article-image-alist nil)
(gnus-run-hooks 'gnus-tmp-internal-hook)
(when gnus-display-mime-function
(funcall gnus-display-mime-function))
(gnus-run-hooks 'gnus-article-prepare-hook)))
(funcall gnus-display-mime-function))))
;;;
;;; Gnus Sticky Article Mode
......
......@@ -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)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment