Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-0b32
author cvs
date Mon, 13 Aug 2007 09:04:33 +0200
parents 131b0175ea99
children
comparison
equal deleted inserted replaced
73:e2d7a37b7c8d 74:54cc21c15cbb
1 ;;; mu-bbdb.el --- `attribution' function for mu-cite with BBDB. 1 ;;; mu-bbdb.el --- `attribution' function for mu-cite with BBDB.
2 2
3 ;; Copyright (C) 1996 Shuhei KOBAYASHI 3 ;; Copyright (C) 1996 Shuhei KOBAYASHI
4 4
5 ;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp> 5 ;; Author: Shuhei KOBAYASHI <shuhei-k@jaist.ac.jp>
6 ;; Version: $Id: mu-bbdb.el,v 1.1.1.1 1996/12/18 22:43:39 steve Exp $ 6 ;; Version: $Id: mu-bbdb.el,v 1.1.1.2 1996/12/21 20:50:53 steve Exp $
7 7
8 ;; This file is part of tl (Tiny Library). 8 ;; This file is part of tl (Tiny Library).
9 9
10 ;; This program is free software; you can redistribute it and/or 10 ;; This program is free software; you can redistribute it and/or
11 ;; modify it under the terms of the GNU General Public License as 11 ;; modify it under the terms of the GNU General Public License as
36 36
37 37
38 ;;; Code: 38 ;;; Code:
39 39
40 (require 'mu-cite) 40 (require 'mu-cite)
41 (require 'bbdb) 41 (if (module-installed-p 'bbdb)
42 (require 'bbdb))
42 43
43 (defvar mu-bbdb-load-hook nil 44 (defvar mu-bbdb-load-hook nil
44 "*List of functions called after mu-bbdb is loaded.") 45 "*List of functions called after mu-bbdb is loaded.")
45 46
46 ;;; @@ prefix and registration using BBDB 47 ;;; @@ prefix and registration using BBDB
59 )) 60 ))
60 61
61 (defun mu-cite/set-bbdb-attr (attr addr) 62 (defun mu-cite/set-bbdb-attr (attr addr)
62 "Add attribute information to BBDB." 63 "Add attribute information to BBDB."
63 (let* ((bbdb-notice-hook nil) 64 (let* ((bbdb-notice-hook nil)
64 (record (bbdb-annotate-message-sender 65 (record (bbdb-annotate-message-sender
65 addr t 66 addr t
66 (bbdb-invoke-hook-for-value 67 (bbdb-invoke-hook-for-value
67 bbdb/mail-auto-create-p) 68 bbdb/mail-auto-create-p)
68 t))) 69 t)))
69 (if record 70 (if record
70 (progn 71 (progn
71 (bbdb-record-putprop record 'attribution attr) 72 (bbdb-record-putprop record 'attribution attr)