summaryrefslogtreecommitdiff
path: root/lisp/mail
diff options
context:
space:
mode:
authorRomain Francoise <romain@orebokech.com>2006-04-19 09:55:40 +0000
committerRomain Francoise <romain@orebokech.com>2006-04-19 09:55:40 +0000
commitf948ab6c52bc24c462d3fb91dfc73fd03921ba83 (patch)
treefcf9e6676f1fee27f226d5ba0dbba5a9446e5d29 /lisp/mail
parent0fea1d10293b4c6d35c1e55b68cd26e91445213c (diff)
downloademacs-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.el4
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)