From 66f6f65d9fb7260d5c74ffb67d62bb5623bbfeb3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 8 Jun 2000 20:48:40 +0000
Subject: [PATCH] Fix compiler warning.

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

diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm
index 9900f6d21..b5fdda6b4 100644
--- a/v7/src/imail/imail-top.scm
+++ b/v7/src/imail/imail-top.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-top.scm,v 1.143 2000/06/08 20:47:55 cph Exp $
+;;; $Id: imail-top.scm,v 1.144 2000/06/08 20:48:40 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -1753,8 +1753,7 @@ see the documentation of `imail-resend'."
 	(imail-forward))))
 
 (define (imail-forward)
-  (let ((buffer (selected-buffer))
-	(message (selected-message)))
+  (let ((message (selected-message)))
     (make-mail-buffer
      `(("To" "")
        ("Subject"
-- 
2.25.1