[Emacs-diffs] /srv/bzr/emacs/trunk r101643: gnus-html.el (gnus-html-wash-tags): Decode URL entities to avoid handing broken links to browse-url.

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 101643
author: Gnus developers
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-09-27 12:22:22 +0000
message:
  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.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/gnus-html.el
  lisp/gnus/nnimap.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-09-27 11:53:44 +0000
+++ b/lisp/gnus/ChangeLog       2010-09-27 12:22:22 +0000
@@ -2,10 +2,20 @@
 
        * nnmail.el (nnmail-fancy-expiry-targets): Fix typo in docstring.
 
+2010-09-27  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * nnimap.el (nnimap-request-accept-article): Message the error on
+       error.
+
 2010-09-27  Katsumi Yamaoka  <address@hidden>
 
        * gnus-art.el (gnus-mime-delete-part): Fix Lisp type of byte(s).
 
+2010-09-26  Florian Ragwitz  <address@hidden>
+
+       * gnus-html.el (gnus-html-wash-tags): Decode URL entities to avoid
+       handing broken links to browse-url.
+
 2010-09-26  Lars Magne Ingebrigtsen  <address@hidden>
 
        * nndoc.el (nndoc-request-list): Return success always.

=== modified file 'lisp/gnus/gnus-html.el'
--- a/lisp/gnus/gnus-html.el    2010-09-26 23:01:31 +0000
+++ b/lisp/gnus/gnus-html.el    2010-09-27 12:22:22 +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)

=== modified file 'lisp/gnus/nnimap.el'
--- a/lisp/gnus/nnimap.el       2010-09-26 23:01:31 +0000
+++ b/lisp/gnus/nnimap.el       2010-09-27 12:22:22 +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))))))))