From: morioka <morioka>
Date: Tue, 10 Mar 1998 07:03:41 +0000 (+0000)
Subject: tm 7.96.
X-Git-Tag: tm-7_100
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=refs%2Ftags%2Ftm-7_100_1;p=elisp%2Fmu-cite.git

tm 7.96.
---

diff --git a/mu-bbdb.el b/mu-bbdb.el
index af5877c..a3fa25e 100644
--- a/mu-bbdb.el
+++ b/mu-bbdb.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996 Shuhei KOBAYASHI
 
 ;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Id: mu-bbdb.el,v 3.2 1996/11/22 08:44:27 shuhei-k Exp $
+;; Version: $Id: mu-bbdb.el,v 3.3 1996/12/10 11:57:23 shuhei-k Exp $
 
 ;; This file is part of tl (Tiny Library).
 
@@ -38,14 +38,8 @@
 ;;; Code:
 
 (require 'mu-cite)
-(if (not (fboundp 'eval-when))
-    (require 'bbdb)
-  (eval-when (compile)
-    (ignore-errors
-      (require 'bbdb)))
-  (eval-when (load eval)
+(if (module-installed-p 'bbdb)
     (require 'bbdb))
-  )
 
 (defvar mu-bbdb-load-hook nil
   "*List of functions called after mu-bbdb is loaded.")
@@ -68,9 +62,9 @@
 (defun mu-cite/set-bbdb-attr (attr addr)
   "Add attribute information to BBDB."
   (let* ((bbdb-notice-hook nil)
-         (record (bbdb-annotate-message-sender 
+         (record (bbdb-annotate-message-sender
                   addr t
-	          (bbdb-invoke-hook-for-value 
+	          (bbdb-invoke-hook-for-value
 	           bbdb/mail-auto-create-p)
 		  t)))
     (if record