bbdb

2 files changed, 47 insertions, 1 deletions

diff --git a/custom/jao-custom-email.el b/custom/jao-custom-email.el
index 45fda21..c985917 100644
--- a/custom/jao-custom-email.el
+++ b/custom/jao-custom-email.el
@@ -235,6 +235,52 @@
 ;; (setq mm-text-html-renderer #'jao-w3m-html-renderer)
 (setq mm-text-html-renderer #'jao-shr-html-renderer)
 
+;;; bbdb
+(use-package bbdb
+  :ensure t
+  :init (setq bbdb-complete-name-allow-cycling t
+              bbdb-completion-display-record nil
+              bbdb-gui t
+              bbdb-message-all-addresses t
+              bbdb-complete-mail-allow-cycling t
+              bbdb-north-american-phone-numbers-p nil
+              bbdb-add-aka t
+              bbdb-add-name 2
+              bbdb-message-all-addresses t
+              bbdb-mua-pop-up t ;; 'horiz
+              bbdb-mua-pop-up-window-size 0.3
+              bbdb-layout 'multi-line
+              bbdb-mua-update-interactive-p '(query . create)
+              bbdb-mua-auto-update-p 'bbdb-select-message
+              bbdb-user-mail-address-re jao-mails-regexp
+              bbdb-auto-notes-ignore-headers
+              `(("From" . ,jao-mails-regexp)
+                ("From" . ".*@.*github\.com.*")
+                ("To" . ".*@.*github\.com.*")
+                ("Reply-to" . ".*")
+                ("References" . ".*"))
+              bbdb-auto-notes-ignore-messages
+              `(("To" . ".*@.*github\\.com.*")
+                ("From" . ".*@.*github\\.com.*")
+                ("From" . "info-list")
+                ("From" . "no-?reply\\|deploy")
+                ("X-Mailer" . "MailChimp"))
+              bbdb-accept-message-alist
+              `(("To" . ,jao-mails-regexp)
+                ("Cc" . ,jao-mails-regexp)
+                ("BCc" . ,jao-mails-regexp))
+              bbdb-ignore-message-alist bbdb-auto-notes-ignore-messages)
+  :config
+  (add-hook 'message-setup-hook 'bbdb-mail-aliases)
+  ;; (add-hook 'bbdb-notice-mail-hook 'bbdb-auto-notes)
+  (add-hook 'bbdb-after-change-hook (lambda (arg) (bbdb-save)))
+  (require 'bbdb-anniv) ;; BBDB 3.x this gets birthdays in org agenda and diary
+  (add-hook 'diary-list-entries-hook 'bbdb-anniv-diary-entries)
+
+  (setq bbdb-file (expand-file-name "~/.emacs.d/bbdb"))
+  (if jao-notmuch-enabled
+      (bbdb-initialize 'message 'pgp)
+    (bbdb-initialize 'message 'pgp 'gnus)))
 ;;; narrowing
 (defvar jao-mail-consult-buffer-history nil)
 
diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el
index ab19fd5..48159ac 100644
--- a/custom/jao-custom-gnus.el
+++ b/custom/jao-custom-gnus.el
@@ -692,7 +692,7 @@
 
 ;;;; bbdb
 (with-eval-after-load "bbdb"
-  (bbdb-initialize 'gnus 'message 'pgp 'mail)
+  ;; (bbdb-initialize 'gnus 'message 'pgp)
   (bbdb-mua-auto-update-init 'gnus)
   (with-eval-after-load "gnus-sum"
     (define-key gnus-summary-mode-map ":" 'bbdb-mua-annotate-sender)