From 2204749c7cd7c042f9c8215631492c6245246995 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Apr 2000 19:08:18 +0000
Subject: [PATCH] Define EDWIN-VARIABLE-VALUE.

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

diff --git a/v7/src/imail/imail-util.scm b/v7/src/imail/imail-util.scm
index afe909896..6f1782957 100644
--- a/v7/src/imail/imail-util.scm
+++ b/v7/src/imail/imail-util.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-util.scm,v 1.7 2000/04/06 04:23:01 cph Exp $
+;;; $Id: imail-util.scm,v 1.8 2000/04/07 19:08:18 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -236,4 +236,7 @@
   (let ((line (read-line port)))
     (if (eof-object? line)
 	(error "Premature end of file:" port))
-    line))
\ No newline at end of file
+    line))
+
+(define (edwin-variable-value name)
+  (variable-value (name->variable name 'ERROR)))
\ No newline at end of file
-- 
2.25.1