diff options
author | Romain Francoise <romain@orebokech.com> | 2006-04-19 09:55:40 +0000 |
---|---|---|
committer | Romain Francoise <romain@orebokech.com> | 2006-04-19 09:55:40 +0000 |
commit | f948ab6c52bc24c462d3fb91dfc73fd03921ba83 (patch) | |
tree | fcf9e6676f1fee27f226d5ba0dbba5a9446e5d29 /lisp/mail | |
parent | 0fea1d10293b4c6d35c1e55b68cd26e91445213c (diff) | |
download | emacs-f948ab6c52bc24c462d3fb91dfc73fd03921ba83.tar.gz |
(rmail-convert-to-babyl-format): Use second group from
`rmail-mime-charset-pattern'.
Diffstat (limited to 'lisp/mail')
-rw-r--r-- | lisp/mail/rmail.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index a400efc5cc8..faeec5abf02 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -1994,7 +1994,7 @@ is non-nil if the user has supplied the password interactively. (re-search-backward rmail-mime-charset-pattern start t)))) - (intern (downcase (match-string 1)))))) + (intern (downcase (match-string 2)))))) (rmail-decode-region start (point) mime-charset))))) ;; Add an X-Coding-System: header if we don't have one. (save-excursion @@ -2155,7 +2155,7 @@ is non-nil if the user has supplied the password interactively. (re-search-backward rmail-mime-charset-pattern start t)))) - (intern (downcase (match-string 1)))))) + (intern (downcase (match-string 2)))))) (rmail-decode-region start (point) mime-charset))) (save-excursion (goto-char start) |