From 3b6a9751efef2a9dae79134370326d53528aabd2 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 May 1991 20:14:43 +0000
Subject: [PATCH] Disallow null arguments to M-x define-mail-alias.

---
 v7/src/edwin/malias.scm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/v7/src/edwin/malias.scm b/v7/src/edwin/malias.scm
index ded27f64d..5e3794c57 100644
--- a/v7/src/edwin/malias.scm
+++ b/v7/src/edwin/malias.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/malias.scm,v 1.1 1991/04/24 07:27:43 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/malias.scm,v 1.2 1991/05/04 20:14:43 cph Exp $
 ;;;
 ;;;	Copyright (c) 1991 Massachusetts Institute of Technology
 ;;;
@@ -49,18 +49,13 @@
 (define-command define-mail-alias
   "Define NAME as a mail-alias that translates to DEFINITION."
   (lambda ()
-    (let ((alias (prompt-for-string "Define mail alias" false 'NULL-DEFAULT)))
+    (let ((alias (prompt-for-string "Define mail alias" false)))
       (list alias
 	    (prompt-for-string
 	     (string-append "Define " alias " as mail alias for")
-	     false
-	     'NULL-DEFAULT))))
+	     false))))
   (lambda (alias definition)
-    (if (string-null? alias)
-	(editor-error "Mail alias must be non-null string"))
     (let ((definition (parse-mailrc-line definition 0)))
-      (if (null? definition)
-	  (editor-error "Mail alias definition must be non-null string"))
       (guarantee-mail-aliases)
       (define-mail-alias alias definition))))
 
-- 
2.25.1