Mercurial > emacs
changeset 7037:c205795eecc6
Cosmetic changes.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 23 Apr 1994 02:30:17 +0000 |
parents | b5a68d0dd099 |
children | e640d438df9a |
files | lisp/mail/rmail.el |
diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Sat Apr 23 02:15:05 1994 +0000 +++ b/lisp/mail/rmail.el Sat Apr 23 02:30:17 1994 +0000 @@ -173,8 +173,8 @@ ;; 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 @@ (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.