# HG changeset patch
# User Katsumi Yamaoka <yamaoka@jpl.org>
# Date 1268617193 0
# Node ID e4adbc6451e93358e991f59345e5bf085b4480e5
# Parent  78dd74750b2b16e27069b1583f844e9b0e0ab6a2# Parent  a2823b84b7fb809da3a38937cd731ac14857cf4f
(mm-charset-to-coding-system): Use coding-system-from-name
if it is available.  (bug#5647)

diff -r 78dd74750b2b -r e4adbc6451e9 lisp/gnus/ChangeLog
--- a/lisp/gnus/ChangeLog	Sun Mar 14 23:28:52 2010 +0200
+++ b/lisp/gnus/ChangeLog	Mon Mar 15 01:39:53 2010 +0000
@@ -1,3 +1,8 @@
+2010-03-15  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* mm-util.el (mm-charset-to-coding-system): Use coding-system-from-name
+	if it is available.  (bug#5647)
+
 2010-02-26  Glenn Morris  <rgm@gnu.org>
 
 	* message.el (message-send-mail-function): Change the default, so that
diff -r 78dd74750b2b -r e4adbc6451e9 lisp/gnus/mm-util.el
--- a/lisp/gnus/mm-util.el	Sun Mar 14 23:28:52 2010 +0200
+++ b/lisp/gnus/mm-util.el	Mon Mar 15 01:39:53 2010 +0000
@@ -566,6 +566,9 @@
 ;;; 	 (eq charset (coding-system-get charset 'mime-charset))
 	 )
     charset)
+   ;; Use coding system Emacs knows.
+   ((and (fboundp 'coding-system-from-name)
+	 (coding-system-from-name charset)))
    ;; Eval expressions from `mm-charset-eval-alist'
    ((let* ((el (assq charset mm-charset-eval-alist))
 	   (cs (car el))