From 83811b419a4771ebf592357045333c08be0a6377 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Tue, 14 Nov 2017 15:53:25 +0100 Subject: [PATCH] [Private] Move variables to custom.el --- init.el | 37 +++++++++++++++++++++++++++++++++++++ private | 2 +- 2 files changed, 38 insertions(+), 1 deletion(-) diff --git a/init.el b/init.el index 0034625..f00cc6a 100644 --- a/init.el +++ b/init.el @@ -336,6 +336,43 @@ _h_ _l_ _o_k _y_ank :group 'help :tag "Personal settings") +(defcustom db/personal-mail-address "" + "Primary email address used for personal communication." + :group 'personal-settings + :type 'string) + +(defcustom db/work-mail-address "" + "Primary email address used for email communication at work." + :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 diff --git a/private b/private index 01fbc9c..66752bf 160000 --- a/private +++ b/private @@ -1 +1 @@ -Subproject commit 01fbc9c01bd55c03dca5cf53c8624b04db83d1f2 +Subproject commit 66752bf5034871a54092c6ce9a9d05ba91d67863