Function: gnus-draft-reminder

gnus-draft-reminder is an autoloaded, interactive and byte-compiled function defined in gnus-draft.el.gz.

Signature

(gnus-draft-reminder)

Documentation

Reminder user if there are unsent drafts.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-draft.el.gz
;;;###autoload
(defun gnus-draft-reminder ()
  "Reminder user if there are unsent drafts."
  (interactive)
  (if (gnus-alive-p)
      (let (active)
	(catch 'continue
	  (dolist (group '("nndraft:drafts" "nndraft:queue"))
	    (setq active (gnus-activate-group group))
	    (if (and active (>= (cdr active) (car active)))
		(if (y-or-n-p "There are unsent drafts.  Confirm to exit? ")
		    (throw 'continue t)
		  (error "Stop!"))))))))