diff options
author | Karl Heuer <kwzh@gnu.org> | 1994-04-23 02:30:17 +0000 |
---|---|---|
committer | Karl Heuer <kwzh@gnu.org> | 1994-04-23 02:30:17 +0000 |
commit | 96359b1b5d727850ae03a14cf96411a474668db6 (patch) | |
tree | fbe2cef90bc9721eb0a41e89944d75eb9bff86f7 /lisp/mail/rmail.el | |
parent | 630f6924cfdca99c6e32afcb0ecb7b4ec5b321f6 (diff) | |
download | emacs-96359b1b5d727850ae03a14cf96411a474668db6.tar.gz |
Cosmetic changes.
Diffstat (limited to 'lisp/mail/rmail.el')
-rw-r--r-- | lisp/mail/rmail.el | 9 |
1 files changed, 5 insertions, 4 deletions
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. |