From c0a5a948f3d2a50632503f213415de5e03d9ec5a Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 30 Jun 1995 17:45:19 +0000 Subject: [PATCH] (rmail-find-all-files): Bind case-fold-search. (rmail-summary-by-sender): Autoload this. (rmail-mode-map): Add rmail-summary-by-senders. --- lisp/mail/rmail.el | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el index 2caa6c4168e..c1b78cac67e 100644 --- a/lisp/mail/rmail.el +++ b/lisp/mail/rmail.el @@ -449,6 +449,9 @@ Note: it means the file has no messages in it.\n\^_"))) (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 @@ original copy." ;; 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 @@ but if WHOLE-MESSAGE is non-nil (prefix arg given), 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 *** -- 2.39.2