Function: rmail-expunge-confirmed

rmail-expunge-confirmed is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-expunge-confirmed)

Documentation

Return t if expunge is needed and desirable.

If rmail-confirm-expunge is non-nil, ask user to confirm.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
(defun rmail-expunge-confirmed ()
  "Return t if expunge is needed and desirable.
If `rmail-confirm-expunge' is non-nil, ask user to confirm."
  (set-buffer rmail-buffer)
  (and (stringp rmail-deleted-vector)
       (string-match "D" rmail-deleted-vector)
       (if rmail-confirm-expunge
	   (and (funcall rmail-confirm-expunge
			 "Erase deleted messages from Rmail file? ")
		;; In case r-c-e's function returns non-nil, non-t
		t)
	 t)))