From: Arthur Gleckler Date: Thu, 10 Oct 1991 22:54:44 +0000 (+0000) Subject: Make RMAIL update mode line when SHOW-MESSAGE is called and there are X-Git-Tag: 20090517-FFI~10161 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bebd00c72e6cb557482eb754be1b92caddf54b79;p=mit-scheme.git 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 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))