From: Andreas Schwab <schwab@linux-m68k.org>
Date: Tue, 11 Oct 2011 20:20:08 +0000 (+0200)
Subject: * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around
X-Git-Tag: emacs-pretest-24.0.91~150
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=75d52912291507c02e862d9ff2d0d307c5170db0;p=emacs.git

* lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around
`href' value.
---

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index dbdaa5820f9..2fd624e819b 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,8 @@
+2011-10-11  Andreas Schwab  <schwab@linux-m68k.org>
+
+	* html2text.el (html2text-clean-anchor): Check for quotes around
+	`href' value.
+
 2011-10-11  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* spam.el (spam-check-BBDB): Simplify and support BBDB 3.x when
diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 7e699827141..8cfd9b9f903 100644
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -358,7 +358,8 @@ formatting, and then moved afterward.")
     (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))))
 
 ;;