tm 7.70.

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

diff --git a/tm-bbdb.el b/tm-bbdb.el
index cf0ac19..253c1b6 100644 (file)
--- a/tm-bbdb.el
+++ b/tm-bbdb.el
@@ -8,7 +8,7 @@
 ;;;         Artur Pioro <artur@flugor.if.uj.edu.pl>
 ;;; modified by Pekka Marjola <pema@iki.fi>
 ;;; Maintainer: KOBAYASHI Shuhei <shuhei-k@jaist.ac.jp>
-;;; Version: $Id: tm-bbdb.el,v 7.9 1996/05/23 16:42:14 shuhei-k Exp $
+;;; Version: $Id: tm-bbdb.el,v 7.10 1996/07/01 23:43:25 morioka Exp $
 ;;; Keywords: mail, news, MIME, multimedia, multilingual, BBDB
 ;;;
 ;;; This file is part of tm (Tools for MIME).
@@ -193,8 +193,13 @@ displaying the record corresponding to the sender of the current message."
       (set-buffer b)
       record)))
 
-(define-key mime/viewer-mode-map ";" 'tm-bbdb/edit-notes)
-(define-key mime/viewer-mode-map ":" 'tm-bbdb/show-sender)
+(defun tm-bbdb/define-keys ()
+  (let ((mime/viewer-mode-map (current-local-map)))
+    (define-key mime/viewer-mode-map ";" 'tm-bbdb/edit-notes)
+    (define-key mime/viewer-mode-map ":" 'tm-bbdb/show-sender)
+    ))
+
+(add-hook 'mime-viewer/define-keymap-hook 'tm-bbdb/define-keys)
 
 
 ;;; @ for signature.el