(rmail-set-message-counters): Don't use "D"

as dummy 0-th char of rmail-deleted-vector.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 88f74ebc81e9d76d56d681f5335e49a04e7e3564..334017d53307d54145993a55c730dac5b45bf323 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,11 @@
 
        * md5.el: Removed.  There's a built-in function, now.
 
+2000-11-30  Markus Rost  <rost@math.ohio-state.edu>
+
+       * mail/rmail.el (rmail-set-message-counters): Don't use "D"
+       as dummy 0-th char of rmail-deleted-vector.
+
 2000-11-30  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * ps-print.el (ps-end-job): Bind case-fold-search only after

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index f26307b23a51adf2c5825c0ee8c3af14abeaeb77..70506ef5ad17bb9cf912b60696953d2ddf7b5297 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2137,7 +2137,7 @@ change the invisible header text."
                   (max 1 (- total-messages messages-after-point))))
        (setq rmail-message-vector
              (apply 'vector (cons (point-min-marker) messages-head))
-             rmail-deleted-vector (concat "D" deleted-head)
+             rmail-deleted-vector (concat "0" deleted-head)
              rmail-summary-vector (make-vector rmail-total-messages nil)
              rmail-msgref-vector (make-vector (1+ rmail-total-messages) nil))
        (let ((i 0))