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 | 881fd7eb9b15ac712c2a71adeb5868cbfaec158d (patch) | |
| tree | 27a445adbc30a21b9048e335b7c386004135939a /lisp | |
| parent | 7c4b8f8c810438472e666685b8e3c066087e3802 (diff) | |
| download | emacs-881fd7eb9b15ac712c2a71adeb5868cbfaec158d.tar.gz | |
Cosmetic changes.
Diffstat (limited to 'lisp')
| -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. |