From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 May 2000 18:33:44 +0000 (+0000)
Subject: Don't show special mode-line string if selected message is detached.
X-Git-Tag: 20090517-FFI~3885
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=1aed98dbc77a3230aca2a4b4955991b619b87f42;p=mit-scheme.git

Don't show special mode-line string if selected message is detached.
---

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 999d01ee3..4cec9ac3f 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.43 2000/05/12 18:22:59 cph Exp $
+;;; $Id: imail-top.scm,v 1.44 2000/05/12 18:33:44 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -535,15 +535,17 @@ With prefix argument N moves backward N messages with these flags."
     (and message
 	 (let ((folder (message-folder message))
 	       (index (message-index message)))
-	   (if (and folder index)
-	       (string-append " "
-			      (number->string (+ 1 index))
-			      "/"
-			      (number->string (folder-length folder))
-			      (decorated-string-append
-			       "," "" ""
-			       (flags-delete "seen" (message-flags message))))
-	       " 0/0")))))
+	   (and folder
+		(if index
+		    (string-append
+		     " "
+		     (number->string (+ 1 index))
+		     "/"
+		     (number->string (folder-length folder))
+		     (decorated-string-append
+		      "," "" ""
+		      (flags-delete "seen" (message-flags message))))
+		    " 0/0"))))))
 
 (define (maybe-reformat-headers message buffer)
   (let ((headers