Function: rmail-collect-deleted

rmail-collect-deleted is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-collect-deleted MESSAGE-END)

Documentation

Collect the message deletion flags for each message.

MESSAGE-END is the buffer position corresponding to the end of the message. Point is at the beginning of the message.

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
(defsubst rmail-collect-deleted (message-end)
  "Collect the message deletion flags for each message.
MESSAGE-END is the buffer position corresponding to the end of
the message.  Point is at the beginning of the message."
  ;; NOTE: This piece of code will be executed on a per-message basis.
  ;; In the face of thousands of messages, it has to be as fast as
  ;; possible, hence some brute force constant use is employed in
  ;; addition to inlining.
  (save-excursion
    (setq deleted-head
	  (cons (if (and (search-forward (concat rmail-attribute-header ": ") message-end t)
			 (looking-at "\\?D"))
		    ?D
		  ?\s) deleted-head))))