[Emacs-diffs] /srv/bzr/emacs/trunk r99665: (mm-charset-to-coding-system): Use coding-system-from-name

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 99665 [merge]
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Mon 2010-03-15 01:39:53 +0000
message:
  (mm-charset-to-coding-system): Use coding-system-from-name
  if it is available.  (bug#5647)
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mm-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2010-02-26 04:45:41 +0000
+++ b/lisp/gnus/ChangeLog       2010-03-15 01:38:28 +0000
@@ -1,3 +1,8 @@
+2010-03-15  Katsumi Yamaoka  <address@hidden>
+
+       * mm-util.el (mm-charset-to-coding-system): Use coding-system-from-name
+       if it is available.  (bug#5647)
+
 2010-02-26  Glenn Morris  <address@hidden>
 
        * message.el (message-send-mail-function): Change the default, so that

=== modified file 'lisp/gnus/mm-util.el'
--- a/lisp/gnus/mm-util.el      2010-01-13 08:35:10 +0000
+++ b/lisp/gnus/mm-util.el      2010-03-15 01:38:28 +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))