2 ;;; $Id: tm-rmail.el,v 6.6 1995/06/26 22:52:13 morioka Exp $
9 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
10 (autoload 'mime/Content-Type "tm-view" "parse Content-Type field.")
11 (autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
13 (defun tm-rmail/show-all-header-p ()
15 (narrow-to-region (point-min)
16 (and (re-search-forward "^$" nil t)
18 (goto-char (point-min))
19 (re-search-forward rmail-ignored-headers nil t)
22 (defun tm-rmail/view-message ()
24 (let ((ret (rmail-widen-to-current-msgbeg
27 (cons (mime/Content-Type)
28 (mail-fetch-field "Content-Transfer-Encoding"))
30 (mime/viewer-mode nil (car ret)(cdr ret))
33 (defun tm-rmail/quitting-method-to-summary ()
34 (mime-viewer/kill-buffer)
36 (delete-other-windows)
39 (defun tm-rmail/quitting-method-to-article ()
40 (mime-viewer/kill-buffer)
43 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
45 (add-hook 'rmail-show-message-hook
48 (let ((mf (buffer-modified-p))
49 (buffer-read-only nil))
50 (mime/decode-message-header)
51 (set-buffer-modified-p mf)
54 (add-hook 'rmail-mode-hook
57 (local-set-key "v" (function tm-rmail/view-message))
60 (add-hook 'rmail-summary-mode-hook
67 (pop-to-buffer rmail-buffer)
68 (tm-rmail/view-message)
72 (call-after-loaded 'tm-view
75 (set-alist 'mime-viewer/quitting-method
77 (function tm-rmail/quitting-method))
82 (run-hooks 'tm-rmail-load-hook)