Mercurial > emacs
annotate lisp/gnus/mm-util.el @ 88660:e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
coding system to emacs-mule.
author | Dave Love <fx@gnu.org> |
---|---|
date | Mon, 27 May 2002 14:53:41 +0000 |
parents | 5f1dd0f5e06c |
children | 3e2e82acc047 |
rev | line source |
---|---|
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
1 ;;; mm-util.el --- Utility functions for Mule and low level things |
42493
84a510bb7ff6
2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42206
diff
changeset
|
2 ;; Copyright (C) 1998, 1999, 2000, 2001, 2002 Free Software Foundation, Inc. |
31717 | 3 |
4 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> | |
5 ;; MORIOKA Tomohiko <morioka@jaist.ac.jp> | |
6 ;; This file is part of GNU Emacs. | |
7 | |
8 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
9 ;; it under the terms of the GNU General Public License as published by | |
10 ;; the Free Software Foundation; either version 2, or (at your option) | |
11 ;; any later version. | |
12 | |
13 ;; GNU Emacs is distributed in the hope that it will be useful, | |
14 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
15 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
16 ;; GNU General Public License for more details. | |
17 | |
18 ;; You should have received a copy of the GNU General Public License | |
19 ;; along with GNU Emacs; see the file COPYING. If not, write to the | |
20 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
21 ;; Boston, MA 02111-1307, USA. | |
22 | |
23 ;;; Commentary: | |
24 | |
25 ;;; Code: | |
26 | |
88515 | 27 (eval-when-compile |
28 (require 'cl) | |
29 (defvar mm-mime-mule-charset-alist)) | |
31717 | 30 (require 'mail-prsvr) |
31 | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
32 (eval-and-compile |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
33 (mapcar |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
34 (lambda (elem) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
35 (let ((nfunc (intern (format "mm-%s" (car elem))))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
36 (if (fboundp (car elem)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
37 (defalias nfunc (car elem)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
38 (defalias nfunc (cdr elem))))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
39 '((decode-coding-string . (lambda (s a) s)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
40 (encode-coding-string . (lambda (s a) s)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
41 (encode-coding-region . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
42 (coding-system-list . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
43 (decode-coding-region . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
44 (char-int . identity) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
45 (device-type . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
46 (coding-system-equal . equal) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
47 (annotationp . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
48 (set-buffer-file-coding-system . ignore) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
49 (make-char |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
50 . (lambda (charset int) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
51 (int-to-char int))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
52 (read-charset |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
53 . (lambda (prompt) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
54 "Return a charset." |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
55 (intern |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
56 (completing-read |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
57 prompt |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
58 (mapcar (lambda (e) (list (symbol-name (car e)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
59 mm-mime-mule-charset-alist) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
60 nil t)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
61 (subst-char-in-string |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
62 . (lambda (from to string) ;; stolen (and renamed) from nnheader.el |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
63 "Replace characters in STRING from FROM to TO." |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
64 (let ((string (substring string 0)) ;Copy string. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
65 (len (length string)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
66 (idx 0)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
67 ;; Replace all occurrences of FROM with TO. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
68 (while (< idx len) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
69 (when (= (aref string idx) from) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
70 (aset string idx to)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
71 (setq idx (1+ idx))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
72 string))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
73 (string-as-unibyte . identity) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
74 (string-as-multibyte . identity) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
75 (multibyte-string-p . ignore)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
76 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
77 (eval-and-compile |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
78 (defalias 'mm-char-or-char-int-p |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
79 (cond |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
80 ((fboundp 'char-or-char-int-p) 'char-or-char-int-p) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
81 ((fboundp 'char-valid-p) 'char-valid-p) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
82 (t 'identity)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
83 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
84 (eval-and-compile |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
85 (defalias 'mm-read-coding-system |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
86 (cond |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
87 ((fboundp 'read-coding-system) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
88 (if (and (featurep 'xemacs) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
89 (<= (string-to-number emacs-version) 21.1)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
90 (lambda (prompt &optional default-coding-system) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
91 (read-coding-system prompt)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
92 'read-coding-system)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
93 (t (lambda (prompt &optional default-coding-system) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
94 "Prompt the user for a coding system." |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
95 (completing-read |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
96 prompt (mapcar (lambda (s) (list (symbol-name (car s)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
97 mm-mime-mule-charset-alist))))))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
98 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
99 (defvar mm-coding-system-list nil) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
100 (defun mm-get-coding-system-list () |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
101 "Get the coding system list." |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
102 (or mm-coding-system-list |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
103 (setq mm-coding-system-list (mm-coding-system-list)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
104 |
36557 | 105 (defun mm-coding-system-p (sym) |
106 "Return non-nil if SYM is a coding system." | |
107 (or (and (fboundp 'coding-system-p) (coding-system-p sym)) | |
108 (memq sym (mm-get-coding-system-list)))) | |
36556
8af75e618534
(mm-mime-mule-charset-alist): Move it after definition of
Dave Love <fx@gnu.org>
parents:
36539
diff
changeset
|
109 |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
110 (defvar mm-charset-synonym-alist |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
111 `( |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
112 ;; Perfectly fine? A valid MIME name, anyhow. |
40621
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
113 ,@(unless (mm-coding-system-p 'big5) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
114 '((big5 . cn-big5))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
115 ;; Not in XEmacs, but it's not a proper MIME charset anyhow. |
40621
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
116 ,@(unless (mm-coding-system-p 'x-ctext) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
117 '((x-ctext . ctext))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
118 ;; Apparently not defined in Emacs 20, but is a valid MIME name. |
40621
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
119 ,@(unless (mm-coding-system-p 'gb2312) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
120 '((gb2312 . cn-gb-2312))) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
121 ;; ISO-8859-15 is very similar to ISO-8859-1. |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
122 ,@(unless (mm-coding-system-p 'iso-8859-15) ; Emacs 21 defines it. |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
123 '((iso-8859-15 . iso-8859-1))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
124 ;; Windows-1252 is actually a superset of Latin-1. See also |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
125 ;; `gnus-article-dumbquotes-map'. |
40621
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
126 ,@(unless (mm-coding-system-p 'windows-1252) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
127 (if (mm-coding-system-p 'cp1252) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
128 '((windows-1252 . cp1252)) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
129 '((windows-1252 . iso-8859-1)))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
130 ;; Windows-1250 is a variant of Latin-2 heavily used by Microsoft |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
131 ;; Outlook users in Czech republic. Use this to allow reading of their |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
132 ;; e-mails. cp1250 should be defined by M-x codepage-setup. |
40621
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
133 ,@(if (and (not (mm-coding-system-p 'windows-1250)) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
134 (mm-coding-system-p 'cp1250)) |
11741b5b7d18
2001-11-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40542
diff
changeset
|
135 '((windows-1250 . cp1250))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
136 ) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
137 "A mapping from invalid charset names to the real charset names.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
138 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
139 (defvar mm-binary-coding-system |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
140 (cond |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
141 ((mm-coding-system-p 'binary) 'binary) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
142 ((mm-coding-system-p 'no-conversion) 'no-conversion) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
143 (t nil)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
144 "100% binary coding system.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
145 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
146 (defvar mm-text-coding-system |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
147 (or (if (memq system-type '(windows-nt ms-dos ms-windows)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
148 (and (mm-coding-system-p 'raw-text-dos) 'raw-text-dos) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
149 (and (mm-coding-system-p 'raw-text) 'raw-text)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
150 mm-binary-coding-system) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
151 "Text-safe coding system (For removing ^M).") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
152 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
153 (defvar mm-text-coding-system-for-write nil |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
154 "Text coding system for write.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
155 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
156 (defvar mm-auto-save-coding-system |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
157 (cond |
88660
e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
Dave Love <fx@gnu.org>
parents:
88515
diff
changeset
|
158 ((mm-coding-system-p 'utf-8-emacs) |
e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
Dave Love <fx@gnu.org>
parents:
88515
diff
changeset
|
159 (if (memq system-type '(windows-nt ms-dos ms-windows)) |
e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
Dave Love <fx@gnu.org>
parents:
88515
diff
changeset
|
160 (if (mm-coding-system-p 'utf-8-emacs-dos) |
e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
Dave Love <fx@gnu.org>
parents:
88515
diff
changeset
|
161 'utf-8-emacs-dos mm-binary-coding-system) |
e532f53e6da0
(mm-auto-save-coding-system): Prefer utf-8-emacs
Dave Love <fx@gnu.org>
parents:
88515
diff
changeset
|
162 'utf-8-emacs)) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
163 ((mm-coding-system-p 'emacs-mule) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
164 (if (memq system-type '(windows-nt ms-dos ms-windows)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
165 (if (mm-coding-system-p 'emacs-mule-dos) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
166 'emacs-mule-dos mm-binary-coding-system) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
167 'emacs-mule)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
168 ((mm-coding-system-p 'escape-quoted) 'escape-quoted) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
169 (t mm-binary-coding-system)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
170 "Coding system of auto save file.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
171 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
172 (defvar mm-universal-coding-system mm-auto-save-coding-system |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
173 "The universal coding system.") |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
174 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
175 ;; Fixme: some of the cars here aren't valid MIME charsets. That |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
176 ;; should only matter with XEmacs, though. |
31717 | 177 (defvar mm-mime-mule-charset-alist |
35793 | 178 `((us-ascii ascii) |
31717 | 179 (iso-8859-1 latin-iso8859-1) |
180 (iso-8859-2 latin-iso8859-2) | |
181 (iso-8859-3 latin-iso8859-3) | |
182 (iso-8859-4 latin-iso8859-4) | |
183 (iso-8859-5 cyrillic-iso8859-5) | |
184 ;; Non-mule (X)Emacs uses the last mule-charset for 8bit characters. | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
185 ;; The fake mule-charset, gnus-koi8-r, tells Gnus that the default |
31717 | 186 ;; charset is koi8-r, not iso-8859-5. |
187 (koi8-r cyrillic-iso8859-5 gnus-koi8-r) | |
188 (iso-8859-6 arabic-iso8859-6) | |
189 (iso-8859-7 greek-iso8859-7) | |
190 (iso-8859-8 hebrew-iso8859-8) | |
191 (iso-8859-9 latin-iso8859-9) | |
35148
a408e1d28e3d
(mm-mime-mule-charset-alist): Add Latin-{8,9}.
Dave Love <fx@gnu.org>
parents:
34724
diff
changeset
|
192 (iso-8859-14 latin-iso8859-14) |
a408e1d28e3d
(mm-mime-mule-charset-alist): Add Latin-{8,9}.
Dave Love <fx@gnu.org>
parents:
34724
diff
changeset
|
193 (iso-8859-15 latin-iso8859-15) |
31717 | 194 (viscii vietnamese-viscii-lower) |
195 (iso-2022-jp latin-jisx0201 japanese-jisx0208 japanese-jisx0208-1978) | |
196 (euc-kr korean-ksc5601) | |
35838
53eebdb81828
2001-02-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
35793
diff
changeset
|
197 (gb2312 chinese-gb2312) |
53eebdb81828
2001-02-01 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
35793
diff
changeset
|
198 (big5 chinese-big5-1 chinese-big5-2) |
31717 | 199 (tibetan tibetan) |
200 (thai-tis620 thai-tis620) | |
201 (iso-2022-7bit ethiopic arabic-1-column arabic-2-column) | |
202 (iso-2022-jp-2 latin-iso8859-1 greek-iso8859-7 | |
203 latin-jisx0201 japanese-jisx0208-1978 | |
204 chinese-gb2312 japanese-jisx0208 | |
205 korean-ksc5601 japanese-jisx0212 | |
206 katakana-jisx0201) | |
207 (iso-2022-int-1 latin-iso8859-1 greek-iso8859-7 | |
208 latin-jisx0201 japanese-jisx0208-1978 | |
209 chinese-gb2312 japanese-jisx0208 | |
210 korean-ksc5601 japanese-jisx0212 | |
211 chinese-cns11643-1 chinese-cns11643-2) | |
212 (iso-2022-int-1 latin-iso8859-1 latin-iso8859-2 | |
213 cyrillic-iso8859-5 greek-iso8859-7 | |
214 latin-jisx0201 japanese-jisx0208-1978 | |
215 chinese-gb2312 japanese-jisx0208 | |
216 korean-ksc5601 japanese-jisx0212 | |
217 chinese-cns11643-1 chinese-cns11643-2 | |
218 chinese-cns11643-3 chinese-cns11643-4 | |
219 chinese-cns11643-5 chinese-cns11643-6 | |
220 chinese-cns11643-7) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
221 ,(if (or (not (fboundp 'charsetp)) ;; non-Mule case |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
222 (charsetp 'unicode-a) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
223 (not (mm-coding-system-p 'mule-utf-8))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
224 '(utf-8 unicode-a unicode-b unicode-c unicode-d unicode-e) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
225 ;; If we have utf-8 we're in Mule 5+. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
226 (append '(utf-8) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
227 (delete 'ascii |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
228 (coding-system-get 'mule-utf-8 'safe-charsets))))) |
31717 | 229 "Alist of MIME-charset/MULE-charsets.") |
230 | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
231 ;; Correct by construction, but should be unnecessary: |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
232 ;; XEmacs hates it. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
233 (when (and (not (featurep 'xemacs)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
234 (fboundp 'coding-system-list) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
235 (fboundp 'sort-coding-systems)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
236 (setq mm-mime-mule-charset-alist |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
237 (apply |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
238 'nconc |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
239 (mapcar |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
240 (lambda (cs) |
88515 | 241 (when (and (or (coding-system-get cs :mime-charset) ; Emacs 22 |
242 (coding-system-get cs 'mime-charset)) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
243 (not (eq t (coding-system-get cs 'safe-charsets)))) |
88515 | 244 (list (cons (or (coding-system-get cs :mime-charset) |
245 (coding-system-get cs 'mime-charset)) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
246 (delq 'ascii |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
247 (coding-system-get cs 'safe-charsets)))))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
248 (sort-coding-systems (coding-system-list 'base-only)))))) |
31717 | 249 |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
250 (defvar mm-hack-charsets '(iso-8859-15 iso-2022-jp-2) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
251 "A list of special charsets. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
252 Valid elements include: |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
253 `iso-8859-15' convert ISO-8859-1, -9 to ISO-8859-15 if ISO-8859-15 exists. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
254 `iso-2022-jp-2' convert ISO-2022-jp to ISO-2022-jp-2 if ISO-2022-jp-2 exists." |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
255 ) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
256 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
257 (defvar mm-iso-8859-15-compatible |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
258 '((iso-8859-1 "\xA4\xA6\xA8\xB4\xB8\xBC\xBD\xBE") |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
259 (iso-8859-9 "\xA4\xA6\xA8\xB4\xB8\xBC\xBD\xBE\xD0\xDD\xDE\xF0\xFD\xFE")) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
260 "ISO-8859-15 exchangeable coding systems and inconvertible characters.") |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
261 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
262 (defvar mm-iso-8859-x-to-15-table |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
263 (and (fboundp 'coding-system-p) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
264 (mm-coding-system-p 'iso-8859-15) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
265 (mapcar |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
266 (lambda (cs) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
267 (if (mm-coding-system-p (car cs)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
268 (let ((c (string-to-char |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
269 (decode-coding-string "\341" (car cs))))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
270 (cons (char-charset c) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
271 (cons |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
272 (- (string-to-char |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
273 (decode-coding-string "\341" 'iso-8859-15)) c) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
274 (string-to-list (decode-coding-string (car (cdr cs)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
275 (car cs)))))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
276 '(gnus-charset 0))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
277 mm-iso-8859-15-compatible)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
278 "A table of the difference character between ISO-8859-X and ISO-8859-15.") |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
279 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
280 (defvar mm-coding-system-priorities nil |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
281 "Preferred coding systems for encoding outgoing mails. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
282 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
283 More than one suitable coding systems may be found for some texts. By |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
284 default, a coding system with the highest priority is used to encode |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
285 outgoing mails (see `sort-coding-systems'). If this variable is set, |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
286 it overrides the default priority. For example, Japanese users may |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
287 prefer iso-2022-jp to japanese-shift-jis: |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
288 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
289 \(setq mm-coding-system-priorities |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
290 '(iso-2022-jp iso-2022-jp-2 japanese-shift-jis utf-8)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
291 ") |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
292 |
42500
9b68dff3d385
* mm-util.el (mm-use-find-coding-systems-region): New variable.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42493
diff
changeset
|
293 (defvar mm-use-find-coding-systems-region |
9b68dff3d385
* mm-util.el (mm-use-find-coding-systems-region): New variable.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42493
diff
changeset
|
294 (fboundp 'find-coding-systems-region) |
9b68dff3d385
* mm-util.el (mm-use-find-coding-systems-region): New variable.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42493
diff
changeset
|
295 "Use `find-coding-systems-region' to find proper coding systems.") |
9b68dff3d385
* mm-util.el (mm-use-find-coding-systems-region): New variable.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42493
diff
changeset
|
296 |
31717 | 297 ;;; Internal variables: |
298 | |
299 ;;; Functions: | |
300 | |
301 (defun mm-mule-charset-to-mime-charset (charset) | |
33378 | 302 "Return the MIME charset corresponding to the given Mule CHARSET." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
303 (if (fboundp 'find-coding-systems-for-charsets) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
304 (let (mime) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
305 (dolist (cs (find-coding-systems-for-charsets (list charset))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
306 (unless mime |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
307 (when cs |
88515 | 308 (setq mime (or (coding-system-get cs :mime-charset) |
309 (coding-system-get cs 'mime-charset)))))) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
310 mime) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
311 (let ((alist mm-mime-mule-charset-alist) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
312 out) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
313 (while alist |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
314 (when (memq charset (cdar alist)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
315 (setq out (caar alist) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
316 alist nil)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
317 (pop alist)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
318 out))) |
31717 | 319 |
320 (defun mm-charset-to-coding-system (charset &optional lbt) | |
321 "Return coding-system corresponding to CHARSET. | |
322 CHARSET is a symbol naming a MIME charset. | |
323 If optional argument LBT (`unix', `dos' or `mac') is specified, it is | |
324 used as the line break code type of the coding system." | |
325 (when (stringp charset) | |
326 (setq charset (intern (downcase charset)))) | |
327 (when lbt | |
328 (setq charset (intern (format "%s-%s" charset lbt)))) | |
329 (cond | |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
330 ((null charset) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
331 charset) |
31717 | 332 ;; Running in a non-MULE environment. |
333 ((null (mm-get-coding-system-list)) | |
334 charset) | |
335 ;; ascii | |
336 ((eq charset 'us-ascii) | |
337 'ascii) | |
33378 | 338 ;; Check to see whether we can handle this charset. (This depends |
339 ;; on there being some coding system matching each `mime-charset' | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
340 ;; property defined, as there should be.) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
341 ((and (mm-coding-system-p charset) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
342 ;;; Doing this would potentially weed out incorrect charsets. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
343 ;;; charset |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
344 ;;; (eq charset (coding-system-get charset 'mime-charset)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
345 ) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
346 charset) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
347 ;; Translate invalid charsets. |
42493
84a510bb7ff6
2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42206
diff
changeset
|
348 ((let ((cs (cdr (assq charset mm-charset-synonym-alist)))) |
84a510bb7ff6
2002-01-03 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42206
diff
changeset
|
349 (and cs (mm-coding-system-p charset) cs))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
350 ;; Last resort: search the coding system list for entries which |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
351 ;; have the right mime-charset in case the canonical name isn't |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
352 ;; defined (though it should be). |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
353 ((let (cs) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
354 ;; mm-get-coding-system-list returns a list of cs without lbt. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
355 ;; Do we need -lbt? |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
356 (dolist (c (mm-get-coding-system-list)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
357 (if (and (null cs) |
88515 | 358 (eq charset (or (coding-system-get c :mime-charset) |
359 (coding-system-get c 'mime-charset)))) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
360 (setq cs c))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
361 cs)))) |
31717 | 362 |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
363 (defsubst mm-replace-chars-in-string (string from to) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
364 (mm-subst-char-in-string from to string)) |
31717 | 365 |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
366 (eval-and-compile |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
367 (defvar mm-emacs-mule (and (not (featurep 'xemacs)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
368 (boundp 'default-enable-multibyte-characters) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
369 default-enable-multibyte-characters |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
370 (fboundp 'set-buffer-multibyte)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
371 "Emacs mule.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
372 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
373 (defvar mm-mule4-p (and mm-emacs-mule |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
374 (fboundp 'charsetp) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
375 (not (charsetp 'eight-bit-control))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
376 "Mule version 4.") |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
377 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
378 (if mm-emacs-mule |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
379 (defun mm-enable-multibyte () |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
380 "Set the multibyte flag of the current buffer. |
33378 | 381 Only do this if the default value of `enable-multibyte-characters' is |
382 non-nil. This is a no-op in XEmacs." | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
383 (set-buffer-multibyte t)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
384 (defalias 'mm-enable-multibyte 'ignore)) |
31717 | 385 |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
386 (if mm-emacs-mule |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
387 (defun mm-disable-multibyte () |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
388 "Unset the multibyte flag of in the current buffer. |
33378 | 389 This is a no-op in XEmacs." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
390 (set-buffer-multibyte nil)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
391 (defalias 'mm-disable-multibyte 'ignore)) |
31717 | 392 |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
393 (if mm-mule4-p |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
394 (defun mm-enable-multibyte-mule4 () |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
395 "Enable multibyte in the current buffer. |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
396 Only used in Emacs Mule 4." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
397 (set-buffer-multibyte t)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
398 (defalias 'mm-enable-multibyte-mule4 'ignore)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
399 |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
400 (if mm-mule4-p |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
401 (defun mm-disable-multibyte-mule4 () |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
402 "Disable multibyte in the current buffer. |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
403 Only used in Emacs Mule 4." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
404 (set-buffer-multibyte nil)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
405 (defalias 'mm-disable-multibyte-mule4 'ignore))) |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
406 |
31717 | 407 (defun mm-preferred-coding-system (charset) |
408 ;; A typo in some Emacs versions. | |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
409 (or (get-charset-property charset 'preferred-coding-system) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
410 (get-charset-property charset 'prefered-coding-system))) |
31717 | 411 |
412 (defun mm-charset-after (&optional pos) | |
413 "Return charset of a character in current buffer at position POS. | |
414 If POS is nil, it defauls to the current point. | |
415 If POS is out of range, the value is nil. | |
416 If the charset is `composition', return the actual one." | |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
417 (let ((char (char-after pos)) charset) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
418 (if (< (mm-char-int char) 128) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
419 (setq charset 'ascii) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
420 ;; charset-after is fake in some Emacsen. |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
421 (setq charset (and (fboundp 'char-charset) (char-charset char))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
422 (if (eq charset 'composition) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
423 (let ((p (or pos (point)))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
424 (cadr (find-charset-region p (1+ p)))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
425 (if (and charset (not (memq charset '(ascii eight-bit-control |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
426 eight-bit-graphic)))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
427 charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
428 (or |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
429 mail-parse-mule-charset ;; cached mule-charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
430 (progn |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
431 (setq mail-parse-mule-charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
432 (and (boundp 'current-language-environment) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
433 (car (last |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
434 (assq 'charset |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
435 (assoc current-language-environment |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
436 language-info-alist)))))) |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
437 (if (or (not mail-parse-mule-charset) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
438 (eq mail-parse-mule-charset 'ascii)) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
439 (setq mail-parse-mule-charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
440 (or (car (last (assq mail-parse-charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
441 mm-mime-mule-charset-alist))) |
35793 | 442 ;; Fixme: don't fix that! |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
443 'latin-iso8859-1))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
444 mail-parse-mule-charset))))))) |
31717 | 445 |
446 (defun mm-mime-charset (charset) | |
33378 | 447 "Return the MIME charset corresponding to the given Mule CHARSET." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
448 (if (eq charset 'unknown) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
449 (error "The message contains non-printable characters, please use attachment")) |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
450 (if (and (fboundp 'coding-system-get) (fboundp 'get-charset-property)) |
31717 | 451 ;; This exists in Emacs 20. |
452 (or | |
453 (and (mm-preferred-coding-system charset) | |
88515 | 454 (or (coding-system-get |
455 (mm-preferred-coding-system charset) :mime-charset) | |
456 (coding-system-get | |
457 (mm-preferred-coding-system charset) 'mime-charset))) | |
31717 | 458 (and (eq charset 'ascii) |
459 'us-ascii) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
460 (mm-preferred-coding-system charset) |
31717 | 461 (mm-mule-charset-to-mime-charset charset)) |
462 ;; This is for XEmacs. | |
463 (mm-mule-charset-to-mime-charset charset))) | |
464 | |
465 (defun mm-delete-duplicates (list) | |
466 "Simple substitute for CL `delete-duplicates', testing with `equal'." | |
467 (let (result head) | |
468 (while list | |
469 (setq head (car list)) | |
470 (setq list (delete head list)) | |
471 (setq result (cons head result))) | |
472 (nreverse result))) | |
473 | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
474 ;; It's not clear whether this is supposed to mean the global or local |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
475 ;; setting. I think it's used inconsistently. -- fx |
31717 | 476 (defsubst mm-multibyte-p () |
477 "Say whether multibyte is enabled." | |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
478 (if (and (not (featurep 'xemacs)) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
479 (boundp 'enable-multibyte-characters)) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
480 enable-multibyte-characters |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
481 (featurep 'mule))) |
31717 | 482 |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
483 (defun mm-iso-8859-x-to-15-region (&optional b e) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
484 (if (fboundp 'char-charset) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
485 (let (charset item c inconvertible) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
486 (save-restriction |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
487 (if e (narrow-to-region b e)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
488 (goto-char (point-min)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
489 (skip-chars-forward "\0-\177") |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
490 (while (not (eobp)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
491 (cond |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
492 ((not (setq item (assq (char-charset (setq c (char-after))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
493 mm-iso-8859-x-to-15-table))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
494 (forward-char)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
495 ((memq c (cdr (cdr item))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
496 (setq inconvertible t) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
497 (forward-char)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
498 (t |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
499 (insert (prog1 (+ c (car (cdr item))) (delete-char 1)))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
500 (skip-chars-forward "\0-\177")))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
501 (not inconvertible)))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
502 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
503 (defun mm-sort-coding-systems-predicate (a b) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
504 (> (length (memq a mm-coding-system-priorities)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
505 (length (memq b mm-coding-system-priorities)))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
506 |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
507 (defun mm-find-mime-charset-region (b e &optional hack-charsets) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
508 "Return the MIME charsets needed to encode the region between B and E. |
42206 | 509 nil means ASCII, a single-element list represents an appropriate MIME |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
510 charset, and a longer list means no appropriate charset." |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
511 (let (charsets) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
512 ;; The return possibilities of this function are a mess... |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
513 (or (and (mm-multibyte-p) |
42500
9b68dff3d385
* mm-util.el (mm-use-find-coding-systems-region): New variable.
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
42493
diff
changeset
|
514 mm-use-find-coding-systems-region |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
515 ;; Find the mime-charset of the most preferred coding |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
516 ;; system that has one. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
517 (let ((systems (find-coding-systems-region b e))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
518 (when mm-coding-system-priorities |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
519 (setq systems |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
520 (sort systems 'mm-sort-coding-systems-predicate))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
521 ;; Fixme: The `mime-charset' (`x-ctext') of `compound-text' |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
522 ;; is not in the IANA list. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
523 (setq systems (delq 'compound-text systems)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
524 (unless (equal systems '(undecided)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
525 (while systems |
88515 | 526 (let ((cs (or (coding-system-get (pop systems) |
527 :mime-charset) | |
528 (coding-system-get systems 'mime-charset)))) | |
41494
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
529 (if cs |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
530 (setq systems nil |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
531 charsets (list cs)))))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
532 charsets)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
533 ;; Otherwise we're not multibyte, XEmacs or a single coding |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
534 ;; system won't cover it. |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
535 (setq charsets |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
536 (mm-delete-duplicates |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
537 (mapcar 'mm-mime-charset |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
538 (delq 'ascii |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
539 (mm-find-charset-region b e)))))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
540 (if (and (memq 'iso-8859-15 charsets) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
541 (memq 'iso-8859-15 hack-charsets) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
542 (save-excursion (mm-iso-8859-x-to-15-region b e))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
543 (mapcar (lambda (x) (setq charsets (delq (car x) charsets))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
544 mm-iso-8859-15-compatible)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
545 (if (and (memq 'iso-2022-jp-2 charsets) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
546 (memq 'iso-2022-jp-2 hack-charsets)) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
547 (setq charsets (delq 'iso-2022-jp charsets))) |
933ab100fb4a
2001-11-25 ShengHuo ZHU <zsh@cs.rochester.edu>
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
40621
diff
changeset
|
548 charsets)) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
549 |
31717 | 550 (defmacro mm-with-unibyte-buffer (&rest forms) |
551 "Create a temporary buffer, and evaluate FORMS there like `progn'. | |
33378 | 552 Use unibyte mode for this." |
553 `(let (default-enable-multibyte-characters) | |
554 (with-temp-buffer ,@forms))) | |
31717 | 555 (put 'mm-with-unibyte-buffer 'lisp-indent-function 0) |
556 (put 'mm-with-unibyte-buffer 'edebug-form-spec '(body)) | |
557 | |
558 (defmacro mm-with-unibyte-current-buffer (&rest forms) | |
33378 | 559 "Evaluate FORMS with current current buffer temporarily made unibyte. |
560 Also bind `default-enable-multibyte-characters' to nil. | |
561 Equivalent to `progn' in XEmacs" | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
562 (let ((multibyte (make-symbol "multibyte")) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
563 (buffer (make-symbol "buffer"))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
564 `(if mm-emacs-mule |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
565 (let ((,multibyte enable-multibyte-characters) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
566 (,buffer (current-buffer))) |
33378 | 567 (unwind-protect |
568 (let (default-enable-multibyte-characters) | |
569 (set-buffer-multibyte nil) | |
570 ,@forms) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
571 (set-buffer ,buffer) |
33378 | 572 (set-buffer-multibyte ,multibyte))) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
573 (let (default-enable-multibyte-characters) |
33378 | 574 ,@forms)))) |
31717 | 575 (put 'mm-with-unibyte-current-buffer 'lisp-indent-function 0) |
576 (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body)) | |
577 | |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
578 (defmacro mm-with-unibyte-current-buffer-mule4 (&rest forms) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
579 "Evaluate FORMS there like `progn' in current buffer. |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
580 Mule4 only." |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
581 (let ((multibyte (make-symbol "multibyte")) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
582 (buffer (make-symbol "buffer"))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
583 `(if mm-mule4-p |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
584 (let ((,multibyte enable-multibyte-characters) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
585 (,buffer (current-buffer))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
586 (unwind-protect |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
587 (let (default-enable-multibyte-characters) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
588 (set-buffer-multibyte nil) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
589 ,@forms) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
590 (set-buffer ,buffer) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
591 (set-buffer-multibyte ,multibyte))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
592 (let (default-enable-multibyte-characters) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
593 ,@forms)))) |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
594 (put 'mm-with-unibyte-current-buffer-mule4 'lisp-indent-function 0) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
595 (put 'mm-with-unibyte-current-buffer-mule4 'edebug-form-spec '(body)) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
596 |
31717 | 597 (defmacro mm-with-unibyte (&rest forms) |
33378 | 598 "Eval the FORMS with the default value of `enable-multibyte-characters' nil, ." |
599 `(let (default-enable-multibyte-characters) | |
600 ,@forms)) | |
31717 | 601 (put 'mm-with-unibyte 'lisp-indent-function 0) |
602 (put 'mm-with-unibyte 'edebug-form-spec '(body)) | |
603 | |
604 (defun mm-find-charset-region (b e) | |
33378 | 605 "Return a list of Emacs charsets in the region B to E." |
31717 | 606 (cond |
607 ((and (mm-multibyte-p) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
608 (fboundp 'find-charset-region)) |
31717 | 609 ;; Remove composition since the base charsets have been included. |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
610 ;; Remove eight-bit-*, treat them as ascii. |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
611 (let ((css (find-charset-region b e))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
612 (mapcar (lambda (cs) (setq css (delq cs css))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
613 '(composition eight-bit-control eight-bit-graphic |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
614 control-1)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
615 css)) |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
616 (t |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
617 ;; We are in a unibyte buffer or XEmacs non-mule, so we futz around a bit. |
31717 | 618 (save-excursion |
619 (save-restriction | |
620 (narrow-to-region b e) | |
621 (goto-char (point-min)) | |
622 (skip-chars-forward "\0-\177") | |
623 (if (eobp) | |
624 '(ascii) | |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
625 (let (charset) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
626 (setq charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
627 (and (boundp 'current-language-environment) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
628 (car (last (assq 'charset |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
629 (assoc current-language-environment |
32976
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
630 language-info-alist)))))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
631 (if (eq charset 'ascii) (setq charset nil)) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
632 (or charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
633 (setq charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
634 (car (last (assq mail-parse-charset |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
635 mm-mime-mule-charset-alist))))) |
aa9dc4e7c5ac
2000-10-27 ShengHuo ZHU <zsh@cs.rochester.edu>
Dave Love <fx@gnu.org>
parents:
32414
diff
changeset
|
636 (list 'ascii (or charset 'latin-iso8859-1))))))))) |
31717 | 637 |
638 (if (fboundp 'shell-quote-argument) | |
639 (defalias 'mm-quote-arg 'shell-quote-argument) | |
640 (defun mm-quote-arg (arg) | |
641 "Return a version of ARG that is safe to evaluate in a shell." | |
642 (let ((pos 0) new-pos accum) | |
643 ;; *** bug: we don't handle newline characters properly | |
644 (while (setq new-pos (string-match "[]*[;!'`\"$\\& \t{} |()<>]" arg pos)) | |
645 (push (substring arg pos new-pos) accum) | |
646 (push "\\" accum) | |
647 (push (list (aref arg new-pos)) accum) | |
648 (setq pos (1+ new-pos))) | |
649 (if (= pos 0) | |
650 arg | |
651 (apply 'concat (nconc (nreverse accum) (list (substring arg pos)))))))) | |
652 | |
653 (defun mm-auto-mode-alist () | |
654 "Return an `auto-mode-alist' with only the .gz (etc) thingies." | |
655 (let ((alist auto-mode-alist) | |
656 out) | |
657 (while alist | |
658 (when (listp (cdar alist)) | |
659 (push (car alist) out)) | |
660 (pop alist)) | |
661 (nreverse out))) | |
662 | |
663 (defvar mm-inhibit-file-name-handlers | |
36473
c1e752e8d255
(mm-inhibit-file-name-handlers): Add
Dave Love <fx@gnu.org>
parents:
35838
diff
changeset
|
664 '(jka-compr-handler image-file-handler) |
31717 | 665 "A list of handlers doing (un)compression (etc) thingies.") |
666 | |
667 (defun mm-insert-file-contents (filename &optional visit beg end replace | |
668 inhibit) | |
669 "Like `insert-file-contents', q.v., but only reads in the file. | |
670 A buffer may be modified in several ways after reading into the buffer due | |
671 to advanced Emacs features, such as file-name-handlers, format decoding, | |
672 find-file-hooks, etc. | |
673 If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers. | |
674 This function ensures that none of these modifications will take place." | |
675 (let ((format-alist nil) | |
676 (auto-mode-alist (if inhibit nil (mm-auto-mode-alist))) | |
677 (default-major-mode 'fundamental-mode) | |
678 (enable-local-variables nil) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
679 (after-insert-file-functions nil) |
31717 | 680 (enable-local-eval nil) |
681 (find-file-hooks nil) | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
682 (inhibit-file-name-operation (if inhibit |
31717 | 683 'insert-file-contents |
684 inhibit-file-name-operation)) | |
685 (inhibit-file-name-handlers | |
686 (if inhibit | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
687 (append mm-inhibit-file-name-handlers |
31717 | 688 inhibit-file-name-handlers) |
689 inhibit-file-name-handlers))) | |
690 (insert-file-contents filename visit beg end replace))) | |
691 | |
692 (defun mm-append-to-file (start end filename &optional codesys inhibit) | |
693 "Append the contents of the region to the end of file FILENAME. | |
694 When called from a function, expects three arguments, | |
695 START, END and FILENAME. START and END are buffer positions | |
696 saying what text to write. | |
697 Optional fourth argument specifies the coding system to use when | |
698 encoding the file. | |
699 If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers." | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
700 (let ((coding-system-for-write |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
701 (or codesys mm-text-coding-system-for-write |
31717 | 702 mm-text-coding-system)) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
703 (inhibit-file-name-operation (if inhibit |
31717 | 704 'append-to-file |
705 inhibit-file-name-operation)) | |
706 (inhibit-file-name-handlers | |
707 (if inhibit | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
708 (append mm-inhibit-file-name-handlers |
31717 | 709 inhibit-file-name-handlers) |
710 inhibit-file-name-handlers))) | |
711 (append-to-file start end filename))) | |
712 | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
713 (defun mm-write-region (start end filename &optional append visit lockname |
31717 | 714 coding-system inhibit) |
715 | |
716 "Like `write-region'. | |
717 If INHIBIT is non-nil, inhibit mm-inhibit-file-name-handlers." | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
718 (let ((coding-system-for-write |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
719 (or coding-system mm-text-coding-system-for-write |
31717 | 720 mm-text-coding-system)) |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
721 (inhibit-file-name-operation (if inhibit |
31717 | 722 'write-region |
723 inhibit-file-name-operation)) | |
724 (inhibit-file-name-handlers | |
725 (if inhibit | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
726 (append mm-inhibit-file-name-handlers |
31717 | 727 inhibit-file-name-handlers) |
728 inhibit-file-name-handlers))) | |
729 (write-region start end filename append visit lockname))) | |
730 | |
40542
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
731 (defun mm-image-load-path (&optional package) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
732 (let (dir result) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
733 (dolist (path load-path (nreverse result)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
734 (if (file-directory-p |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
735 (setq dir (concat (file-name-directory |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
736 (directory-file-name path)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
737 "etc/" (or package "gnus/")))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
738 (push dir result)) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
739 (push path result)))) |
93f6c74a2f60
* mm-util.el, nnultimate.el, nnweb.el, nnslashdot.el: Sync with
ShengHuo ZHU <zsh@cs.rochester.edu>
parents:
39339
diff
changeset
|
740 |
31717 | 741 (provide 'mm-util) |
742 | |
743 ;;; mm-util.el ends here |