projects
/
elisp
/
tm.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
;;; 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).
;;; 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
;;;
(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))
(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)))
))))
(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.
(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
;;;
;;; @ 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)
(provide 'tm-mh-e)
(run-hooks 'tm-mh-e-load-hook)
+
+;;; tm-mh-e.el ends here