Mercurial > hg > xemacs-beta
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