Mercurial > emacs

changeset 101550:28b036b7fc1c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-get-coding-system): Re-search rmail-mime-charset-pattern directly instead of using mail-fetch-field. Use coding-system-from-name.
author Kenichi Handa <handa@m17n.org>
date Tue, 27 Jan 2009 04:48:09 +0000
parents 52265841dbb2
children 75d377a936d1
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Tue Jan 27 04:39:53 2009 +0000
+++ b/lisp/mail/rmail.el	Tue Jan 27 04:48:09 2009 +0000
@@ -940,13 +940,10 @@
 (defun rmail-get-coding-system ()
   "Return a suitable coding system to use for the current mail message.
 The buffer is expected to be narrowed to just the header of the message."
-  (let ((content-type-header (mail-fetch-field "content-type"))
-	separator)
-    (save-excursion
-      (setq separator (search-forward "\n\n")))
-    (if (and content-type-header
-	     (string-match rmail-mime-charset-pattern content-type-header))
-	(substring content-type-header (match-beginning 1) (match-end 1))
+  (save-excursion
+    (goto-char (point-min))
+    (if (re-search-forward rmail-mime-charset-pattern)
+	(coding-system-from-name (match-string 1))
       'undecided)))
 
 ;;; Set up Rmail mode keymaps