From 75d52912291507c02e862d9ff2d0d307c5170db0 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 11 Oct 2011 22:20:08 +0200 Subject: [PATCH] * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around `href' value. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/html2text.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) 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 + + * html2text.el (html2text-clean-anchor): Check for quotes around + `href' value. + 2011-10-11 Teodor Zlatanov * 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)))) ;; -- 2.39.2