Mercurial > emacs
comparison lisp/gnus/mm-decode.el @ 107571:2bfe0d4c1bc7
(mm-add-meta-html-tag): Fix regexp matching meta tag.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Mon, 29 Mar 2010 10:16:37 +0000 |
| parents | ecbe0edc4f69 |
| children | 1e23ce3cbd8b |
comparison
equal
deleted
inserted
replaced
| 107570:3ce6e8cd52f1 | 107571:2bfe0d4c1bc7 |
|---|---|
| 1271 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">" charset)) | 1271 <meta http-equiv=\"Content-Type\" content=\"text/html; charset=%s\">" charset)) |
| 1272 (let ((case-fold-search t)) | 1272 (let ((case-fold-search t)) |
| 1273 (goto-char (point-min)) | 1273 (goto-char (point-min)) |
| 1274 (if (re-search-forward "\ | 1274 (if (re-search-forward "\ |
| 1275 <meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\ | 1275 <meta\\s-+http-equiv=[\"']?content-type[\"']?\\s-+content=[\"']\ |
| 1276 text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+?\\)\\)?[\"'][^>]*>" nil t) | 1276 text/\\(\\sw+\\)\\(?:\;\\s-*charset=\\(.+\\)\\)?[\"'][^>]*>" nil t) |
| 1277 (if (and (match-beginning 2) | 1277 (if (and (match-beginning 2) |
| 1278 (string-match "\\`html\\'" (match-string 1))) | 1278 (string-match "\\`html\\'" (match-string 1))) |
| 1279 ;; Don't modify existing meta tag. | 1279 ;; Don't modify existing meta tag. |
| 1280 nil | 1280 nil |
| 1281 ;; Replace it with the one specifying charset. | 1281 ;; Replace it with the one specifying charset. |