2 ;;; A MIME extender for mh-e
4 ;;; by Morioka Tomohiko, 1993/11/21
15 (if (not (boundp 'mh-e-version))
18 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
23 (defconst tm-mh-e/RCS-ID
24 "$Id: tm-mh-e.el,v 5.3 1994/10/25 09:06:36 morioka Exp $")
26 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
29 ;;; @ MIME header decoding mode
31 (defun tm-mh-e/toggle-header-decoding-mode (arg)
32 "Toggle MIME header processing.
33 With arg, turn MIME processing on if arg is positive."
35 (setq mime/header-decoding-mode
37 (not mime/header-decoding-mode)
39 (mh-invalidate-show-buffer)
40 (mh-show-msg (mh-get-msg-num t))
44 ;;; @ MIME body players
46 (defun tm-mh-e/view-message (arg)
47 "MIME decode and play this message."
49 (mh-invalidate-show-buffer)
50 (mh-show-msg (mh-get-msg-num t))
51 (pop-to-buffer mh-show-buffer t)
59 (defun tm-mh-e/decode-message-header ()
60 (make-local-variable 'minor-mode-alist)
61 (mime/add-header-decoding-mode-to-mode-line)
62 (let ((buffer-read-only nil))
63 (mime/decode-message-header-if-you-need)
64 (set-buffer-modified-p nil)
66 (add-hook 'mh-show-mode-hook
67 (function tm-mh-e/decode-message-header))
69 (define-key mh-folder-mode-map "\et" 'tm-mh-e/toggle-header-decoding-mode)
70 (define-key mh-folder-mode-map "v" 'tm-mh-e/view-message)
71 (define-key mh-folder-mode-map "\r"
74 (scroll-other-window 1)
76 (define-key mh-folder-mode-map "\e\r"
79 (scroll-other-window -1)