/[emacs]/emacs/lisp/mail/rmailsum.el
ViewVC logotype

Diff of /emacs/lisp/mail/rmailsum.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.123 by pj, Thu Dec 13 07:52:53 2001 UTC revision 1.124 by rms, Sat Feb 23 17:14:27 2002 UTC
# Line 1524  starting with the current one.  Deleted Line 1524  starting with the current one.  Deleted
1524     (progn (require 'rmailout)     (progn (require 'rmailout)
1525            (list (rmail-output-read-file-name)            (list (rmail-output-read-file-name)
1526                  (prefix-numeric-value current-prefix-arg))))                  (prefix-numeric-value current-prefix-arg))))
1527    (let ((i 0))    (let ((i 0) prev-msg)
1528      (while (< i n)      (while
1529            (and (< i n)
1530                 (progn (rmail-summary-goto-msg)
1531                        (not (eq prev-msg
1532                                 (setq prev-msg
1533                                       (with-current-buffer rmail-buffer
1534                                         rmail-current-message))))))
1535        (setq i (1+ i))        (setq i (1+ i))
1536        (with-current-buffer rmail-buffer        (with-current-buffer rmail-buffer
1537          (let ((rmail-delete-after-output nil))          (let ((rmail-delete-after-output nil))

Legend:
Removed from v.1.123  
changed lines
  Added in v.1.124

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26