(rmail-message-deleted-p): Add as alias.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b20604fa2613f3a29ed977af971f43da592959f3..2f6dda2bbc68ff966a4ee32578629794c21510be 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,21 @@
 2004-09-27  Richard M. Stallman  <rms@gnu.org>
 
+       * mail/rmaildesc.el (rmail-message-deleted-p): Add as alias.
+
+       * mail/rmail.el (rmail-message-vector, rmail-deleted-vector)
+       (rmail-msgref-vector, rmail-summary-vector): Vars deleted.
+       All code to initialize them deleted too.
+       (rmail-forget-messages): Function deleted.  Callers changed.
+       (rmail-set-message-counters): Function deleted.  Callers changed.
+       (rmail-count-new-messages): Function deleted.  Callers changed.
+       (rmail-set-message-counters-counter): Likewise.
+       (rmail-maybe-set-message-counters): Now no-op.
+       (rmail-message-deleted-p, rmail-set-message-deleted-p): Fns deleted.
+       (rmail-msg-number-after-expunge): Fn deleted.
+       (rmail): Delete excess closeparen.
+       (rmail-initialize-messages): Doc fix.
+       (rmail-expunge-confirmed): Update to use rmail-desc-deleted-p.
+       
        * mail/rmailsum.el (rmail-make-summary-line): Function deleted.
        (rmail-new-summary): Make it work once again as in old version.
        (rmail-summary-get-summary): Call rmail-summary-line-decoder.

diff --git a/lisp/mail/rmaildesc.el b/lisp/mail/rmaildesc.el
index 10430deb032ba64a0cbd1e40911e6f568494199d..87584a75f44469036210582ce843489c005d85a4 100644 (file)
--- a/lisp/mail/rmaildesc.el
+++ b/lisp/mail/rmaildesc.el
@@ -266,6 +266,7 @@ The current buffer, likely narrowed, contains message N."
 (defun rmail-desc-deleted-p (n)
   "Return non-nil if message N is marked for deletion."
   (rmail-desc-attr-p rmail-desc-deleted-index n))
+(defalias 'rmail-message-deleted-p 'rmail-desc-deleted-p)
 
 (defun rmail-desc-delete-maybe (n)
   "Determine if message N is marked for deletion.  If so then delete it.