tm 7.41.1.

[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..1bbff3a 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.46 $
 ;;; 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.46 1996/01/23 04:51:18 morioka Exp $")
 
 (defconst tm-mh-e/version (get-version-string tm-mh-e/RCS-ID))
 
@@ -399,8 +399,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 +593,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 +660,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