From 48bed56c5fb60d5abc042e0afe3bd411cb355133 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 2 Mar 2019 09:04:20 +0100 Subject: [PATCH] [Mail] Remove `db/additional-mail-addresses' --- init.el | 14 +++----------- 1 file changed, 3 insertions(+), 11 deletions(-) diff --git a/init.el b/init.el index 9a94c85..3c66ca4 100644 --- a/init.el +++ b/init.el @@ -289,11 +289,6 @@ :group 'help :tag "Personal settings") -(defcustom db/additional-mail-addresses nil - "List of additional email addresses (apart from `user-mail-address’)." - :group 'personal-settings - :type '(repeat string)) - (defcustom db/jabber-id "" "Personal XMPP ID." :group 'personal-settings @@ -1220,9 +1215,8 @@ bbdb-complete-mail-allow-cycling t bbdb-mua-auto-update-p 'query bbdb-default-country "Germany" - bbdb-user-mail-address-re (regexp-opt - (cons user-mail-address - db/additional-mail-addresses))) + bbdb-user-mail-address-re (regexp-quote user-mail-address) ; XXX: set in db/mail-accounts + ) :config (progn (add-hook 'message-setup-hook 'bbdb-mail-aliases) (add-hook 'mail-setup-hook 'bbdb-mail-aliases) @@ -1238,9 +1232,7 @@ gnus-cache-directory (expand-file-name "cache/" gnus-directory) gnus-verbose 10 - message-dont-reply-to-names (regexp-opt (cons user-mail-address - db/additional-mail-addresses) - 'words) + 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) nnmail-message-id-cache-file (expand-file-name ".nnmail-cache" gnus-directory)