From 76915a2cc88e8714e6268488ebea130a1980b74f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 14 Sep 2001 21:16:07 +0000
Subject: [PATCH] Add key binding for M-x imail-sort-by-arrival.

---
 v7/src/imail/imail-top.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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)
-- 
2.25.1