mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-20 10:23:57 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Lars Ingebrigtsen 2011-01-30 01:46:32 +00:00 committed by Katsumi Yamaoka
parent 4ec88040a1
commit 228724bc63
2 changed files with 16 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/ChangeLog
View File

@ -1,3 +1,8 @@
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

20
lisp/gnus/nnimap.el
View File

@ -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