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

[Mail] Make sending mails more robust

Browse Source
This commit is contained in:
Daniel Borchmann 2019-02-09 14:00:24 +01:00
parent 809622d982
commit 3f35471081
Signed by: exot
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
site-lisp/db-mail.el
View File

@ -188,10 +188,17 @@ entry of the current mail."
(smtpmail-stream-type (nth 4 account)) (smtpmail-stream-type (nth 4 account))
(smtpmail-smtp-service (nth 5 account)) (smtpmail-smtp-service (nth 5 account))
(smtpmail-smtp-user (nth 6 account))) (smtpmail-smtp-user (nth 6 account)))
(cl-assert (cl-notany #'null (list smtpmail-smtp-server
smtpmail-stream-type
smtpmail-smtp-service
smtpmail-smtp-user))
t
"Settings %s for sending mail are not complete for account %s."
address)
(apply orig-fun args))) (apply orig-fun args)))
(progn (if (yes-or-no-p "Sending with default account settings?")
(message "Sending with default account settings") (apply orig-fun args)
(apply orig-fun args))))) (message "Sending aborted as requested by user.")))))
;; Gnus utility functions ;; Gnus utility functions