(rmail-mime-charset-pattern): Ignore format and delsp specs

while looking for charset.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 596e92eaa0e9972beb7322e016808f9c5f1787af..2adf8adf559be95d03bfd9aa0dfd895779c76dca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2006-04-09  Richard Stallman  <rms@gnu.org>
 
+       * mail/rmail.el (rmail-mime-charset-pattern): Ignore format and delsp
+       specs while looking for charset.
+
        * textmodes/picture.el (picture-mode-exit): Run picture-mode-exit-hook.
 
        * play/landmark.el (lm-font-lock-face-O, lm-font-lock-face-X):

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e0fecb4ff28018e1a2f0c56847102d1a37eca0de..a400efc5cc8486ef57bead59f87a0c84ae81e19c 100644 (file)
--- 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.")