tm-rmail.el

   1 ;;;
   2 ;;; $Id: tm-rmail.el,v 5.1 1994/10/17 06:31:29 morioka Exp $
   3 ;;;
   4
   5 (provide 'tm-rmail)
   6
   7 (if (< (string-to-int emacs-version) 19)
   8     (require 'tl-18)
   9   )
  10 (autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
  11 (autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
  12
  13 (add-hook 'rmail-show-message-hook
  14           (function
  15            (lambda ()
  16              (let ((mf (buffer-modified-p))
  17                    (buffer-read-only nil))
  18                (mime/decode-message-header)
  19                (set-buffer-modified-p mf)
  20                ))))
  21
  22 (add-hook 'rmail-mode-hook
  23           (function
  24            (lambda ()
  25              (local-set-key "v" 'mime/viewer-mode)
  26              )))
  27
  28 (add-hook 'rmail-summary-mode-hook
  29           (function
  30            (lambda ()
  31              (local-set-key "v"
  32                             (function
  33                              (lambda ()
  34                                (interactive)
  35                                (pop-to-buffer rmail-buffer)
  36                                (mime/viewer-mode)
  37                                )))
  38              )))