Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
a2c9fe43
Commit
a2c9fe43
authored
Mar 29, 2010
by
Katsumi Yamaoka
Browse files
(mm-add-meta-html-tag): Fix regexp matching meta tag.
parent
2a793f7f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
1 deletion
+5
-1
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+4
-0
lisp/gnus/mm-decode.el
lisp/gnus/mm-decode.el
+1
-1
No files found.
lisp/gnus/ChangeLog
View file @
a2c9fe43
2010-03-29 Katsumi Yamaoka <yamaoka@jpl.org>
* mm-decode.el (mm-add-meta-html-tag): Fix regexp matching meta tag.
2010-03-27 Chong Yidong <cyd@stupidchicken.com>
* message.el (message-default-mail-headers):
...
...
lisp/gnus/mm-decode.el
View file @
a2c9fe43
...
...
@@ -1265,7 +1265,7 @@ 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 (match-beginning 2)
(string-match "
\\
`
html\\
'
" (match-string 1)))
;; Don't modify existing meta tag.
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment