Mercurial > emacs
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.