-;;; @ for encoded-word
-;;;
-
-(autoload 'mime/encode-message-header "tm-eword"
- "convert message header to MIME style." t)
-
-(add-hook 'mime-translate-hook (function mime/encode-message-header))
-
-(setq mime-header-charset-chooser
- (function
- (lambda (begin end)
- )))
-
-
-;;; @ for tm-comp
-;;;
-
-(call-after-loaded
- 'tm-comp
- (function
- (lambda ()
- (setq mime-transfer-encoders
- '(("base64" "mmencode")
- ("quoted-printable" "mmencode" "-q")
- ("7bit" nil) ;Default
- ("8bit" nil)
- ("binary" nil)
- ("x-uue" "uuencode" "-")
- ))
-
- (setq mime-file-types
- '(("\\.rtf$"
- "text" "richtext" nil nil)
- ("\\.html$"
- "text" "html" nil nil)
- ("\\.ps$"
- "application" "postscript" nil "quoted-printable")
- ("\\.gif$"
- "image" "gif" nil "base64")
- ("\\.jpg$"
- "image" "jpeg" nil "base64")
- ("\\.xwd$"
- "image" "x-xwd" nil "base64")
- ("\\.xbm$"
- "image" "x-xbm" nil "base64")
- ("\\.pic$"
- "image" "x-pic" nil "base64")
- ("\\.tiff$"
- "image" "tiff" nil "base64")
- ("\\.au$"
- "audio" "basic" nil "base64")
- ("\\.mpg$"
- "video" "mpeg" nil "base64")
- ("\\.el$"
- "application" "octet-stream" (("name" . file)
- ("type" . "emacs-lisp")) "7bit")
- ("\\.tar.gz$"
- "application" "octet-stream" (("name" . file)
- ("type" . "tar")
- ("conversions" . "gzip")) nil)
- ("\\.signature"
- "text" "plain" nil nil)
- (".*" nil nil nil nil))
- )
- )))
-
-