home

Unnamed repository; edit this file 'description' to name the repository.
Log | Files | Refs | README | LICENSE

commit 8c1e9f2ec57d7006482750f9b20c2967db60b191
parent a89ea0b270ab2e954c7061b5c597a6d27926eef4
Author: Vincent Demeester <vincent@sbr.pm>
Date:   Fri, 17 Apr 2020 16:19:29 +0200

emacs: initial bbdb configuration 🎛

Signed-off-by: Vincent Demeester <vincent@sbr.pm>

Diffstat:
Mmodules/profiles/emacs.nix | 1+
Mtools/gnus/init.el | 34++++++++++++++++++++++++++++++++++
2 files changed, 35 insertions(+), 0 deletions(-)

diff --git a/modules/profiles/emacs.nix b/modules/profiles/emacs.nix @@ -56,6 +56,7 @@ in aggressive-indent async avy + bbdb pkgs.bookmark-plus company company-emoji diff --git a/tools/gnus/init.el b/tools/gnus/init.el @@ -15,6 +15,7 @@ (setq gnus-registry-cache-file "~/desktop/gnus/gnus.registry.eld") (setq gnus-select-method '(nnnil)) (setq nntp-authinfo-file "~/.authinfo.gpg") + (setq gnus-use-bbdb t) (setq gnus-secondary-select-methods '((nntp "news.gwene.org") (nnimap "prv" @@ -170,3 +171,36 @@ :after (gnus dired) :hook (dired-mode . gnus-dired-mode)) ;; -GnusDired + +;; GnusDemon +(use-package gnus-demon + :after (gnus) + :config + ;; Get mail every 30min + (gnus-demon-add-handler 'gnus-group-get-new-news 30 t) + (gnus-demon-init)) +;; -GnusDemon + +;; UseBBDB +(use-package bbdb + :config + (setq-default bbdb-file "~/desktop/gnus/bbdb") + (bbdb-initialize 'message 'gnus 'com 'anniv) + (bbdb-mua-auto-update-init 'message 'gnus 'com 'anniv) + + (setq-default bbdb-offer-save 1 ;; 1 means save-without-asking + bbdb-always-add-addresses t + bbdb-update-records-p 'create ;; Auto-create + bbdb-snarf-rule-default 'mail ;; Just snarf with mail by default + bbdb-mail-avoid-redundancy nil ;; always use full name + bbdb-add-name 2 ;; show name-mismatches for 2 secs + bbdb-add-mails t ;; add new addresses to existing... + bbdb-canonicalize-redundant-mails t ;; x@foo.bar.cx => x@bar.cx + bbdb-completion-list t ;; complete on anything + bbdb-complete-mail-allow-cycling t ;; cycle trough matches + bbdb-phone-style nil ;; No north american + bbdb-mua-pop-up nil + bbdb-mua-pop-up-window-size 2 + bbdb-mua-update-interactive-p '(query . query) + bbdb-pop-up-layout 'one-line)) +;; -UseBBDB