Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

2000-12-19 ShengHuo ZHU <zsh@cs.rochester.edu>

	* mm-util.el (mm-charset-synonym-alist): Fix a typo.
  • Loading branch information...
commit d0f02175541c814ff6d7686564741e1a9f3b01fb 1 parent a3d16e9
ShengHuo ZHU authored
Showing with 11 additions and 7 deletions.
  1. +4 −0 lisp/gnus/ChangeLog
  2. +7 −7 lisp/gnus/mm-util.el
View
4 lisp/gnus/ChangeLog
@@ -1,3 +1,7 @@
+2000-12-19 ShengHuo ZHU <zsh@cs.rochester.edu>
+
+ * mm-util.el (mm-charset-synonym-alist): Fix a typo.
+
2000-12-18 Gerd Moellmann <gerd@gnu.org>
* *.xpm, *.pbm: Convert icons icons to size 24x24.
View
14 lisp/gnus/mm-util.el
@@ -121,21 +121,21 @@
(or mm-coding-system-list
(setq mm-coding-system-list (mm-coding-system-list))))
+(defun mm-coding-system-p (sym)
+ "Return non-nil if SYM is a coding system."
+ (or (and (fboundp 'coding-system-p) (coding-system-p sym))
+ (memq sym (mm-get-coding-system-list))))
+
(defvar mm-charset-synonym-alist
`((big5 . cn-big5)
(gb2312 . cn-gb-2312)
;; Windows-1252 is actually a superset of Latin-1. See also
;; `gnus-article-dumbquotes-map'.
- (unless (mm-coding-system-p 'windows-1252) ; should be defined eventually
- (windows-1252 . iso-8859-1))
+ ,(unless (mm-coding-system-p 'windows-1252) ; should be defined eventually
+ '(windows-1252 . iso-8859-1))
(x-ctext . ctext))
"A mapping from invalid charset names to the real charset names.")
-(defun mm-coding-system-p (sym)
- "Return non-nil if SYM is a coding system."
- (or (and (fboundp 'coding-system-p) (coding-system-p sym))
- (memq sym (mm-get-coding-system-list))))
-
(defvar mm-binary-coding-system
(cond
((mm-coding-system-p 'binary) 'binary)
Please sign in to comment.
Something went wrong with that request. Please try again.