changeset 110604:71a0913fcc8c

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 eff33de9a3ff
children 5bd3c6bdbcb0
files lisp/gnus/ChangeLog lisp/gnus/gnus-html.el lisp/gnus/nnimap.el
diffstat 3 files changed, 15 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Sep 27 13:53:44 2010 +0200
+++ b/lisp/gnus/ChangeLog	Mon Sep 27 12:22:22 2010 +0000
@@ -2,10 +2,20 @@
 
 	* nnmail.el (nnmail-fancy-expiry-targets): Fix typo in docstring.
 
+2010-09-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* nnimap.el (nnimap-request-accept-article): Message the error on
+	error.
+
 2010-09-27  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s).
 
+2010-09-26  Florian Ragwitz  <rafl@debian.org>
+
+	* gnus-html.el (gnus-html-wash-tags): Decode URL entities to avoid
+	handing broken links to browse-url.
+
 2010-09-26  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
 	* nndoc.el (nndoc-request-list): Return success always.
--- a/lisp/gnus/gnus-html.el	Mon Sep 27 13:53:44 2010 +0200
+++ b/lisp/gnus/gnus-html.el	Mon Sep 27 12:22:22 2010 +0000
@@ -286,7 +286,7 @@
 	  (setq url (match-string 1 parameters))
           (gnus-message 8 "gnus-html-wash-tags: fetching link URL %s" url)
 	  (gnus-article-add-button start end
-				   'browse-url url
+				   'browse-url (mm-url-decode-entities-string url)
 				   url)
 	  (let ((overlay (gnus-make-overlay start end)))
 	    (gnus-overlay-put overlay 'evaporate t)
--- 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))))))))