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

[Juanma Barranquero]

Index: emacs/lisp/mail/rmailsum.el
diff -c emacs/lisp/mail/rmailsum.el:1.125 emacs/lisp/mail/rmailsum.el:1.126
*** emacs/lisp/mail/rmailsum.el:1.125   Tue Jul  2 10:49:22 2002
--- emacs/lisp/mail/rmailsum.el Tue Feb  4 08:14:00 2003
***************
*** 119,125 ****
  (defun rmail-summary-by-topic (subject &optional whole-message)
    "Display a summary of all messages with the given SUBJECT.
  Normally checks the Subject field of headers;
! but if WHOLE-MESSAGE is non-nil (prefix arg given), 
   look in the whole message.
  SUBJECT is a string of regexps separated by commas."
    (interactive "sTopics to summarize by: \nP")
--- 119,125 ----
  (defun rmail-summary-by-topic (subject &optional whole-message)
    "Display a summary of all messages with the given SUBJECT.
  Normally checks the Subject field of headers;
! but if WHOLE-MESSAGE is non-nil (prefix arg given),
   look in the whole message.
  SUBJECT is a string of regexps separated by commas."
    (interactive "sTopics to summarize by: \nP")
***************
*** 412,419 ****
                               (skip-chars-backward " \t")
                               (point)))))
                       len mch lo)
!               (if (string-match 
!                    (or rmail-user-mail-address-regexp 
                         (concat "^\\("
                                 (regexp-quote (user-login-name))
                                 "\\($\\|@\\)\\|"
--- 412,419 ----
                               (skip-chars-backward " \t")
                               (point)))))
                       len mch lo)
!               (if (string-match
!                    (or rmail-user-mail-address-regexp
                         (concat "^\\("
                                 (regexp-quote (user-login-name))
                                 "\\($\\|@\\)\\|"
***************
*** 1499,1510 ****
          (list (rmail-output-read-rmail-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
--- 1499,1510 ----
          (list (rmail-output-read-rmail-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
***************
*** 1559,1571 ****
      (if files
        (progn
          (define-key rmail-summary-mode-map [menu-bar classify input-menu]
!           (cons "Input Rmail File" 
!                 (rmail-list-to-menu "Input Rmail File" 
                                      files
                                      'rmail-summary-input)))
          (define-key rmail-summary-mode-map [menu-bar classify output-menu]
!           (cons "Output Rmail File" 
!                 (rmail-list-to-menu "Output Rmail File" 
                                      files
                                      'rmail-summary-output-to-rmail-file))))
        (define-key rmail-summary-mode-map [menu-bar classify input-menu]
--- 1559,1571 ----
      (if files
        (progn
          (define-key rmail-summary-mode-map [menu-bar classify input-menu]
!           (cons "Input Rmail File"
!                 (rmail-list-to-menu "Input Rmail File"
                                      files
                                      'rmail-summary-input)))
          (define-key rmail-summary-mode-map [menu-bar classify output-menu]
!           (cons "Output Rmail File"
!                 (rmail-list-to-menu "Output Rmail File"
                                      files
                                      'rmail-summary-output-to-rmail-file))))
        (define-key rmail-summary-mode-map [menu-bar classify input-menu]