[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106056: * lisp/gnus/html2text.el (ht
From: |
Andreas Schwab |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106056: * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around |
Date: |
Tue, 11 Oct 2011 22:20:08 +0200 |
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
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))))
;;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106056: * lisp/gnus/html2text.el (html2text-clean-anchor): Check for quotes around,
Andreas Schwab <=