(rmail-mime-charset-pattern): Allow a TAB between "Content-Type" and

"text/plain".

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6093b1c907baf8f3c7ede073f89dad2185e4774e..1360dc3617c2ffc91300912e6ae32ea3dc799afa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,8 @@
        * mail/rmail.el (rmail-redecode-body): If the old encoding is
        `undecided', call find-coding-systems-region to find a proper
        non-trivial encoding.
+       (rmail-mime-charset-pattern): Allow a TAB between "Content-Type"
+       and "text/plain".
 
 2006-10-07  Kevin Ryde  <user42@zip.com.au>
 

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index b196d906f81da9aef9ef4d77210f50c9fb68e536..68dfd9f7ca47846a4806c4e93fd1910412cd87de 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -623,7 +623,7 @@ the variable `rmail-mime-feature'.")
 
 ;;;###autoload
 (defvar rmail-mime-charset-pattern
-  (concat "^content-type:[ ]*text/plain;"
+  (concat "^content-type:[ \t]*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.