Index: emacs/lisp/mail/rmail.el
diff -c emacs/lisp/mail/rmail.el:1.405 emacs/lisp/mail/rmail.el:1.406
*** emacs/lisp/mail/rmail.el:1.405 Mon Jul 4 17:46:22 2005
--- emacs/lisp/mail/rmail.el Fri Jul 8 22:31:32 2005
***************
*** 3316,3325 ****
(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))))))))
(defun rmail-expunge ()
"Erase deleted messages from Rmail file and summary buffer."
--- 3316,3325 ----
(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))))))
(defun rmail-expunge ()
"Erase deleted messages from Rmail file and summary buffer."
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
