Mercurial > emacs
comparison lisp/gnus/mm-util.el @ 42493:84a510bb7ff6
2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>
* mm-util.el (mm-charset-to-coding-system): Don't setq charset.
| author | ShengHuo ZHU <zsh@cs.rochester.edu> |
|---|---|
| date | Thu, 03 Jan 2002 06:52:30 +0000 |
| parents | 0f4506820432 |
| children | 9b68dff3d385 |
comparison
equal
deleted
inserted
replaced
| 42492:a5636409941f | 42493:84a510bb7ff6 |
|---|---|
| 1 ;;; mm-util.el --- Utility functions for Mule and low level things | 1 ;;; mm-util.el --- Utility functions for Mule and low level things |
| 2 ;; Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc. | 2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
| 3 | 3 |
| 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | 4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> |
| 5 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> | 5 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> |
| 6 ;; This file is part of GNU Emacs. | 6 ;; This file is part of GNU Emacs. |
| 7 | 7 |
| 329 ;;; charset | 329 ;;; charset |
| 330 ;;; (eq charset (coding-system-get charset 'mime-charset)) | 330 ;;; (eq charset (coding-system-get charset 'mime-charset)) |
| 331 ) | 331 ) |
| 332 charset) | 332 charset) |
| 333 ;; Translate invalid charsets. | 333 ;; Translate invalid charsets. |
| 334 ((mm-coding-system-p (setq charset | 334 ((let ((cs (cdr (assq charset mm-charset-synonym-alist)))) |
| 335 (cdr (assq charset | 335 (and cs (mm-coding-system-p charset) cs))) |
| 336 mm-charset-synonym-alist)))) | |
| 337 charset) | |
| 338 ;; Last resort: search the coding system list for entries which | 336 ;; Last resort: search the coding system list for entries which |
| 339 ;; have the right mime-charset in case the canonical name isn't | 337 ;; have the right mime-charset in case the canonical name isn't |
| 340 ;; defined (though it should be). | 338 ;; defined (though it should be). |
| 341 ((let (cs) | 339 ((let (cs) |
| 342 ;; mm-get-coding-system-list returns a list of cs without lbt. | 340 ;; mm-get-coding-system-list returns a list of cs without lbt. |