Function: rmail-delete-forward

rmail-delete-forward is an interactive and byte-compiled function defined in rmail.el.gz.

Signature

(rmail-delete-forward &optional COUNT)

Documentation

Delete this message and move to next nondeleted one.

Deleted messages stay in the file until the M-x rmail-expunge (rmail-expunge) command is given. Optional argument COUNT (interactively, prefix argument) is a repeat count; negative argument means move backwards instead of forwards.

Returns t if a new message is displayed after the delete, or nil otherwise.

View in manual

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
(defun rmail-delete-forward (&optional count)
  "Delete this message and move to next nondeleted one.
Deleted messages stay in the file until the \\[rmail-expunge] command is given.
Optional argument COUNT (interactively, prefix argument) is a repeat count;
negative argument means move backwards instead of forwards.

Returns t if a new message is displayed after the delete, or nil otherwise."
  (interactive "p")
  (if (not count) (setq count 1))
  (let (value backward)
    (if (< count 0)
	(setq count (- count) backward t))
    (dotimes (_ count)
      (rmail-set-attribute rmail-deleted-attr-index t)
      (run-hooks 'rmail-delete-message-hook)
      (let ((del-msg rmail-current-message))
	(if (rmail-summary-exists)
	    (rmail-select-summary
	     (rmail-summary-mark-deleted del-msg)))
	(setq value (rmail-next-undeleted-message (if backward -1 1)))))
    (rmail-maybe-display-summary)
    value))