From f948ab6c52bc24c462d3fb91dfc73fd03921ba83 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Wed, 19 Apr 2006 09:55:40 +0000 Subject: [PATCH] (rmail-convert-to-babyl-format): Use second group from `rmail-mime-charset-pattern'. --- lisp/ChangeLog | 5 +++++ lisp/mail/rmail.el | 4 ++-- 2 files changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 22690ba2694..ed4d769906c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-04-19 Romain Francoise + + * mail/rmail.el (rmail-convert-to-babyl-format): Use second group + from `rmail-mime-charset-pattern'. + 2006-04-18 Dan Nicolaescu * progmodes/python.el (python-mode): Fix typo. 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) -- 2.39.5