changeset 107571:2bfe0d4c1bc7

(mm-add-meta-html-tag): Fix regexp matching meta tag.
author Katsumi Yamaoka <yamaoka@jpl.org>
date Mon, 29 Mar 2010 10:16:37 +0000
parents 3ce6e8cd52f1
children ed0efa62bd7d 54562a7c10fb
files lisp/gnus/ChangeLog lisp/gnus/mm-decode.el
diffstat 2 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog	Mon Mar 29 09:37:26 2010 +0000
+++ b/lisp/gnus/ChangeLog	Mon Mar 29 10:16:37 2010 +0000
@@ -1,3 +1,7 @@
+2010-03-29  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag.
+
 2010-03-29  Teodor Zlatanov  <tzz@lifelogs.com>
 
 	* auth-source.el (auth-source-pick): Fix for non-secrets specifier.
--- a/lisp/gnus/mm-decode.el	Mon Mar 29 09:37:26 2010 +0000
+++ b/lisp/gnus/mm-decode.el	Mon Mar 29 10:16:37 2010 +0000
@@ -1273,7 +1273,7 @@
 	(goto-char (point-min))
 	(if (re-search-forward "\
 <meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\
-text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+?\\)\\)?[\"'][^>]*>" nil t)
+text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+\\)\\)?[\"'][^>]*>" nil t)
 	    (if (and (match-beginning 2)
 		     (string-match "\\`html\\'" (match-string 1)))
 		;; Don't modify existing meta tag.