From 07dd2ea47f58d35b34581401a09d7d842a35fbdf Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 17 Sep 2013 10:21:24 +0000 Subject: [PATCH] lisp/gnus/mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag --- lisp/gnus/ChangeLog | 2 ++ lisp/gnus/mm-decode.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 99c2f85ee6c..18e0e3b25b1 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,7 @@ 2013-09-17 Katsumi Yamaoka + * mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag. + * message.el (message-display-completion-list): Abolish. (message-completion-in-region): Use display-completion-list. diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 28d930b55f7..07e66b30e58 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1415,7 +1415,7 @@ Return t if meta tag is added or replaced." (goto-char (point-min)) (if (re-search-forward "\ ]*>" nil t) +text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\([^\"'>]+\\)\\)?" nil t) (if (and (not force-charset) (match-beginning 2) (string-match "\\`html\\'" (match-string 1))) -- 2.39.2