2 ;;; $Id: mime-setup.el,v 5.1 1994/11/29 16:10:15 morioka Exp $
12 (defvar mime-setup-use-sc nil)
15 ;;; @ for Edit MIME mode
17 (autoload 'mime-mode "mime" "Edit MIME message." t)
18 (autoload 'mime-convert-buffer "mime" "convert to MIME." t)
20 (autoload 'mime/encode-message-header "tiny-mime"
21 "convert message header to MIME style." t)
23 (autoload 'insert-signature "signature" "Insert signature" t)
25 (add-hook 'mime-mode-hook
28 (define-key (current-local-map)
29 "\C-c\C-s" (function insert-signature))
31 (setq mime-translate-hook (function mime/encode-message-header))
35 (defun mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP (begin end)
36 (let ((lclist (find-charset-region begin end)))
37 (cond ((null lclist) nil) ;US-ASCII requres no encoding.
38 ((memq lc-ltn1 lclist)
39 '("ISO-8859-1" . "Q"))
40 ((memq lc-ltn2 lclist)
41 '("ISO-8859-2" . "Q"))
42 ((memq lc-ltn3 lclist)
43 '("ISO-8859-3" . "Q"))
44 ((memq lc-ltn4 lclist)
45 '("ISO-8859-4" . "Q"))
47 '("ISO-8859-5" . "Q"))
48 ;;((memq lc-arb lclist)
49 ;; '("ISO-8859-6" . "Q"))
51 '("ISO-8859-7" . "Q"))
53 '("ISO-8859-8" . "Q"))
54 ((memq lc-ltn5 lclist)
55 '("ISO-8859-9" . "Q"))
56 ((memq lc-jp lclist) nil)
57 (t ;Unknown charset. It must be Mule!
58 '("ISO-2022-JP-2" . "B"))
60 (setq mime-header-charset-chooser
61 'mime-header-charset-chooser-for-mule-no-encode-ISO-2022-JP)
64 (defun mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP (begin end))
65 (setq mime-header-charset-chooser
66 'mime-header-charset-chooser-for-nemacs-no-encode-ISO-2022-JP)
69 (setq mime-content-types
71 ;; Charset parameter need not to be specified, since it is
72 ;; defined automatically while translation.
74 ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
77 ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
80 ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
84 ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
90 ("site" "wnoc-fuk.wide.ad.jp" "nic.karrn.ad.jp")
93 ("mode" "binary" "ascii"))
98 ("mode" "binary" "ascii"))
114 ("type" "" "tar" "shar")
132 (setq mime-file-types
133 '(("\\.rtf$" "text" "richtext" nil nil)
134 ("\\.ps$" "application" "postscript" nil "quoted-printable")
135 ("\\.gif$" "image" "gif" nil "base64")
136 ("\\.jpg$" "image" "jpeg" nil "base64")
137 ("\\.xwd$" "image" "x-xwd" nil "base64")
138 ("\\.xbm$" "image" "x-xbm" nil "base64")
139 ("\\.PIC$" "image" "x-pic" nil "base64")
140 ("\\.pic$" "image" "x-pic" nil "base64")
141 ("\\.tiff$" "image" "tiff" nil "base64")
142 ("\\.au$" "audio" "basic" nil "base64")
143 ("\\.mpg$" "video" "mpeg" nil "base64")
144 ("\\.el$" "application" "octet-stream" nil "7bit")
145 ("\\.signature" "text" "plain" nil nil)
146 (".*" nil nil nil nil))
150 ;;; @ about SuperCite
152 (if mime-setup-use-sc
159 (add-hook 'mh-letter-mode-hook
162 (mime/decode-message-header)
164 (make-local-variable 'mail-header-separator)
165 (setq mail-header-separator "--------"))
171 (add-hook 'news-reply-mode-hook
174 (mime/decode-message-header)
177 (setq gnus-signature-file nil)
180 ;;; @ for Mail mode (includes VM mode)
182 (add-hook 'mail-mode-hook (function mime-mode))
183 (add-hook 'mail-setup-hook (function mime/decode-message-header))
185 ;;; @@ In VM, the following definitions may be requried:
187 (if (boundp 'vm-visible-headers)
189 (setq vm-preview-lines nil)
190 (setq vm-invisible-header-regexp nil)
191 (setq vm-visible-headers
192 (append vm-visible-headers
195 "Content-Transfer-Encoding:")))
200 ;;; mode: outline-minor
201 ;;; outline-regexp: ";;; @+\\|(......"