Mercurial > emacs
changeset 71926:e5faa9959a89
Merge from gnus--rel--5.10
Patches applied:
* gnus--rel--5.10 (patch 115)
- Update from CVS
2006-07-16 NAKAJI Hiroyuki <nakaji@heimat.jp> (tiny change)
* lisp/gnus/mm-util.el (mm-charset-synonym-alist): Map windows-31j to cp932.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-353
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 16 Jul 2006 22:19:06 +0000 |
| parents | 1a011c71d7c3 |
| children | dca11242db4e |
| files | lisp/gnus/ChangeLog lisp/gnus/mm-util.el |
| diffstat | 2 files changed, 13 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Sun Jul 16 21:12:46 2006 +0000 +++ b/lisp/gnus/ChangeLog Sun Jul 16 22:19:06 2006 +0000 @@ -1,3 +1,7 @@ +2006-07-16 NAKAJI Hiroyuki <nakaji@heimat.jp> (tiny change) + + * mm-util.el (mm-charset-synonym-alist): Map windows-31j to cp932. + 2006-07-14 Andreas Seltenreich <uwi7@rz.uni-karlsruhe.de> * gnus-start.el (gnus-subscribe-options-newsgroup-method): Doc fix.
--- a/lisp/gnus/mm-util.el Sun Jul 16 21:12:46 2006 +0000 +++ b/lisp/gnus/mm-util.el Sun Jul 16 22:19:06 2006 +0000 @@ -204,19 +204,19 @@ `( ;; Not in XEmacs, but it's not a proper MIME charset anyhow. ,@(unless (mm-coding-system-p 'x-ctext) - '((x-ctext . ctext))) + '((x-ctext . ctext))) ;; ISO-8859-15 is very similar to ISO-8859-1. But it's _different_! ,@(unless (mm-coding-system-p 'iso-8859-15) - '((iso-8859-15 . iso-8859-1))) + '((iso-8859-15 . iso-8859-1))) ;; BIG-5HKSCS is similar to, but different than, BIG-5. ,@(unless (mm-coding-system-p 'big5-hkscs) '((big5-hkscs . big5))) ;; Windows-1252 is actually a superset of Latin-1. See also ;; `gnus-article-dumbquotes-map'. ,@(unless (mm-coding-system-p 'windows-1252) - (if (mm-coding-system-p 'cp1252) - '((windows-1252 . cp1252)) - '((windows-1252 . iso-8859-1)))) + (if (mm-coding-system-p 'cp1252) + '((windows-1252 . cp1252)) + '((windows-1252 . iso-8859-1)))) ;; Windows-1250 is a variant of Latin-2 heavily used by Microsoft ;; Outlook users in Czech republic. Use this to allow reading of their ;; e-mails. cp1250 should be defined by M-x codepage-setup. @@ -232,6 +232,10 @@ (if (mm-coding-system-p 'cp949) '((ks_c_5601-1987 . cp949)) '((ks_c_5601-1987 . euc-kr)))) + ;; Windows-31J is Windows Codepage 932. + ,@(if (and (not (mm-coding-system-p 'windows-31j)) + (mm-coding-system-p 'cp932)) + '((windows-31j . cp932))) ) "A mapping from unknown or invalid charset names to the real charset names.")