From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 21:10:20 +0000 (+0000)
Subject: Fix bug: SELECT-MESSAGE event can be called with no message.
X-Git-Tag: 20090517-FFI~3782
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=008b1a0c4f873ea17114884d4778dcb406be3c95;p=mit-scheme.git

Fix bug: SELECT-MESSAGE event can be called with no message.
---

diff --git a/v7/src/imail/imail-summary.scm b/v7/src/imail/imail-summary.scm
index 2a2f10681..cf9ed554a 100644
--- a/v7/src/imail/imail-summary.scm
+++ b/v7/src/imail/imail-summary.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-summary.scm,v 1.13 2000/05/19 20:57:17 cph Exp $
+;;; $Id: imail-summary.scm,v 1.14 2000/05/19 21:10:20 cph Exp $
 ;;;
 ;;; Copyright (c) 2000 Massachusetts Institute of Technology
 ;;;
@@ -165,7 +165,9 @@ The recipients are specified as a comma-separated list of names."
 			      (message-flag-markers message)))))
 		       (buffer-not-modified! buffer)))))))
 	  ((SELECT-MESSAGE)
-	   (imail-summary-select-message buffer (car parameters)))
+	   (let ((message (car parameters)))
+	     (if message
+		 (imail-summary-select-message buffer message))))
 	  ((EXPUNGE INCREASE-LENGTH SET-LENGTH)
 	   (maybe-add-command-suffix! rebuild-imail-summary-buffer buffer))))))