[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el |
Date: |
Tue, 04 Feb 2003 08:14:02 -0500 |
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]
- [Emacs-diffs] Changes to emacs/lisp/mail/rmailsum.el,
Juanma Barranquero <=