2 ;;; Copyright (C) 1995 Free Software Foundation, Inc.
3 ;;; Copyright (C) 1994,1995 MORIOKA Tomohiko
5 ;;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
7 ;;; $Id: tm-rmail.el,v 7.4 1995/10/24 00:19:52 morioka Exp $
8 ;;; Keywords: mail, MIME, multimedia, multilingual, encoded-word
10 ;;; This file is part of tm (Tools for MIME).
17 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
18 (autoload 'mime/Content-Type "tm-view" "parse Content-Type field.")
19 (autoload 'mime/decode-message-header "tm-ew-d" "Decode MIME encoded-word." t)
21 (setq rmail-message-filter
24 (let ((mf (buffer-modified-p))
25 (buffer-read-only nil))
26 (mime/decode-message-header)
27 (set-buffer-modified-p mf)
30 (defun tm-rmail/show-all-header-p ()
32 (narrow-to-region (point-min)
33 (and (re-search-forward "^$" nil t)
35 (goto-char (point-min))
36 (re-search-forward rmail-ignored-headers nil t)
39 (defun tm-rmail/view-message ()
41 (let ((ret (rmail-widen-to-current-msgbeg
44 (cons (mime/Content-Type)
45 (mail-fetch-field "Content-Transfer-Encoding"))
47 (mime/viewer-mode nil (car ret)(cdr ret))
50 (defun tm-rmail/quitting-method-to-summary ()
51 (mime-viewer/kill-buffer)
53 (delete-other-windows)
56 (defun tm-rmail/quitting-method-to-article ()
57 (mime-viewer/kill-buffer)
60 (defalias 'tm-rmail/quitting-method 'tm-rmail/quitting-method-to-article)
62 (define-key rmail-mode-map "v" (function tm-rmail/view-message))
64 (add-hook 'rmail-summary-mode-hook
71 (pop-to-buffer rmail-buffer)
72 (tm-rmail/view-message)
76 (call-after-loaded 'tm-view
79 (set-alist 'mime-viewer/quitting-method-alist
81 (function tm-rmail/quitting-method))
92 (set-atype 'mime/content-decoding-condition
93 '((type . "message/partial")
94 (method . mime-article/grab-message/partials)
95 (major-mode . rmail-mode)
99 (pop-to-buffer rmail-buffer)
100 rmail-summary-buffer))
102 (set-alist 'tm-partial/preview-article-method-alist
106 (rmail-summary-goto-msg (count-lines 1 (point)))
107 (pop-to-buffer rmail-buffer)
108 (tm-rmail/view-message)
118 (run-hooks 'tm-rmail-load-hook)