changeset 69907:e711374bee77

(rmail-mime-charset-pattern): Ignore format and delsp specs while looking for charset.
author Richard M. Stallman <rms@gnu.org>
date Mon, 10 Apr 2006 03:19:03 +0000
parents 82942f3b5f59
children c3699b2f4b6f
files lisp/mail/rmail.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Mon Apr 10 03:06:55 2006 +0000
+++ b/lisp/mail/rmail.el	Mon Apr 10 03:19:03 2006 +0000
@@ -623,7 +623,9 @@
 
 ;;;###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.")