diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7f37775bc5d..0106e6212c5 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,7 @@ +2010-03-29 Katsumi Yamaoka + + * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag. + 2010-03-27 Chong Yidong * message.el (message-default-mail-headers): diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index a511253dddb..ac05362ec0c 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1265,7 +1265,7 @@ or replaced." (goto-char (point-min)) (if (re-search-forward "\ ]*>" 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.