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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 06db01271a2edbf88ce3e80949ca0136ccb6c559..e750d494cd0dd4d7594c201ba42557396cf1d566 100644 (file)
--- 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 0ae5ed804efec83e3323a73b9efd50b72a028407..37f97962efc57df47532740c3a57d5049eb24c45 100644 (file)
--- 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)