From c84fbfb69d5bf7d581f1497300af2592ce90161e Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 17 May 2001 05:05:30 +0000
Subject: [PATCH] Eliminate legacy file URL protocol names.  These can only
 cause confusion when writing to output files that don't already exist.

---
 v7/src/imail/imail-core.scm | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/v7/src/imail/imail-core.scm b/v7/src/imail/imail-core.scm
index 563345312..34123f143 100644
--- a/v7/src/imail/imail-core.scm
+++ b/v7/src/imail/imail-core.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-core.scm,v 1.123 2001/05/17 04:37:26 cph Exp $
+;;; $Id: imail-core.scm,v 1.124 2001/05/17 05:05:30 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2001 Massachusetts Institute of Technology
 ;;;
@@ -112,9 +112,8 @@
 (define (parse-url-string string get-default-url)
   (let ((colon (string-find-next-char string #\:)))
     (if colon
-	(parse-url-body
-	 (string-tail string (fix:+ colon 1))
-	 (get-default-url (map-legacy-protocols (string-head string colon))))
+	(parse-url-body (string-tail string (fix:+ colon 1))
+			(get-default-url (string-head string colon)))
 	(parse-url-body string (get-default-url #f)))))
 
 ;; Protocol-specific parsing.  Dispatch on the class of DEFAULT-URL.
@@ -192,19 +191,13 @@
 	   (lambda (body)
 	     (make-url-string protocol body)))))
     (if colon
-	(let ((protocol (map-legacy-protocols (string-head string colon))))
+	(let ((protocol (string-head string colon)))
 	  (values (string-tail string (fix:+ colon 1))
 		  (and (url-protocol-name? protocol)
 		       (get-default-url protocol))
 		  (make-prepend protocol)))
 	(let ((url (get-default-url #f)))
 	  (values string url (make-prepend (url-protocol url)))))))
-
-(define (map-legacy-protocols protocol)
-  (if (or (string=? protocol "rmail")
-	  (string=? protocol "umail"))
-      "file"
-      protocol))
 
 ;;;; Server operations
 
-- 
2.25.1