From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Jun 2000 19:13:14 +0000 (+0000)
Subject: Fix bug: last change to IMAIL-MODE-LINE-SUMMARY-STRING had thinko that
X-Git-Tag: 20090517-FFI~3481
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2d9585c97abdc2e5bd42b4bdab46853bbd133a64;p=mit-scheme.git

Fix bug: last change to IMAIL-MODE-LINE-SUMMARY-STRING had thinko that
caused an error when viewing an empty mailbox.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 64807e411..ce882a289 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.174 2000/06/19 22:15:01 cph Exp $
+;;; $Id: imail-top.scm,v 1.175 2000/06/20 19:13:14 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1862,10 +1862,7 @@ Negative argument means search in reverse."
 		  ""
 		  (string-append " " (symbol->string status))))
 	    " "
-	    (let ((index
-		   (and message
-			(message-attached? message folder)
-			(message-index message))))
+	    (let ((index (and message (message-index message))))
 	      (cond (index (number->string (+ 1 index)))
 		    ((> n 0) "??")
 		    (else "0")))
@@ -1880,7 +1877,10 @@ Negative argument means search in reverse."
 		    ((> unseen 0)
 		     (string-append " (" (number->string unseen) " unseen)"))
 		    (else "")))
-	    (let ((flags (flags-delete "seen" (message-flags message))))
+	    (let ((flags
+		   (if message
+		       (flags-delete "seen" (message-flags message))
+		       '())))
 	      (if (pair? flags)
 		  (string-append " " (decorated-string-append "" "," "" flags))
 		  "")))))))