[Emacs-diffs] /srv/bzr/emacs/trunk r104790: mm-util.el (mm-charset-to-coding-system): Recognise all ANSI.x3.4 variations as ASCII (bug#5458).

[Katsumi Yamaoka]

------------------------------------------------------------
revno: 104790
author: Lars Magne Ingebrigtsen <address@hidden>
committer: Katsumi Yamaoka <address@hidden>
branch nick: trunk
timestamp: Thu 2011-06-30 01:44:14 +0000
message:
  mm-util.el (mm-charset-to-coding-system): Recognise all ANSI.x3.4 variations 
as ASCII (bug#5458).
modified:
  lisp/gnus/ChangeLog
  lisp/gnus/mm-util.el

=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog       2011-06-30 01:27:16 +0000
+++ b/lisp/gnus/ChangeLog       2011-06-30 01:44:14 +0000
@@ -1,3 +1,8 @@
+2011-06-30  Lars Magne Ingebrigtsen  <address@hidden>
+
+       * mm-util.el (mm-charset-to-coding-system): Recognise all ANSI.x3.4
+       variations as ASCII (bug#5458).
+
 2011-06-30  Katsumi Yamaoka  <address@hidden>
 
        * nnmh.el (nnmh-request-list-1): Work on MS Windows.

=== modified file 'lisp/gnus/mm-util.el'
--- a/lisp/gnus/mm-util.el      2011-03-25 23:27:18 +0000
+++ b/lisp/gnus/mm-util.el      2011-06-30 01:44:14 +0000
@@ -550,7 +550,8 @@
         (let ((cs (cdr (assq charset mm-charset-override-alist))))
           (and cs (mm-coding-system-p cs) cs))))
    ;; ascii
-   ((eq charset 'us-ascii)
+   ((or (eq charset 'us-ascii)
+       (string-match "ansi.x3.4" (symbol-name charset)))
     'ascii)
    ;; Check to see whether we can handle this charset.  (This depends
    ;; on there being some coding system matching each `mime-charset'