From 9d9ef8e860e4251b0369d845216333225392004a Mon Sep 17 00:00:00 2001 From: Katsumi Yamaoka Date: Mon, 29 Mar 2010 10:16:37 +0000 Subject: [PATCH] (mm-add-meta-html-tag): Fix regexp matching meta tag. --- lisp/gnus/ChangeLog | 4 ++++ lisp/gnus/mm-decode.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f2d6714dff4..6786dff9b59 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-29 Teodor Zlatanov * auth-source.el (auth-source-pick): Fix for non-secrets specifier. diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el index 8bc659f5184..58ba3ec7413 100644 --- a/lisp/gnus/mm-decode.el +++ b/lisp/gnus/mm-decode.el @@ -1273,7 +1273,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. -- 2.39.2