Function: nnfolder-delete-mail

nnfolder-delete-mail is a byte-compiled function defined in nnfolder.el.gz.

Signature

(nnfolder-delete-mail &optional LEAVE-DELIM)

Documentation

Delete the message that point is in.

If optional argument LEAVE-DELIM is t, then mailbox delimiter is not deleted. Point is left where the deleted region was.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/nnfolder.el.gz
(defun nnfolder-delete-mail (&optional leave-delim)
  "Delete the message that point is in.
If optional argument LEAVE-DELIM is t, then mailbox delimiter is not
deleted.  Point is left where the deleted region was."
  (save-restriction
    (narrow-to-region
     (save-excursion
       ;; In case point is at the beginning of the message already.
       (forward-line 1)
       (nnmail-search-unix-mail-delim-backward)
       (if leave-delim (progn (forward-line 1) (point))
	 (point)))
     (progn
       (forward-line 1)
       (if (nnmail-search-unix-mail-delim)
	   (point)
	 (point-max))))
    (run-hooks 'nnfolder-delete-mail-hook)
    (delete-region (point-min) (point-max))))