From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 15 Jun 2000 15:40:37 +0000 (+0000)
Subject: Implement M-x imail-first-unseen-message.
X-Git-Tag: 20090517-FFI~3521
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ef676ef683aeaae4282d6afe16175c1ba1429d13;p=mit-scheme.git

Implement M-x imail-first-unseen-message.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index e9f028f03..34fb3bc28 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.158 2000/06/15 03:20:04 cph Exp $
+;;; $Id: imail-top.scm,v 1.159 2000/06/15 15:40:21 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -546,6 +546,7 @@ Instead, these commands are available:
 (define-key 'imail #\m-s	'imail-search)
 (define-key 'imail #\t		'imail-toggle-message)
 (define-key 'imail #\u		'imail-undelete-previous-message)
+(define-key 'imail #\m-u	'imail-first-unseen-message)
 (define-key 'imail #\x		'imail-expunge)
 (define-key 'imail #\.		'beginning-of-buffer)
 (define-key 'imail #\<		'imail-first-message)
@@ -641,6 +642,13 @@ Instead, these commands are available:
     (let ((folder (selected-folder)))
       (select-message folder (navigator/last-message folder)))))
 
+(define-command imail-first-unseen-message
+  "Show first unseen message in folder."
+  ()
+  (lambda ()
+    (let ((folder (selected-folder)))
+      (select-message folder (navigator/first-unseen-message folder)))))
+
 (define-command imail-next-message
   "Show following message whether deleted or not.
 With prefix argument N, moves forward N messages,
diff --git a/v7/src/imail/imail.pkg b/v7/src/imail/imail.pkg
index 0d8674d57..d6abdffd0 100644
--- a/v7/src/imail/imail.pkg
+++ b/v7/src/imail/imail.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail.pkg,v 1.60 2000/06/15 02:37:16 cph Exp $
+;;; $Id: imail.pkg,v 1.61 2000/06/15 15:40:37 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -214,6 +214,7 @@
 	  edwin-command$imail-disconnect
 	  edwin-command$imail-expunge
 	  edwin-command$imail-first-message
+	  edwin-command$imail-first-unseen-message
 	  edwin-command$imail-forward
 	  edwin-command$imail-get-new-mail
 	  edwin-command$imail-input