;;;
;;; mime-setup: setup file to use tm and mime.el.
;;;
;;; $Id: mime-setup.el,v 6.2 1995/09/06 10:07:26 morioka Exp $
;;;

(require 'tm-setup)


;;; @ variables
;;;

(defvar mime-setup-use-sc nil)
(defvar mime-setup-use-signature t)
(defvar mime-setup-signature-key "\C-c\C-s")


;;; @ for Edit MIME mode
;;;

(autoload 'mime-mode "mime" "Edit MIME message." t)
(autoload 'mime-convert-buffer "mime" "convert to MIME." t)

(setq mime-content-types
      '(("text"
	 ;; Charset parameter need not to be specified, since it is
	 ;; defined automatically while translation.
	 ("plain"
	  ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
	  )
	 ("richtext"
	  ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
	  )
	 ("enriched"
	  ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
	  )
	 ("x-latex"
	  ("x-name")
	  ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
	  )
	 ("html"
	  ("x-name")
	  ;;("charset" "" "ISO-2022-JP" "US-ASCII" "ISO-8859-1" "ISO-8859-8")
	  ))
	("message"
	 ("external-body"
	  ("access-type"
	   ("anon-ftp"
	    ("site" "ftp.jaist.ac.jp" "wnoc-fuk.wide.ad.jp" "nic.karrn.ad.jp")
	    ("directory" "/pub/GNU/elisp/mime")
	    ("name")
	    ("mode" "binary" "ascii"))
	   ("ftp"
	    ("site")
	    ("directory")
	    ("name")
	    ("mode" "binary" "ascii"))
	   ("tftp"
	    ("site")
	    ("name"))
	   ("afs"
	    ("site")
	    ("name"))
	   ("local-file"
	    ("site")
	    ("name"))
	   ("mail-server"
	    ("server"))))
	 ("rfc822"))
	("application"
	 ("octet-stream"
	  ("name")
	  ("type" "" "tar" "shar")
	  ("conversions"))
	 ("postscript")
	 ("x-kiss"
	  ("x-name")
	  ("x-cnf")))
	("image"
	 ("gif"  ("x-name"))
	 ("jpeg" ("x-name"))
	 ("x-pic"  ("x-name"))
	 ("x-xwd")
	 ("x-xbm"))
	("audio"
	 ("basic"))
	("video"
	 ("mpeg")))
      )


;;; @ for signature
;;;

(if mime-setup-use-signature
    (progn
      (autoload 'insert-signature "signature" "Insert signature" t)
      
      (add-hook 'mime-mode-hook
		(function
		 (lambda ()
		   (define-key (current-local-map)
		     mime-setup-signature-key
		     (function insert-signature))
		   )))
      
      (setq gnus-signature-file nil)
      ))


;;; @ for tiny-mime
;;;

(autoload 'mime/encode-message-header "tiny-mime"
  "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))
	  )
    )))


;;; @ about SuperCite
;;;

(if mime-setup-use-sc
    (require 'sc-setup)
  )


;;; @ for mh-e
;;;

(add-hook 'mh-letter-mode-hook
	  (function
	   (lambda ()
	     (mime/decode-message-header)
	     (mime-mode)
	     (make-local-variable 'mail-header-separator)
	     (setq mail-header-separator "--------"))
	   ))


;;; @ for GNUS
;;;

(add-hook 'news-reply-mode-hook
	  (function
	   (lambda ()
	     (mime/decode-message-header)
	     (set-buffer-modified-p nil)
	     (mime-mode)
	     )))


;;; @ for Mail mode (includes VM mode)
;;;

(add-hook 'mail-mode-hook (function mime-mode))
(add-hook 'mail-setup-hook (function mime/decode-message-header))

;;; @@ In VM, the following definitions may be requried:
;;; 

(if (boundp 'vm-visible-headers)
    (progn
      (setq vm-preview-lines nil)
      (setq vm-invisible-header-regexp nil)
      (setq vm-visible-headers
	    (append vm-visible-headers
		    '("Mime-Version:"
		      "Content-Type:"
		      "Content-Transfer-Encoding:")))
      ))


;;; @ end
;;;

(provide 'mime-setup)

;;; Local Variables:
;;; mode: emacs-lisp
;;; mode: outline-minor
;;; outline-regexp: ";;; @+\\|(......"
;;; End: