(rmail-summary-by-senders): Doc fix.

(rmail-summary-mode-map): Bind rmail-summary-by-senders to C-M-f.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06db01271a2..e750d494cd0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,8 +7,10 @@
 
         * mail/rmailsum.el (rmail-summary-scroll-between-messages)
         (rmail-summary-line-count-flag, rmail-summary-by-regexp): Doc fixes.
+        (rmail-summary-by-senders): Doc fix.
         (rmail-summary-mode-map): Bind C-o to output-as-seen, not output.
         Make the output menu-items consistent with rmail-mode-map.
+        Bind rmail-summary-by-senders to C-M-f.
 
 2009-03-03  Kenichi Handa  <handa@m17n.org>
 
diff --git a/lisp/mail/rmailsum.el b/lisp/mail/rmailsum.el
index 0ae5ed804ef..37f97962efc 100644
--- a/lisp/mail/rmailsum.el
+++ b/lisp/mail/rmailsum.el
@@ -187,8 +187,8 @@ SUBJECT is a string of regexps separated by commas."
 
 ;;;###autoload
 (defun rmail-summary-by-senders (senders)
-  "Display a summary of all messages with the given SENDERS.
-SENDERS is a string of names separated by commas."
+  "Display a summary of all messages whose \"From\" field matches SENDERS.
+SENDERS is a string of regexps separated by commas."
   (interactive "sSenders to summarize by: ")
   (rmail-new-summary
    (concat "senders " senders)
@@ -1017,6 +1017,8 @@ Search, the `unseen' attribute is restored.")
   (define-key rmail-summary-mode-map "\e\C-l" 'rmail-summary-by-labels)
   (define-key rmail-summary-mode-map "\e\C-r" 'rmail-summary-by-recipients)
   (define-key rmail-summary-mode-map "\e\C-s" 'rmail-summary-by-regexp)
+  ;; `f' for "from".
+  (define-key rmail-summary-mode-map "\e\C-f" 'rmail-summary-by-senders)
   (define-key rmail-summary-mode-map "\e\C-t" 'rmail-summary-by-topic)
   (define-key rmail-summary-mode-map "m"      'rmail-summary-mail)
   (define-key rmail-summary-mode-map "\M-m"   'rmail-summary-retry-failure)