[Mail] Move ‘db/mail-accounts’ to db-mail package
This commit is contained in:
parent
1066e266fc
commit
784f5ce1fd
14
gnus.el
14
gnus.el
|
@ -15,19 +15,7 @@
|
||||||
|
|
||||||
;; Requires
|
;; Requires
|
||||||
|
|
||||||
(require 'dash)
|
(require 'db-mail)
|
||||||
(require 'gnus)
|
|
||||||
(require 'message)
|
|
||||||
(require 'gnus-util)
|
|
||||||
(require 'gnus-start)
|
|
||||||
(require 'gnus-group)
|
|
||||||
(require 'gnus-sum)
|
|
||||||
(require 'gnus-art)
|
|
||||||
(require 'gnus-score)
|
|
||||||
(require 'nntp)
|
|
||||||
(require 'gnus-agent)
|
|
||||||
(require 'nnml)
|
|
||||||
(require 'gnus-async)
|
|
||||||
|
|
||||||
;; Accounts
|
;; Accounts
|
||||||
|
|
||||||
|
|
25
init.el
25
init.el
|
@ -1197,28 +1197,6 @@
|
||||||
|
|
||||||
;; * Mail
|
;; * Mail
|
||||||
|
|
||||||
;; XXX: This needs some functionality for local accounts
|
|
||||||
(defcustom db/mail-accounts nil
|
|
||||||
"Configuration for email accounts.
|
|
||||||
This is a list of lists, where each such list specifies necessary
|
|
||||||
parameters for one particular email address."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type '(repeat
|
|
||||||
(list
|
|
||||||
(string :tag "EMail Address")
|
|
||||||
(string :tag "Group Name")
|
|
||||||
(string :tag "IMAP Server 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 `user-mail-address’."
|
|
||||||
:group 'personal-settings
|
|
||||||
:type 'sexp)
|
|
||||||
|
|
||||||
(use-package db-mail
|
(use-package db-mail
|
||||||
:commands (db/public-key
|
:commands (db/public-key
|
||||||
db/encryption-possible-p
|
db/encryption-possible-p
|
||||||
|
@ -1582,8 +1560,7 @@ parameters for one particular email address."
|
||||||
|
|
||||||
(use-package notmuch
|
(use-package notmuch
|
||||||
:defer t
|
:defer t
|
||||||
:init (progn
|
:init (setq notmuch-fcc-dirs nil))
|
||||||
(setq notmuch-fcc-dirs nil)))
|
|
||||||
|
|
||||||
(use-package smtpmail
|
(use-package smtpmail
|
||||||
:defer t
|
:defer t
|
||||||
|
|
|
@ -10,6 +10,28 @@
|
||||||
(require 'epg)
|
(require 'epg)
|
||||||
(require 'mml-sec)
|
(require 'mml-sec)
|
||||||
|
|
||||||
|
;; XXX: This needs some functionality for local accounts
|
||||||
|
(defcustom db/mail-accounts nil
|
||||||
|
"Configuration for email accounts.
|
||||||
|
This is a list of lists, where each such list specifies necessary
|
||||||
|
parameters for one particular email address."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type '(repeat
|
||||||
|
(list
|
||||||
|
(string :tag "EMail Address")
|
||||||
|
(string :tag "Group Name")
|
||||||
|
(string :tag "IMAP Server 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 `user-mail-address’."
|
||||||
|
:group 'personal-settings
|
||||||
|
:type 'sexp)
|
||||||
|
|
||||||
(defun db/public-key (address &optional method)
|
(defun db/public-key (address &optional method)
|
||||||
"Return valid public keys for ADDRESS and given METHOD.
|
"Return valid public keys for ADDRESS and given METHOD.
|
||||||
|
|
||||||
|
@ -19,11 +41,11 @@ ADDRESS is a string containing exactly one email address."
|
||||||
(unless method (setq method "pgpmime"))
|
(unless method (setq method "pgpmime"))
|
||||||
(epg-list-keys (epg-make-context
|
(epg-list-keys (epg-make-context
|
||||||
(cond
|
(cond
|
||||||
((string= method "smime")
|
((string= method "smime")
|
||||||
'CMS)
|
'CMS)
|
||||||
((string= method "pgpmime")
|
((string= method "pgpmime")
|
||||||
'OpenPGP)
|
'OpenPGP)
|
||||||
(t (error "Unknown method %s" method))))
|
(t (error "Unknown method %s" method))))
|
||||||
address))
|
address))
|
||||||
|
|
||||||
(defun db/encryption-possible-p (recipients method)
|
(defun db/encryption-possible-p (recipients method)
|
||||||
|
|
Loading…
Reference in New Issue