Mercurial > emacs
diff lisp/mail/rmail.el @ 64177:d1baae4e247f
(rmail-only-expunge): Fix paren error.
Unconditionally try to leave point at the same old place.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 08 Jul 2005 22:31:32 +0000 |
| parents | 18a818a2ee7c |
| children | fafd692d1e40 fbb2bea03df9 |
line wrap: on
line diff
--- a/lisp/mail/rmail.el Fri Jul 08 22:30:17 2005 +0000 +++ b/lisp/mail/rmail.el Fri Jul 08 22:31:32 2005 +0000 @@ -3316,10 +3316,10 @@ (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) (if (not dont-show) (rmail-show-message - (if (zerop rmail-current-message) 1 nil) - (if rmail-enable-mime - (goto-char (+ (point-min) opoint)) - (goto-char (+ (point) opoint)))))))) + (if (zerop rmail-current-message) 1 nil))) + (if rmail-enable-mime + (goto-char (+ (point-min) opoint)) + (goto-char (+ (point) opoint)))))) (defun rmail-expunge () "Erase deleted messages from Rmail file and summary buffer."