From 073214e78e2c85d284fddb9d0e9cfe96679f2e92 Mon Sep 17 00:00:00 2001 From: Julien Danjou Date: Wed, 22 Sep 2010 10:12:57 +0200 Subject: [PATCH] (gnus-html-wash-images): Use xml-substitute-special on images alt-text Signed-off-by: Julien Danjou --- lisp/ChangeLog | 5 +++++ lisp/gnus-html.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 45b3b2449..485bfe095 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-09-22 Julien Danjou + + * gnus-html.el (gnus-html-wash-images): Use xml-substitute-special on + images alt-text. + 2010-09-22 Katsumi Yamaoka * mailcap.el (mailcap-parse-mailcap, mailcap-parse-mimetypes) diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el index 34dbb4dd8..7f2cea040 100644 --- a/lisp/gnus-html.el +++ b/lisp/gnus-html.el @@ -35,6 +35,7 @@ (require 'mm-url) (require 'url) (require 'url-cache) +(require 'xml) (defcustom gnus-html-image-cache-ttl (days-to-time 7) "Time in seconds used to cache the image on disk." @@ -175,7 +176,7 @@ fit these criteria." ;; Normal, external URL. (let ((alt-text (when (string-match "\\(alt\\|title\\)=\"\\([^\"]+\\)" parameters) - (match-string 2 parameters)))) + (xml-substitute-special (match-string 2 parameters))))) (if (gnus-html-image-url-blocked-p url (if (buffer-live-p gnus-summary-buffer) -- 2.25.1