tm 7.41.3.

[elisp/tm.git] / mh-e / tm-mh-e.el

diff --git a/mh-e/tm-mh-e.el b/mh-e/tm-mh-e.el
index b1bb8cf..aec9216 100644 (file)
--- a/mh-e/tm-mh-e.el
+++ b/mh-e/tm-mh-e.el
@@ -9,7 +9,7 @@
 ;;; modified by YAMAOKA Katsumi <yamaoka@ga.sony.co.jp>
 ;;; Maintainer: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;;; Created: 1993/11/21 (obsolete mh-e-mime.el)
-;;; Version: $Revision: 7.44 $
+;;; Version: $Revision: 7.47 $
 ;;; Keywords: mail, MH, MIME, multimedia, encoded-word, multilingual
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -47,7 +47,7 @@
 ;;;
 
 (defconst tm-mh-e/RCS-ID
-  "$Id: tm-mh-e.el,v 7.44 1995/12/13 05:48:43 morioka Exp $")
+  "$Id: tm-mh-e.el,v 7.47 1996/01/25 15:14:27 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -121,6 +121,7 @@ system MH lib directory.")
                   )
                 (set-buffer-modified-p nil)
                 (setq buffer-read-only t)
+                (setq buffer-file-name msg-filename)
                 (mh-show-mode)
                 (mime/viewer-mode nil nil nil
                                   aname (concat "show-" folder))
@@ -153,11 +154,11 @@ system MH lib directory.")
                 )
               (set-buffer-modified-p nil)
               (setq buffer-read-only t)
+              (setq buffer-file-name msg-filename)
               (mh-show-mode)
               ))
           (or (eq buffer-undo-list t)  ;don't save undo info for prev msgs
               (setq buffer-undo-list nil))
-          (setq buffer-file-name msg-filename)
           (set-mark nil)
           (setq mode-line-buffer-identification
                 (list (format mh-show-buffer-mode-line-buffer-id
@@ -399,8 +400,6 @@ then prompt for the message sequence. See also documentation for
                         ))))
   (or msg-or-seq
       (setq msg-or-seq (mh-get-msg-num t)))
-  (if (numberp msg-or-seq)
-      (setq msg-or-seq (int-to-string msg-or-seq)))
   (let* ((folder mh-current-folder)
         (config (current-window-configuration))
         ;; uses "draft" for compatibility with forw.
@@ -595,6 +594,17 @@ then prompt for the message sequence. See also documentation for
     )))
 
 
+;;; @ for BBDB
+;;;
+
+(call-after-loaded
+ 'bbdb
+ (function
+  (lambda ()
+    (require 'tm-bbdb)
+    )))
+
+
 ;;; @ set up
 ;;;
 
@@ -651,3 +661,5 @@ then prompt for the message sequence. See also documentation for
 (provide 'tm-mh-e)
 
 (run-hooks 'tm-mh-e-load-hook)
+
+;;; tm-mh-e.el ends here