diff options
| author | Richard M. Stallman <rms@gnu.org> | 2006-04-10 03:19:09 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2006-04-10 03:19:09 +0000 |
| commit | 4f07f2e8a5458758dcf2bfbdf9b0cf8c91a8572e (patch) | |
| tree | 3d2f329a026de9a1d53f6c754f5ccc2e16df44cc /lisp/mail | |
| parent | 8803c4f4ac3311a509545354b3203f6d8044cb42 (diff) | |
| download | emacs-4f07f2e8a5458758dcf2bfbdf9b0cf8c91a8572e.tar.gz | |
(rmail-mime-charset-pattern): Ignore format and delsp specs
while looking for charset.
Diffstat (limited to 'lisp/mail')
| -rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index e0fecb4ff28..a400efc5cc8 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -623,7 +623,9 @@ the variable `rmail-mime-feature'.") ;;;###autoload (defvar rmail-mime-charset-pattern - "^content-type:[ ]*text/plain;[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?" + (concat "^content-type:[ ]*text/plain;" + "\\(?:[ \t\n]*\\(format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" + "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?") "Regexp to match MIME-charset specification in a header of message. The first parenthesized expression should match the MIME-charset name.") |