From 77fbb40607286b8a7d2b293638f0e3b3488d617b Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Tue, 17 Sep 2013 10:20:07 +0000 Subject: [PATCH 1/1] mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag --- lisp/ChangeLog | 2 ++ lisp/mm-decode.el | 2 +- 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee77808e1..a9931273e 100644 --- a/lisp/ChangeLog +++ b/lisp/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/mm-decode.el b/lisp/mm-decode.el index 28d930b55..07e66b30e 100644 --- a/lisp/mm-decode.el +++ b/lisp/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.25.1