From 81ad062de322f5bb378f8a2e7b36ef7cd50ffeb9 Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Tue, 13 Nov 2018 19:20:14 -0500
Subject: [emacs] try out ebdb
---
.gitmodules | 3 +++
init.org | 76 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
lib/ebdb | 1 +
3 files changed, 80 insertions(+)
create mode 160000 lib/ebdb
diff --git a/.gitmodules b/.gitmodules
index 1c5d913..914abe7 100644
--- a/.gitmodules
+++ b/.gitmodules
@@ -57,6 +57,9 @@
[submodule "diff-hl"]
path = lib/diff-hl
url = git@github.com:dgutov/diff-hl.git
+[submodule "ebdb"]
+ path = lib/ebdb
+ url = git@github.com:emacsmirror/ebdb.git
[submodule "edit-indirect"]
path = lib/edit-indirect
url = git@github.com:Fanael/edit-indirect.git
diff --git a/init.org b/init.org
index 6152f3b..741ad7a 100644
--- a/init.org
+++ b/init.org
@@ -2032,6 +2032,82 @@ Convenient footnotes in =message-mode=.
(add-hook 'mail-citation-hook 'sc-cite-original))
#+end_src
+** ebdb
+
+#+begin_src emacs-lisp
+(use-package ebdb
+ :defer 1
+ :bind (:map gnus-group-mode-map ("e" . ebdb))
+ :config
+ (setq ebdb-sources (no-littering-expand-var-file-name "ebdb")))
+
+(use-package ebdb-com
+ :after ebdb)
+
+(use-package ebdb-complete
+ :after ebdb
+ :config
+ (ebdb-complete-enable))
+
+(use-package ebdb-gnus
+ :after ebdb)
+
+(use-package ebdb-message
+ :after ebdb)
+
+;; (use-package ebdb-vcard
+;; :after ebdb)
+#+end_src
+
+** COMMENT bbdb
+
+#+begin_comment
+[submodule "bbdb"]
+ path = lib/bbdb
+ url = https://git.savannah.nongnu.org/git/bbdb.git
+ load-path = lisp/elisp
+ info-path = doc
+ build-step = ./autogen.sh
+ build-step = ./configure --with-lispdir=elisp
+ build-step = make
+ build-step = make install
+#+end_comment
+
+#+begin_src emacs-lisp
+(use-package bbdb
+ :init
+ (bbdb-mua-auto-update-init 'message)
+ (setq bbdb-mua-auto-update-p 'query)
+ (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus))
+#+end_src
+
+** COMMENT message-x
+
+#+begin_src emacs-lisp
+(use-package message-x
+ :custom
+ (message-x-completion-alist
+ (quote
+ (("\\([rR]esent-\\|[rR]eply-\\)?[tT]o:\\|[bB]?[cC][cC]:" . gnus-harvest-find-address)
+ ((if
+ (boundp
+ (quote message-newgroups-header-regexp))
+ message-newgroups-header-regexp message-newsgroups-header-regexp)
+ . message-expand-group)))))
+#+end_src
+
+** COMMENT gnus-harvest
+
+#+begin_src emacs-lisp
+(use-package gnus-harvest
+ :commands gnus-harvest-install
+ :demand t
+ :config
+ (if (featurep 'message-x)
+ (gnus-harvest-install 'message-x)
+ (gnus-harvest-install)))
+#+end_src
+
** COMMENT gnus-alias :ARCHIVE:
#+begin_src emacs-lisp
diff --git a/lib/ebdb b/lib/ebdb
new file mode 160000
index 0000000..4444031
--- /dev/null
+++ b/lib/ebdb
@@ -0,0 +1 @@
+Subproject commit 44440310e739df9d46aaa38f9ac275199f25f439
--
cgit v1.2.3-83-g751a