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

[Richard M. Stallman]

Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.123 emacs/lisp/mail/rmailsum.el:1.124
*** emacs/lisp/mail/rmailsum.el:1.123   Thu Dec 13 02:52:53 2001
--- emacs/lisp/mail/rmailsum.el Sat Feb 23 12:14:27 2002
***************
*** 1524,1531 ****
     (progn (require 'rmailout)
          (list (rmail-output-read-file-name)
                (prefix-numeric-value current-prefix-arg))))
!   (let ((i 0))
!     (while (< i n)
        (setq i (1+ i))
        (with-current-buffer rmail-buffer
        (let ((rmail-delete-after-output nil))
--- 1524,1537 ----
     (progn (require 'rmailout)
          (list (rmail-output-read-file-name)
                (prefix-numeric-value current-prefix-arg))))
!   (let ((i 0) prev-msg)
!     (while
!       (and (< i n)
!            (progn (rmail-summary-goto-msg)
!                   (not (eq prev-msg
!                            (setq prev-msg
!                                  (with-current-buffer rmail-buffer
!                                    rmail-current-message))))))
        (setq i (1+ i))
        (with-current-buffer rmail-buffer
        (let ((rmail-delete-after-output nil))