From 245ff49be939f4d47e8c4b8c32ee64e0623f5f20 Mon Sep 17 00:00:00 2001
From: Ryan Kavanagh <rak@debian.org>
Date: Mon, 8 Apr 2013 15:58:03 -0400
Subject: Got BBDB fully working

---
 .vm | 42 +++++++++++++++++++++++++++++++++++++-----
 1 file changed, 37 insertions(+), 5 deletions(-)

(limited to '.vm')

diff --git a/.vm b/.vm
index 275cf09..243ef27 100644
--- a/.vm
+++ b/.vm
@@ -160,14 +160,46 @@
 (setq vm-summary-format "%n %*%a %-17.17F %2y %-3.3m %2d (%-4l) %4l/%-5c %I\"%s\"
 ")
 
-;; BBDB
+;;; BBDB
+(require 'bbdb-autoloads)
 (require 'bbdb)
-(bbdb-initialize 'vm)
+(bbdb-initialize 'vm 'message 'sendmail)
+;; The following two lines have BBDB automatically add addresses
+(bbdb-mua-auto-update-init 'vm 'message 'sendmail)
+(setq bbdb-update-records-p 'create)
+(setq bbdb-mua-update-interactive-p '(create . create))
+;; Offer to save the database
+(setq bbdb-offer-save t)
+;; Use vm to send mail
 (setq bbdb-send-mail-style 'vm)
-(add-hook 'vm-reply-hook 'bbdb-force-record-create)
+;; Use a horizontal split
+(setq bbdb-mua-pop-up 'horiz)
+;; Maximum height of BBDB popup size for vertical split
+(setq bbdb-mua-pop-up-window-size 10)
+;; Maximum width of BBDB popup size for horizontal split
+(setq bbdb-horiz-pop-up-window-size '(80 . 0.3))
+;; Don't add addresses matching the following regexp to our DB
 (setq bbdb-ignore-some-messages-alist
-      '(("From" . ".*@bugs.(debian.org\\|launchpad.net)")))
-(setq bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook)
+      '((("From" "CC" "Reply-To") . ".*@bugs.(debian.org\\|launchpad.net)\\|.*@.*.launchpad.net\\|noreply")
+	(("To" "Sender") . "noreply")))
+;; (setq bbdb/mail-auto-create-p 'bbdb-ignore-some-messages-hook)
+;; Add all addresses in an email
+(setq bbdb-message-all-addresses t)
+;; ???
+(setq bbdb-offer-to-create t)
+;; Add notes when updating a record
+(add-hook 'bbdb-notice-mail-hook 'bbdb-auto-notes)
+;; And track the following:
+(setq bbdb-auto-notes-rules
+      (list
+       '("Organization"
+	 (".*" organization "\\1" nil))
+       '("User-Agent"
+	 (".*" mailer identity nil))
+       '("X-Mailer"
+	 (".*" mailer identity nil))
+       '("X-Newsreader"
+	 (".*" mailer identity nil))))
 
 ;; signature
 (setq mail-signature t)
-- 
cgit v1.2.3