Mercurial > emacs

diff lisp/gnus/nnimap.el @ 110604:71a0913fcc8c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gnus-html.el (gnus-html-wash-tags): Decode URL entities to avoid handing broken links to browse-url. nnimap.el (nnimap-request-accept-article): Message the error on error.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 27 Sep 2010 12:22:22 +0000
parents 415e87a42437
children 5bd3c6bdbcb0
line wrap: on
line diff
--- a/lisp/gnus/nnimap.el	Mon Sep 27 13:53:44 2010 +0200
+++ b/lisp/gnus/nnimap.el	Mon Sep 27 12:22:22 2010 +0000
@@ -772,7 +772,10 @@
 				 "\n"
 			       "\r\n"))
 	(let ((result (nnimap-get-response sequence)))
-	  (when result
+	  (if (not (car result))
+	      (progn
+		(message "%s" (nnheader-get-report-string 'nnimap))
+		nil)
 	    (cons group
 		  (nnimap-find-article-by-message-id group message-id))))))))