From bebd00c72e6cb557482eb754be1b92caddf54b79 Mon Sep 17 00:00:00 2001
From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Thu, 10 Oct 1991 22:54:44 +0000
Subject: [PATCH] Make RMAIL update mode line when SHOW-MESSAGE is called and
 there are no messages.  This makes the mode line correct when all the
 messages are deleted and expunged.  Previously, the mode line stayed as it
 was when RMAIL last displayed a message (before it was deleted).

---
 v7/src/edwin/rmail.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 0cfd23afc..3b6b3524a 100644
--- a/v7/src/edwin/rmail.scm
+++ b/v7/src/edwin/rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.8 1991/09/24 17:53:24 bal Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/rmail.scm,v 1.9 1991/10/10 22:54:44 arthur Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -680,7 +680,8 @@ and reverse search is specified by a negative numeric arg."
 		  (narrow-to-region start (mark1+ m))))
 	    (set-buffer-point! buffer start))
 	  (if (current-buffer? buffer)
-	      (message "No messages")))
+	      (begin (update-mode-line! buffer)
+		     (message "No messages"))))
 	(let ((last (msg-memo/last memo)))
 	  (cond ((not n)
 		 (select-message buffer last))
-- 
2.25.1