diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-11-13 00:08:51 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-11-13 00:08:51 -0500 |
| commit | 34d72f833828f2ef5f174cbbfc23bd69b67fbe42 (patch) | |
| tree | 08ff7a647f4f3e538d3a535ece704444b78f3f10 /lisp/init-gnus.el | |
| parent | 4f6ac41777b4807b2ff0ed9cfa5d2e0ac9161b20 (diff) | |
| download | emacs.d-34d72f833828f2ef5f174cbbfc23bd69b67fbe42.tar.gz | |
Confirm address when sending mail
Diffstat (limited to 'lisp/init-gnus.el')
| -rw-r--r-- | lisp/init-gnus.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/init-gnus.el b/lisp/init-gnus.el index fd02df2..bd0f072 100644 --- a/lisp/init-gnus.el +++ b/lisp/init-gnus.el @@ -72,6 +72,14 @@ (gnus-group-exit)))) (add-hook 'kill-emacs-hook 'gnus-grace-exit-before-kill-emacs) +(defun km/message-confirm-sender () + "Stop sending message from the wrong address." + (unless (yes-or-no-p (format "Send message from %s?" + (message-field-value "From"))) + (user-error "Not sending message"))) + +(add-hook 'message-send-hook 'km/message-confirm-sender) + ;; Start in topic mode. (add-hook 'gnus-group-mode-hook 'gnus-topic-mode) |