Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-57

[gnu-emacs] / lisp / mail / rmail.el

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 1be06fa7a3e754ca6a4b864537f10eebaeacaaaa..97ada1942bcf516d302c8d8049289b3ca7a1571e 100644 (file)
--- 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)