Function: feedmail-one-last-look

feedmail-one-last-look is a byte-compiled function defined in feedmail.el.gz.

Signature

(feedmail-one-last-look BUFFER)

Documentation

Offer the user one last chance to give it up.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/feedmail.el.gz
(defun feedmail-one-last-look (buffer)
  "Offer the user one last chance to give it up."
  (feedmail-say-debug ">in-> feedmail-one-last-look")
  (save-excursion
    ;; FIXME: switch-to-buffer may fail or pop up a new frame
    ;; (in minibuffer-only frames, for example) and save-window-excursion
    ;; won't delete the newly created frame upon exit!
    (save-window-excursion
      (switch-to-buffer buffer)
      (if (numberp feedmail-confirm-outgoing-timeout)
	  (y-or-n-p-with-timeout
	   "FQM: Send this email? "
	   (abs feedmail-confirm-outgoing-timeout)
	   (> feedmail-confirm-outgoing-timeout 0))
	(y-or-n-p "FQM: Send this email? "))
      )))