Commit 881fd7eb authored by Karl Heuer's avatar Karl Heuer
Browse files

Cosmetic changes.

parent 7c4b8f8c
......@@ -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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment