From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Sep 2001 21:16:07 +0000 (+0000)
Subject: Add key binding for M-x imail-sort-by-arrival.
X-Git-Tag: 20090517-FFI~2578
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=76915a2cc88e8714e6268488ebea130a1980b74f;p=mit-scheme.git

Add key binding for M-x imail-sort-by-arrival.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 4bc0a7fc6..ada28461d 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.269 2001/09/14 17:22:55 cph Exp $
+;;; $Id: imail-top.scm,v 1.270 2001/09/14 21:16:07 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -491,6 +491,7 @@ Instead, these commands are available:
 (define-key 'imail '(#\c-c #\c-s #\c-d)	'imail-sort-by-date)
 (define-key 'imail '(#\c-c #\c-s #\c-r)	'imail-sort-by-recipient)
 (define-key 'imail '(#\c-c #\c-s #\c-s)	'imail-sort-by-subject)
+(define-key 'imail '(#\c-c #\c-s #\c-v)	'imail-sort-by-arrival)
 (define-key 'imail '(#\c-c #\c-t #\c-e)	'imail-toggle-mime-entity)
 (define-key 'imail '(#\c-c #\c-t #\c-h)	'imail-toggle-header)
 (define-key 'imail '(#\c-c #\c-t #\c-m)	'imail-toggle-message)