From 008b1a0c4f873ea17114884d4778dcb406be3c95 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 May 2000 21:10:20 +0000
Subject: [PATCH] Fix bug: SELECT-MESSAGE event can be called with no message.

---
 v7/src/imail/imail-summary.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

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