Mercurial > emacs

changeset 12447:240de864f06c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(rmail-find-all-files): Bind case-fold-search. (rmail-summary-by-sender): Autoload this. (rmail-mode-map): Add rmail-summary-by-senders.
author Richard M. Stallman <rms@gnu.org>
date Fri, 30 Jun 1995 17:45:19 +0000
parents 92440abe8409
children 7291d1627d2c
files lisp/mail/rmail.el
diffstat 1 files changed, 11 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/mail/rmail.el	Fri Jun 30 17:31:31 1995 +0000
+++ b/lisp/mail/rmail.el	Fri Jun 30 17:45:19 1995 +0000
@@ -449,6 +449,9 @@
 (define-key rmail-mode-map [menu-bar summary]
   (cons "Summary" (make-sparse-keymap "Summary")))
 
+(define-key rmail-mode-map [menu-bar summary senders]
+  '("By Senders..." . rmail-summary-by-senders))
+
 (define-key rmail-mode-map [menu-bar summary labels]
   '("By Labels..." . rmail-summary-by-labels))
 
@@ -762,8 +765,9 @@
 	;; Sort here instead of in directory-files
 	;; because this list is usually much shorter.
 	(sort ret 'string<))
-    (if (string-match rmail-secondary-file-regexp start)
-	(list (file-name-nondirectory start)))))
+    (let ((case-fold-search nil))
+      (if (string-match rmail-secondary-file-regexp start)
+	  (list (file-name-nondirectory start))))))
 
 (defun rmail-list-to-menu (menu-name l action &optional full-name)
   (let ((menu (make-sparse-keymap menu-name)))
@@ -2564,6 +2568,11 @@
  look in the whole message.
 SUBJECT is a string of regexps separated by commas."
   t)
+
+(autoload 'rmail-summary-by-sender "rmailsum"
+  "Display a summary of all messages with the given SENDERS.
+SENDERS is a string of names separated by commas."
+  t)
 
 ;;;; *** Rmail output messages to files ***