diff options
author | Dave Love <fx@gnu.org> | 2001-03-05 21:30:36 +0000 |
---|---|---|
committer | Dave Love <fx@gnu.org> | 2001-03-05 21:30:36 +0000 |
commit | c84a68e2fbc16ac7d0167033cbdd1860ce3d774a (patch) | |
tree | 80a874cacd286a301ea4e96aefd8689bf46138c6 | |
parent | ef8b1545b9cd5ab942d0cd639162853edd8c71fb (diff) | |
download | emacs-c84a68e2fbc16ac7d0167033cbdd1860ce3d774a.tar.gz |
(mm-mime-mule-charset-alist): Move it after definition of
mm-coding-system-p.
-rw-r--r-- | lisp/gnus/mm-util.el | 78 |
1 files changed, 39 insertions, 39 deletions
diff --git a/lisp/gnus/mm-util.el b/lisp/gnus/mm-util.el index a7a14f7ae01..1f9e822cebe 100644 --- a/lisp/gnus/mm-util.el +++ b/lisp/gnus/mm-util.el @@ -27,6 +27,45 @@ (eval-when-compile (require 'cl)) (require 'mail-prsvr) +(eval-and-compile + (mapcar + (lambda (elem) + (let ((nfunc (intern (format "mm-%s" (car elem))))) + (if (fboundp (car elem)) + (defalias nfunc (car elem)) + (defalias nfunc (cdr elem))))) + '((decode-coding-string . (lambda (s a) s)) + (encode-coding-string . (lambda (s a) s)) + (encode-coding-region . ignore) + (coding-system-list . ignore) + (decode-coding-region . ignore) + (char-int . identity) + (device-type . ignore) + (coding-system-equal . equal) + (annotationp . ignore) + (set-buffer-file-coding-system . ignore) + (make-char + . (lambda (charset int) + (int-to-char int))) + (read-coding-system + . (lambda (prompt) + "Prompt the user for a coding system." + (completing-read + prompt (mapcar (lambda (s) (list (symbol-name (car s)))) + mm-mime-mule-charset-alist)))) + (read-charset + . (lambda (prompt) + "Return a charset." + (intern + (completing-read + prompt + (mapcar (lambda (e) (list (symbol-name (car e)))) + mm-mime-mule-charset-alist) + nil t)))) + (string-as-unibyte . identity) + (multibyte-string-p . ignore) + ))) + (defvar mm-mime-mule-charset-alist `((us-ascii ascii) (iso-8859-1 latin-iso8859-1) @@ -80,45 +119,6 @@ "Alist of MIME-charset/MULE-charsets.") (eval-and-compile - (mapcar - (lambda (elem) - (let ((nfunc (intern (format "mm-%s" (car elem))))) - (if (fboundp (car elem)) - (defalias nfunc (car elem)) - (defalias nfunc (cdr elem))))) - '((decode-coding-string . (lambda (s a) s)) - (encode-coding-string . (lambda (s a) s)) - (encode-coding-region . ignore) - (coding-system-list . ignore) - (decode-coding-region . ignore) - (char-int . identity) - (device-type . ignore) - (coding-system-equal . equal) - (annotationp . ignore) - (set-buffer-file-coding-system . ignore) - (make-char - . (lambda (charset int) - (int-to-char int))) - (read-coding-system - . (lambda (prompt) - "Prompt the user for a coding system." - (completing-read - prompt (mapcar (lambda (s) (list (symbol-name (car s)))) - mm-mime-mule-charset-alist)))) - (read-charset - . (lambda (prompt) - "Return a charset." - (intern - (completing-read - prompt - (mapcar (lambda (e) (list (symbol-name (car e)))) - mm-mime-mule-charset-alist) - nil t)))) - (string-as-unibyte . identity) - (multibyte-string-p . ignore) - ))) - -(eval-and-compile (defalias 'mm-char-or-char-int-p (cond ((fboundp 'char-or-char-int-p) 'char-or-char-int-p) |