exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

[Mail] Set some related variables directly via ‘db/mail-accounts’

Browse Source
This commit is contained in:
Daniel Borchmann 2019-03-02 11:33:21 +01:00
parent 6b47a509f3
commit 4128bcd249
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
2 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
init.el
View File

@ -1245,9 +1245,7 @@ search commands like `db/helm-shortcuts’."
:init (setq bbdb-completion-display-record nil :init (setq bbdb-completion-display-record nil
bbdb-complete-mail-allow-cycling t bbdb-complete-mail-allow-cycling t
bbdb-mua-auto-update-p 'query bbdb-mua-auto-update-p 'query
bbdb-default-country "Germany" bbdb-default-country "Germany")
bbdb-user-mail-address-re (regexp-quote user-mail-address) ; XXX: set in db/mail-accounts
)
:config (progn :config (progn
(add-hook 'message-setup-hook 'bbdb-mail-aliases) (add-hook 'message-setup-hook 'bbdb-mail-aliases)
(add-hook 'mail-setup-hook 'bbdb-mail-aliases) (add-hook 'mail-setup-hook 'bbdb-mail-aliases)
@ -1263,8 +1261,6 @@ search commands like `db/helm-shortcuts’."
gnus-cache-directory (expand-file-name "cache/" gnus-directory) gnus-cache-directory (expand-file-name "cache/" gnus-directory)
gnus-verbose 10 gnus-verbose 10
message-dont-reply-to-names (regexp-quote user-mail-address) ; XXX: set in db/mail-accounts
gnus-ignored-from-addresses message-dont-reply-to-names
message-directory (expand-file-name "mail/" gnus-directory) message-directory (expand-file-name "mail/" gnus-directory)
nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory) nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory)
nnml-directory message-directory nnml-directory message-directory

9
site-lisp/db-mail.el
View File

@ -95,7 +95,14 @@ The values of the latter two variables are usually those of
(address ,account-address) (address ,account-address)
(signature-file "~/.signature") (signature-file "~/.signature")
("X-Jabber-ID" ,db/jabber-id)))) ("X-Jabber-ID" ,db/jabber-id))))
value)))) value)))
;; Update some variables
(setq bbdb-user-mail-address-re (regexp-opt (mapcar #'car db/mail-accounts)
'words)
message-dont-reply-to-names (regexp-opt (mapcar #'car db/mail-accounts)
'words)
gnus-ignored-from-addresses message-dont-reply-to-names))
(defcustom db/mail-accounts nil (defcustom db/mail-accounts nil
"Configuration for remote email accounts. "Configuration for remote email accounts.