[Misc] Replace custom mail addresses by ‘db/additional-mail-addresses’
This commit is contained in:
parent
5b06fad486
commit
9bcb8c86c0
17
gnus
17
gnus
|
@ -33,7 +33,7 @@ SMTP user."
|
||||||
(string :tag "SMTP Login Name"))))
|
(string :tag "SMTP Login Name"))))
|
||||||
|
|
||||||
(defcustom db/personal-gnus-filter-rules nil
|
(defcustom db/personal-gnus-filter-rules nil
|
||||||
"Default filter rules as used by Gnus for `db/personal-mail-address’."
|
"Default filter rules as used by Gnus for `user-mail-address’."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'sexp)
|
:type 'sexp)
|
||||||
|
|
||||||
|
@ -59,7 +59,7 @@ SMTP user."
|
||||||
;; Accounts
|
;; Accounts
|
||||||
|
|
||||||
(setq-default message-dont-reply-to-names
|
(setq-default message-dont-reply-to-names
|
||||||
(regexp-opt (list db/personal-mail-address db/work-mail-address)
|
(regexp-opt (cons user-mail-address db/additional-mail-addresses)
|
||||||
'words))
|
'words))
|
||||||
|
|
||||||
(setq gnus-select-method '(nnnil "")
|
(setq gnus-select-method '(nnnil "")
|
||||||
|
@ -570,17 +570,12 @@ If found, imports the certificate via gpgsm."
|
||||||
|
|
||||||
;;; Mail Formatting
|
;;; Mail Formatting
|
||||||
|
|
||||||
(setq gnus-posting-styles ; needs to be cleaned up somewhen
|
(setq gnus-posting-styles
|
||||||
`((".*"
|
`((".*"
|
||||||
(name ,user-full-name)
|
(name ,user-full-name)
|
||||||
(address ,db/personal-mail-address)
|
(address ,user-mail-address)
|
||||||
(signature-file "~/.signature-minimal")
|
(signature-file "~/.signature")
|
||||||
("X-Jabber-ID" ,db/jabber-id))
|
("X-Jabber-ID" ,db/jabber-id))))
|
||||||
(message-mail-p
|
|
||||||
(signature-file "~/.signature"))
|
|
||||||
("algebra20:.*"
|
|
||||||
(address ,db/personal-mail-address)
|
|
||||||
(signature-file "~/.signature"))))
|
|
||||||
|
|
||||||
;; http://mbork.pl/2015-11-28_Fixing_mml-attach-file_using_advice
|
;; http://mbork.pl/2015-11-28_Fixing_mml-attach-file_using_advice
|
||||||
(defun db/mml-attach-file--go-to-eob (orig-fun &rest args)
|
(defun db/mml-attach-file--go-to-eob (orig-fun &rest args)
|
||||||
|
|
15
init.el
15
init.el
|
@ -336,15 +336,10 @@ _h_ _l_ _o_k _y_ank
|
||||||
:group 'help
|
:group 'help
|
||||||
:tag "Personal settings")
|
:tag "Personal settings")
|
||||||
|
|
||||||
(defcustom db/personal-mail-address ""
|
(defcustom db/additional-mail-addresses nil
|
||||||
"Primary email address used for personal communication."
|
"List of additional email addresses (apart from `user-mail-address’)."
|
||||||
:group 'personal-settings
|
:group 'personal-settings
|
||||||
:type 'string)
|
:type '(repeat string))
|
||||||
|
|
||||||
(defcustom db/work-mail-address ""
|
|
||||||
"Primary email address used for email communication at work."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'string)
|
|
||||||
|
|
||||||
(defcustom db/jabber-id ""
|
(defcustom db/jabber-id ""
|
||||||
"Personal XMPP ID."
|
"Personal XMPP ID."
|
||||||
|
@ -659,8 +654,8 @@ _h_ _l_ _o_k _y_ank
|
||||||
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-opt
|
bbdb-user-mail-address-re (regexp-opt
|
||||||
(list db/personal-mail-address
|
(cons user-mail-address
|
||||||
db/work-mail-address)))
|
db/additional-mail-addresses)))
|
||||||
(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)
|
||||||
(run-with-timer 0 3600 #'bbdb-save)))
|
(run-with-timer 0 3600 #'bbdb-save)))
|
||||||
|
|
Loading…
Reference in New Issue