changeset 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 f0087630a3a5
children 0b1f11faf0b2
files lisp/mail/rmail.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
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."