From 881fd7eb9b15ac712c2a71adeb5868cbfaec158d Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Sat, 23 Apr 1994 02:30:17 +0000 Subject: Cosmetic changes. --- lisp/mail/rmail.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'lisp') diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index afdb1864643..e991b1d2033 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -173,8 +173,8 @@ Called with region narrowed to the message, including headers.") ;; On some systems the time zone can appear after the year, too. time-zone-regexp - ;; I'm not sure what this is. - "\\(remote from [^\n]*\\)?" + ;; Old uucp cruft. + "\\(remote from .*\\)?" "\n")) nil) @@ -1686,8 +1686,9 @@ Deleted messages stay in the file until the \\[rmail-expunge] command is given." (let* ((omax (- (buffer-size) (point-max))) (omin (- (buffer-size) (point-min))) (opoint (if (and (> rmail-current-message 0) - (= ?D (aref rmail-deleted-vector rmail-current-message))) - 0 (- (point) (point-min)))) + (rmail-message-deleted-p rmail-current-message)) + 0 + (- (point) (point-min)))) (messages-head (cons (aref rmail-message-vector 0) nil)) (messages-tail messages-head) ;; Don't make any undo records for the expunging. -- cgit v1.2.1