diff options
| author | Eli Zaretskii | 2006-10-07 13:30:41 +0000 |
|---|---|---|
| committer | Eli Zaretskii | 2006-10-07 13:30:41 +0000 |
| commit | 0736daff192c99532171587b6f81ee0304a9e06b (patch) | |
| tree | ac59e8205fb87a38d40145b394e1d7cd7b3d42e3 /lisp | |
| parent | 4baf35c9a6447dc93b3e359c2a6dc02115dd2490 (diff) | |
| download | emacs-0736daff192c99532171587b6f81ee0304a9e06b.tar.gz emacs-0736daff192c99532171587b6f81ee0304a9e06b.zip | |
(rmail-mime-charset-pattern): Allow a TAB between "Content-Type" and
"text/plain".
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/mail/rmail.el | 2 |
2 files changed, 3 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6093b1c907b..1360dc3617c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -3,6 +3,8 @@ | |||
| 3 | * mail/rmail.el (rmail-redecode-body): If the old encoding is | 3 | * mail/rmail.el (rmail-redecode-body): If the old encoding is |
| 4 | `undecided', call find-coding-systems-region to find a proper | 4 | `undecided', call find-coding-systems-region to find a proper |
| 5 | non-trivial encoding. | 5 | non-trivial encoding. |
| 6 | (rmail-mime-charset-pattern): Allow a TAB between "Content-Type" | ||
| 7 | and "text/plain". | ||
| 6 | 8 | ||
| 7 | 2006-10-07 Kevin Ryde <user42@zip.com.au> | 9 | 2006-10-07 Kevin Ryde <user42@zip.com.au> |
| 8 | 10 | ||
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index b196d906f81..68dfd9f7ca4 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -623,7 +623,7 @@ the variable `rmail-mime-feature'.") | |||
| 623 | 623 | ||
| 624 | ;;;###autoload | 624 | ;;;###autoload |
| 625 | (defvar rmail-mime-charset-pattern | 625 | (defvar rmail-mime-charset-pattern |
| 626 | (concat "^content-type:[ ]*text/plain;" | 626 | (concat "^content-type:[ \t]*text/plain;" |
| 627 | "\\(?:[ \t\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" | 627 | "\\(?:[ \t\n]*\\(?:format\\|delsp\\)=\"?[-a-z0-9]+\"?;\\)*" |
| 628 | "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?") | 628 | "[ \t\n]*charset=\"?\\([^ \t\n\";]+\\)\"?") |
| 629 | "Regexp to match MIME-charset specification in a header of message. | 629 | "Regexp to match MIME-charset specification in a header of message. |