From 2d9585c97abdc2e5bd42b4bdab46853bbd133a64 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 20 Jun 2000 19:13:14 +0000
Subject: [PATCH] Fix bug: last change to IMAIL-MODE-LINE-SUMMARY-STRING had
thinko that caused an error when viewing an empty mailbox.
---
v7/src/imail/imail-top.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
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))
"")))))))
--
2.25.1