避免使用者在神智不清的情況下用message.el幹出無法挽回的蠢事、寄出不該寄的email。有了這個設定，在寄出信件前會先對您施行酒測。

message-test-mind-before-send.el

;; 避免使用者在神智不清的情況下用message.el幹出無法挽回的蠢事、寄出不該寄的email
(setq message-confirm-send t)
(defun message-test-mind-before-send ()
  (interactive)
  (let* ((a (random 50))
         (b (random 15))
         (ans (+ a b))
         (input (string-to-int (read-from-minibuffer (format "%s + %s = " a b)))))
    (if (eq input ans)
        (message-send-and-exit)
      (progn (message "Wrong answer, please try again")
             (sleep-for 2)
             (message-test-mind-before-send)
             ))))
(define-key message-mode-map (kbd "C-c C-c") 'message-test-mind-before-send)