-
-;;; @ for mu-cite
-;;;
-
-(add-hook 'mu-cite/pre-cite-hook 'mime/decode-message-header)
-
-
-;;; @ for mail-mode, RMAIL and VM
-;;;
-
-(add-hook 'mail-setup-hook 'mime/decode-message-header)
-(add-hook 'mail-setup-hook 'mime/editor-mode 'append)
-(add-hook 'mail-send-hook 'mime-editor/maybe-translate)
-(set-alist 'mime-editor/split-message-sender-alist
- 'mail-mode (function
- (lambda ()
- (interactive)
- (funcall send-mail-function)
- )))
-
-;;; @ for mh-e
-;;;
-
-(defun mime-setup-mh-draft-setting ()
- (mime/editor-mode)
- (make-local-variable 'mail-header-separator)
- (setq mail-header-separator "--------")
- (save-excursion
- (goto-char (point-min))
- (setq buffer-read-only nil)
- (if (re-search-forward "^-*$" nil t)
- (progn
- (replace-match mail-header-separator)
- (set-buffer-modified-p (buffer-modified-p))
- ))
- ))
-
-(add-hook 'mh-letter-mode-hook 'mime-setup-mh-draft-setting t)
-(add-hook 'mh-before-send-letter-hook 'mime-editor/maybe-translate)
-
-
-;;; @ for GNUS
-;;;
-
-(add-hook 'news-reply-mode-hook 'mime/editor-mode)
-(add-hook 'news-inews-hook 'mime-editor/maybe-translate)
-
-
-;;; @ for message (September Gnus 0.58 or later)
-;;;
-
-(defun message-maybe-setup-default-charset ()
- (let ((charset
- (and (boundp 'gnus-summary-buffer)
- (buffer-live-p gnus-summary-buffer)
- (save-excursion
- (set-buffer gnus-summary-buffer)
- default-mime-charset))))
- (if charset
- (progn
- (make-local-variable 'default-mime-charset)
- (setq default-mime-charset charset)
- ))))
-
-(or (boundp 'epoch::version)
- (progn
- (add-hook 'message-setup-hook 'mime/editor-mode)
- (add-hook 'message-setup-hook 'message-maybe-setup-default-charset)
- (add-hook 'message-send-hook 'mime-editor/maybe-translate)
- (add-hook 'message-header-hook 'mime/encode-message-header)
-
- (call-after-loaded
- 'message
- (function
- (lambda ()
- (require 'message-mime)
- )))
- ))