Mercurial > emacs
diff lisp/gnus/mm-decode.el @ 107695:570e94788418
(mm-add-meta-html-tag): Fix regexp matching meta tag.
author | Katsumi Yamaoka <yamaoka@jpl.org> |
---|---|
date | Mon, 29 Mar 2010 10:16:23 +0000 |
parents | 1d1d5d9bd884 |
children | 376148b31b5e |
line wrap: on
line diff
--- a/lisp/gnus/mm-decode.el Sun Mar 28 21:52:24 2010 +0000 +++ b/lisp/gnus/mm-decode.el Mon Mar 29 10:16:23 2010 +0000 @@ -1265,7 +1265,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.