mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-19 18:13:55 +00:00
Code Issues Releases Activity

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

Browse Source 
Unconditionally try to leave point at the same old place.
This commit is contained in:
Richard M. Stallman 2005-07-08 22:31:32 +00:00
parent de2f4698fe
commit c32e5fb00d
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/mail/rmail.el
View File

@ -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."