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.

3 files changed, 15 insertions, 2 deletions

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index c5b91e84a63..faca19a8b3e 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -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.
diff --git a/lisp/gnus/gnus-html.el b/lisp/gnus/gnus-html.el
index 587c28e974a..4bac528196d 100644
--- a/lisp/gnus/gnus-html.el
+++ b/lisp/gnus/gnus-html.el
@@ -286,7 +286,7 @@ Use ALT-TEXT for the image string."
           (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)
diff --git a/lisp/gnus/nnimap.el b/lisp/gnus/nnimap.el
index a99ee088330..c84bc6d5d78 100644
--- a/lisp/gnus/nnimap.el
+++ b/lisp/gnus/nnimap.el
@@ -772,7 +772,10 @@ some servers.")
                                  "\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))))))))