[Gnus] Some todo-items for new email abstraction
This commit is contained in:
parent
2e06f84ade
commit
cf8c10d500
5
gnus.el
5
gnus.el
|
@ -15,6 +15,7 @@
|
||||||
|
|
||||||
;; Customization
|
;; Customization
|
||||||
|
|
||||||
|
;; XXX: This needs some functionality for local accounts
|
||||||
(defcustom db/mail-accounts nil
|
(defcustom db/mail-accounts nil
|
||||||
"Configuration for email accounts.
|
"Configuration for email accounts.
|
||||||
This is a list of lists, where each such list specifies necessary
|
This is a list of lists, where each such list specifies necessary
|
||||||
|
@ -67,6 +68,7 @@ parameters for one particular email address."
|
||||||
;; `db/mail-accounts’
|
;; `db/mail-accounts’
|
||||||
gnus-secondary-select-methods
|
gnus-secondary-select-methods
|
||||||
(append
|
(append
|
||||||
|
;; immutable account definitions
|
||||||
`((nntp "etsep"
|
`((nntp "etsep"
|
||||||
(nntp-open-connection-function nntp-open-tls-stream)
|
(nntp-open-connection-function nntp-open-tls-stream)
|
||||||
(nntp-port-number 563)
|
(nntp-port-number 563)
|
||||||
|
@ -94,6 +96,7 @@ parameters for one particular email address."
|
||||||
(nnir-notmuch-remove-prefix ,(expand-file-name "~/Mail/archive/"))))
|
(nnir-notmuch-remove-prefix ,(expand-file-name "~/Mail/archive/"))))
|
||||||
|
|
||||||
;; automatically add accounts when address is not nil and not the empty string
|
;; automatically add accounts when address is not nil and not the empty string
|
||||||
|
;; XXX: this should be abstracted away in some kind of function
|
||||||
(remove-if #'null
|
(remove-if #'null
|
||||||
(mapcar (lambda (account)
|
(mapcar (lambda (account)
|
||||||
(let ((account-name (nth 1 account))
|
(let ((account-name (nth 1 account))
|
||||||
|
@ -606,6 +609,7 @@ If found, imports the certificate via gpgsm."
|
||||||
(address ,user-mail-address)
|
(address ,user-mail-address)
|
||||||
(signature-file "~/.signature")
|
(signature-file "~/.signature")
|
||||||
("X-Jabber-ID" ,db/jabber-id)))
|
("X-Jabber-ID" ,db/jabber-id)))
|
||||||
|
;; XXX: this should be abstracted away in some kind of function
|
||||||
(mapcar (lambda (account)
|
(mapcar (lambda (account)
|
||||||
(let ((account-name (nth 1 account))
|
(let ((account-name (nth 1 account))
|
||||||
(account-address (nth 0 account)))
|
(account-address (nth 0 account)))
|
||||||
|
@ -675,6 +679,7 @@ entry of the current mail."
|
||||||
(if account
|
(if account
|
||||||
(progn
|
(progn
|
||||||
(message "Sending with account for %s" address)
|
(message "Sending with account for %s" address)
|
||||||
|
;; XXX: these calls to `nth’ should be abstracted away
|
||||||
(let ((smtpmail-smtp-server (nth 3 account))
|
(let ((smtpmail-smtp-server (nth 3 account))
|
||||||
(smtpmail-stream-type (nth 4 account))
|
(smtpmail-stream-type (nth 4 account))
|
||||||
(smtpmail-smtp-service (nth 5 account))
|
(smtpmail-smtp-service (nth 5 account))
|
||||||
|
|
Loading…
Reference in New Issue