From 1aed98dbc77a3230aca2a4b4955991b619b87f42 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 12 May 2000 18:33:44 +0000
Subject: [PATCH] Don't show special mode-line string if selected message is
 detached.

---
 v7/src/imail/imail-top.scm | 22 ++++++++++++----------
 1 file changed, 12 insertions(+), 10 deletions(-)

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
-- 
2.25.1