-;;; @ for mime-view
-;;;
-
-(call-after-loaded
- 'mime-view
- (function
- (lambda ()
- ;; for message/partial
- (require 'mime-partial)
-
- ;; for anonymous ftp
- (set-atype 'mime/content-decoding-condition
- '((type . "message/external-body")
- ("access-type" . "anon-ftp")
- (method . mime-article/decode-message/external-ftp)
- ))
- (autoload 'mime-article/decode-message/external-ftp "tm-ftp")
-
- ;; for LaTeX
- (set-atype 'mime/content-decoding-condition
- '((type . "text/x-latex")
- (method . mime/decode-text/latex)
- ))
- (set-atype 'mime/content-decoding-condition
- '((type . "application/x-latex")
- (method . mime/decode-text/latex)
- ))
- ;;(set-atype 'mime/content-decoding-condition
- ;; '((type . "application/octet-stream")
- ;; ("type" . "latex")
- ;; (method . mime/decode-text/latex)
- ;; ))
- (autoload 'mime/decode-text/latex "tm-latex")
- )))
-
-
-(defvar running-xemacs (string-match "XEmacs" emacs-version))
-