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

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index e9f028f03502b62cf693dd02cc6f849700916d9d..34fb3bc281b3d9cd6dd8af67d2e6c5fdb64fdaf1 100644 (file)
--- 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 0d8674d571ab23a0ba8e535d12a94cdc30a6c4ce..d6abdffd047cbac41d779bef0c94ba9ce2a20afc 100644 (file)
--- 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