;;;; Time-stamp: <2006-02-23 10:53:28 john>

(add-lispdir "$GATHERED/emacs/bbdb/bbdb-2.00/lisp"
	     "http://bbdb.sourceforge.net/bbdb-2.34.tar.gz")
(setq bbdb-file (substitute-in-file-name "$COMMON/var/bbdb"))
(message "Gathered is %s; Want to load %s" (getenv "GATHERED") (substitute-in-file-name "$GATHERED/emacs/bbdb/bbdb-2.00/lisp/bbdb.elc"))
(message (expand-file-name  "emacs/bbdb/bbdb-2.00/lisp/bbdb.elc" (getenv "$GATHERED")))

(load-file (substitute-in-file-name "$GATHERED/emacs/bbdb/bbdb-2.00/lisp/bbdb.elc"))
(bbdb-initialize)			; sets up more autoloads
(message "There are %d bbdb entries" (length (bbdb-records)))

; my bbdb extensions

(add-lispdir  "$COMMON/emacs/my-extensions-to-packages/bbdb/")

(autoload 'bbdb:make-phone-list "bbdb-export-lists.el"
  "Make my phone list." t)

(autoload 'bbdb:make-Christmas-card-list "bbdb-export-lists.el"
  "Make my Christmas card list." t)

(autoload 'bbdb:mark-sent-Christmas-cards "bbdb-export-lists.el"
  "Prompt for names and mark that they have been sent a Christmas card this year." t)

(autoload 'bbdb:make-Guild-list "bbdb-export-lists.el"
  "Make the Guild list." t)

(autoload 'bbdb:make-Youths-list "bbdb-export-lists.el"
  "Make the Youths list." t)

(autoload 'bbdb:make-family-contact-page "bbdb-export-lists.el"
  "Make a web page containing family contact details." t)

(autoload 'bbdb:make-mailrc "bbdb-export-lists.el"
  "Make my mail aliases list." t)

(autoload 'bbdb:make-birthdays-list "bbdb-export-lists.el"
  "Make my birthdays list." t)

(if nil
    (setq Info-directory-list
	  (reverse (cons (expand-file-name "~/big-brother/bbdb-1.50/")
			 (reverse Info-directory-list)))))