Function: rmail-msg-number-after-expunge

rmail-msg-number-after-expunge is a byte-compiled function defined in rmail.el.gz.

Signature

(rmail-msg-number-after-expunge DELETEDVEC OLDNUM)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/rmail.el.gz
;; Expunging.

;; Compute the message number a given message would have after expunging.
;; The present number of the message is OLDNUM.
;; DELETEDVEC should be rmail-deleted-vector.
;; The value is nil for a message that would be deleted.
(defun rmail-msg-number-after-expunge (deletedvec oldnum)
  (if (or (null oldnum) (= (aref deletedvec oldnum) ?D))
      nil
    (let ((i 0)
	  (newnum 0))
      (while (< i oldnum)
	(if (/= (aref deletedvec i) ?D)
	    (setq newnum (1+ newnum)))
	(setq i (1+ i)))
      newnum)))