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).

diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm
index 0cfd23afc1523e1588ef5383547f2c1828ab760b..3b6b3524a7783ed0a3061dae15a970d2b172b7c8 100644 (file)
--- 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))