diff options
| author | Richard M. Stallman | 2005-07-08 22:31:32 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2005-07-08 22:31:32 +0000 |
| commit | c32e5fb00d2866866dea360be788f4b7c4c0b0bf (patch) | |
| tree | 2591edbac21f20adfb4662bdaa2c97f2c299d74b | |
| parent | de2f4698fe911238e0890dc3bd8e959de4c4dc8c (diff) | |
| download | emacs-c32e5fb00d2866866dea360be788f4b7c4c0b0bf.tar.gz emacs-c32e5fb00d2866866dea360be788f4b7c4c0b0bf.zip | |
(rmail-only-expunge): Fix paren error.
Unconditionally try to leave point at the same old place.
| -rw-r--r-- | lisp/mail/rmail.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 4b10c937492..7176376f12a 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el | |||
| @@ -3316,10 +3316,10 @@ See also user-option `rmail-confirm-expunge'." | |||
| 3316 | (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) | 3316 | (narrow-to-region (- (buffer-size) omin) (- (buffer-size) omax))) |
| 3317 | (if (not dont-show) | 3317 | (if (not dont-show) |
| 3318 | (rmail-show-message | 3318 | (rmail-show-message |
| 3319 | (if (zerop rmail-current-message) 1 nil) | 3319 | (if (zerop rmail-current-message) 1 nil))) |
| 3320 | (if rmail-enable-mime | 3320 | (if rmail-enable-mime |
| 3321 | (goto-char (+ (point-min) opoint)) | 3321 | (goto-char (+ (point-min) opoint)) |
| 3322 | (goto-char (+ (point) opoint)))))))) | 3322 | (goto-char (+ (point) opoint)))))) |
| 3323 | 3323 | ||
| 3324 | (defun rmail-expunge () | 3324 | (defun rmail-expunge () |
| 3325 | "Erase deleted messages from Rmail file and summary buffer." | 3325 | "Erase deleted messages from Rmail file and summary buffer." |