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

[Misc] Moving mail-related customization to gnus’ configuration file

This commit is contained in:
Daniel - 2017-11-14 16:04:49 +01:00
parent 9824cbb4c0
commit 7acc66afd7
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
2 changed files with 29 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
gnus
View File

@ -13,6 +13,35 @@
;;; General
;; Customization
(defcustom db/jabber-id ""
"Personal XMPP ID."
:group 'personal-settings
:type 'string)
(defcustom db/smtp-accounts nil
"Configuration for sending mail as used by `db/set-smtp-server-from-header’, which see.
This is a list of lists, where each such list specifies the SMTP
parameters for one particular email address. This specification
consists of the mail address, the address of the mail server, the
stream type (e.g. `starttls’), the SMTP service port, and the
SMTP user."
:group 'personal-settings
:type '(repeat
(list
(string :tag "EMail Address")
(string :tag "SMTP Server Address")
(choice :tag "SMTP Stream Type"
(const nil) (const starttls) (const plain) (const ssl))
(integer :tag "SMTP Service Port")
(string :tag "SMTP Login Name"))))
(defcustom db/personal-gnus-filter-rules nil
"Default filter rules as used by Gnus for `db/personal-mail-address’."
:group 'personal-settings
:type 'sexp)
;; Requires
(require 'gnus)

27
init.el
View File

@ -346,33 +346,6 @@ _h_ _l_ _o_k _y_ank
:group 'personal-settings
:type 'string)
(defcustom db/jabber-id ""
"Personal XMPP ID."
:group 'personal-settings
:type 'string)
(defcustom db/smtp-accounts nil
"Configuration for sending mail as used by `db/set-smtp-server-from-header’, which see.
This is a list of lists, where each such list specifies the SMTP
parameters for one particular email address. This specification
consists of the mail address, the address of the mail server, the
stream type (e.g. `starttls’), the SMTP service port, and the
SMTP user."
:group 'personal-settings
:type '(repeat
(list
(string :tag "EMail Address")
(string :tag "SMTP Server Address")
(choice :tag "SMTP Stream Type"
(const nil) (const starttls) (const plain) (const ssl))
(integer :tag "SMTP Service Port")
(string :tag "SMTP Login Name"))))
(defcustom db/personal-gnus-filter-rules nil
"Default filter rules as used by Gnus for `db/personal-mail-address’."
:group 'personal-settings
:type 'sexp)
;; * Builtin Variables