diff lisp/mu/mu-bbdb.el @ 74:54cc21c15cbb r20-0b32

Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children
line wrap: on
line diff
--- a/lisp/mu/mu-bbdb.el	Mon Aug 13 09:03:47 2007 +0200
+++ b/lisp/mu/mu-bbdb.el	Mon Aug 13 09:04:33 2007 +0200
@@ -3,7 +3,7 @@
 ;; Copyright (C) 1996 Shuhei KOBAYASHI
 
 ;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
-;; Version: $Id: mu-bbdb.el,v 1.1.1.1 1996/12/18 22:43:39 steve Exp $
+;; Version: $Id: mu-bbdb.el,v 1.1.1.2 1996/12/21 20:50:53 steve Exp $
 
 ;; This file is part of tl (Tiny Library).
 
@@ -38,7 +38,8 @@
 ;;; Code:
 
 (require 'mu-cite)
-(require 'bbdb)
+(if (module-installed-p 'bbdb)
+    (require 'bbdb))
 
 (defvar mu-bbdb-load-hook nil
   "*List of functions called after mu-bbdb is loaded.")
@@ -61,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