From: Karl Heuer <kwzh@gnu.org>
Date: Thu, 7 Apr 1994 03:29:18 +0000 (+0000)
Subject: (rmail-mode-map): Key binding for rmail-sort-by-keywords.
X-Git-Tag: emacs-19.34~9133
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9ae6d54ae25da08170c2fd56e76554bb8fbd6b49;p=emacs.git

(rmail-mode-map): Key binding for rmail-sort-by-keywords.
---

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index c72fdf9a57a..503d94b5fc4 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -375,6 +375,7 @@ Note:    it means the file has no messages in it.\n\^_")))
   (define-key rmail-mode-map "\C-c\C-s\C-r" 'rmail-sort-by-recipient)
   (define-key rmail-mode-map "\C-c\C-s\C-c" 'rmail-sort-by-correspondent)
   (define-key rmail-mode-map "\C-c\C-s\C-l" 'rmail-sort-by-lines)
+  (define-key rmail-mode-map "\C-c\C-s\C-k" 'rmail-sort-by-keywords)
   )
 
 (define-key rmail-mode-map [menu-bar] (make-sparse-keymap))
@@ -2167,6 +2168,11 @@ If prefix argument REVERSE is non-nil, sort them in reverse order." t)
 (autoload 'rmail-sort-by-lines "rmailsort"
   "Sort messages of current Rmail file by number of lines.
 If prefix argument REVERSE is non-nil, sort them in reverse order." t)
+
+(autoload 'rmail-sort-by-keywords "rmailsort"
+  "Sort messages of current Rmail file by labels.
+If prefix argument REVERSE is non-nil, sort them in reverse order.
+KEYWORDS is a comma-separated list of labels." t)
 
 ;;;; *** Rmail Summary Mode ***