(rmail-only-expunge): Fix paren error.

Unconditionally try to leave point at the same old place.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 4b10c9374929a658061543b56d412060b1d1d4fc..7176376f12a9530216b9d983afcc5cdf7fc87872 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -3316,10 +3316,10 @@ See also user-option `rmail-confirm-expunge'."
          (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."