From 3913aec12e5f1a06abfebfe3ef5e6aa4bd63485a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 27 Sep 2004 23:09:05 +0000 Subject: [PATCH] (rmail-message-deleted-p): Add as alias. --- lisp/ChangeLog | 16 ++++++++++++++++ lisp/mail/rmaildesc.el | 1 + 2 files changed, 17 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b20604fa261..2f6dda2bbc6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,21 @@ 2004-09-27 Richard M. Stallman + * 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 10430deb032..87584a75f44 100644 --- 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. -- 2.39.2