[Emacs-diffs] /srv/bzr/emacs/trunk r106056: * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around

[Andreas Schwab]

------------------------------------------------------------
revno: 106056
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Tue 2011-10-11 22:20:08 +0200
message:
  * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around
  `href' value.
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/html2text.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-10-11 14:24:55 +0000
+++ b/lisp/gnus/ChangeLog       2011-10-11 20:20:08 +0000
@@ -1,3 +1,8 @@
+2011-10-11  Andreas Schwab  <address@hidden>
+
+       * html2text.el (html2text-clean-anchor): Check for quotes around
+       `href' value.
+
 2011-10-11  Teodor Zlatanov  <address@hidden>
 
        * spam.el (spam-check-BBDB): Simplify and support BBDB 3.x when

=== modified file 'lisp/gnus/html2text.el'
--- a/lisp/gnus/html2text.el    2011-10-09 16:51:38 +0000
+++ b/lisp/gnus/html2text.el    2011-10-11 20:20:08 +0000
@@ -358,7 +358,8 @@
     (delete-region p1 p4)
     (when href
       (goto-char p1)
-      (insert (substring href 1 -1))
+      (insert (if (string-match "\\`['\"].*['\"]\\'" href)
+                 (substring href 1 -1) href))
       (put-text-property p1 (point) 'face 'bold))))
 
 ;;