Commit 228724bc authored by Lars Ingebrigtsen's avatar Lars Ingebrigtsen Committed by Katsumi Yamaoka
Browse files

nnimap.el (nnimap-request-head): Protect against not finding the article by Message-ID.

parent 4ec88040
2011-01-30 Lars Ingebrigtsen <larsi@gnus.org>
* nnimap.el (nnimap-request-head): Protect against not finding the
article by Message-ID.
2011-01-29 Lars Ingebrigtsen <larsi@gnus.org>
 
* gnus-art.el (article-update-date-lapsed): Try a better way to really
......
......@@ -519,15 +519,17 @@ textual parts.")
(with-current-buffer (nnimap-buffer)
(when (stringp article)
(setq article (nnimap-find-article-by-message-id group article)))
(nnimap-get-whole-article
article (format "UID FETCH %%d %s"
(nnimap-header-parameters)))
(let ((buffer (current-buffer)))
(with-current-buffer (or to-buffer nntp-server-buffer)
(erase-buffer)
(insert-buffer-substring buffer)
(nnheader-ms-strip-cr)
(cons group article))))))
(if (null article)
nil
(nnimap-get-whole-article
article (format "UID FETCH %%d %s"
(nnimap-header-parameters)))
(let ((buffer (current-buffer)))
(with-current-buffer (or to-buffer nntp-server-buffer)
(erase-buffer)
(insert-buffer-substring buffer)
(nnheader-ms-strip-cr)
(cons group article)))))))
(defun nnimap-get-whole-article (article &optional command)
(let ((result
......
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