From f2ed391990beb4b8a3e54e09a489d126a9e91d19 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 26 May 2001 03:02:29 +0000
Subject: [PATCH] Eliminate compiler warning.

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

diff --git a/v7/src/imail/imail-browser.scm b/v7/src/imail/imail-browser.scm
index d39b6ab16..6db01e8e1 100644
--- a/v7/src/imail/imail-browser.scm
+++ b/v7/src/imail/imail-browser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-browser.scm,v 1.1 2001/05/26 03:00:53 cph Exp $
+;;; $Id: imail-browser.scm,v 1.2 2001/05/26 03:02:29 cph Exp $
 ;;;
 ;;; Copyright (c) 2001 Massachusetts Institute of Technology
 ;;;
@@ -91,8 +91,7 @@ To do:
 	    (sort (container-url-contents container-1) browser-url<?)))
 
 (define (insert-browser-line url container-url mark)
-  (let ((start (mark-right-inserting-copy mark))
-	(info (make-browser-line-info url)))
+  (let ((info (make-browser-line-info url)))
     (with-region-marked mark
       (lambda (start end)
 	(region-put! start end 'IMAIL-BROWSER-LINE-INFO info))
-- 
2.25.1