# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 804534319 0
# Node ID 240de864f06c41075c46fdd3ce5a4307f39638dc
# Parent  92440abe84096e8345e89a06571150e0ac5155aa
(rmail-find-all-files): Bind case-fold-search.

(rmail-summary-by-sender): Autoload this.
(rmail-mode-map): Add rmail-summary-by-senders.

diff -r 92440abe8409 -r 240de864f06c lisp/mail/rmail.el
--- 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 ***