mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-03 04:21:28 -08:00
Code Issues Projects Releases Wiki Activity

lisp/gnus/mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag

Browse source
This commit is contained in:
Katsumi Yamaoka 2013-09-17 10:21:24 +00:00
parent 5cf10af897
commit 07dd2ea47f
2 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/ChangeLog
View file

@ -1,5 +1,7 @@
2013-09-17 Katsumi Yamaoka <yamaoka@jpl.org>
* 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.

2
lisp/gnus/mm-decode.el
View file

@ -1415,7 +1415,7 @@ Return t if meta tag is added or replaced."
(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 (not force-charset)
(match-beginning 2)
(string-match "\\`html\\'" (match-string 1)))