[Emacs-diffs] Changes to emacs/lisp/mail/rmail.el

[Richard M . Stallman]

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