tm 5.0.

[elisp/tm.git] / tm-rmail.el

diff --git a/tm-rmail.el b/tm-rmail.el
index b995236..49aaf83 100644 (file)
--- a/tm-rmail.el
+++ b/tm-rmail.el
@@ -1,5 +1,5 @@
 ;;;
-;;; $Id: tm-rmail.el,v 3.1 1994/08/31 05:37:24 morioka Exp $
+;;; $Id: tm-rmail.el,v 5.0 1994/09/25 21:26:05 morioka Exp $
 ;;;
 
 (provide 'tm-rmail)
@@ -7,17 +7,17 @@
 (if (< (string-to-int emacs-version) 19)
     (require 'tl-18)
   )
-(autoload 'mime/view-mode "tm-view" "View MIME message." t)
+(autoload 'mime/viewer-mode "tm-view" "View MIME message." t)
 (autoload 'mime/decode-message-header "tiny-mime" "Decode MIME header." t)
 
 (add-hook 'rmail-show-message-hook
          (function
           (lambda ()
-            (let ((buffer-read-only nil))
+            (let ((mf (buffer-modified-p))
+                  (buffer-read-only nil))
               (mime/decode-message-header)
-              )
-            (set-buffer-modified-p nil)
-            )))
+              (set-buffer-modified-p mf)
+              ))))
 
 (add-hook 'rmail-mode-hook
          (function
@@ -32,7 +32,7 @@
                            (function
                             (lambda ()
                               (interactive)
-                              (pop-to-buffer "RMAIL")
-                              (mime/view-mode)
+                              (pop-to-buffer rmail-buffer)
+                              (mime/viewer-mode)
                               )))
             )))