tm-rmail.el

   1 ;;;
   2 ;;; $Id: tm-rmail.el,v 3.1 1994/08/31 05:37:24 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/view-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 ((buffer-read-only nil))
  17                (mime/decode-message-header)
  18                )
  19              (set-buffer-modified-p nil)
  20              )))
  21
  22 (add-hook 'rmail-mode-hook
  23           (function
  24            (lambda ()
  25              (local-set-key "v" 'mime/view-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")
  36                                (mime/view-mode)
  37                                )))
  38              )))