From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 20:32:37 +0000 (+0000)
Subject: Don't implement URL-PASS-PHRASE-KEY for file URLs, because it should
X-Git-Tag: 20090517-FFI~3733
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a2262d436d6bbea891868f2802567f86ae91fd2d;p=mit-scheme.git

Don't implement URL-PASS-PHRASE-KEY for file URLs, because it should
never be called on one of these.
---

diff --git a/v7/src/imail/imail-file.scm b/v7/src/imail/imail-file.scm
index a5055bf07..3f511f266 100644
--- a/v7/src/imail/imail-file.scm
+++ b/v7/src/imail/imail-file.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-file.scm,v 1.36 2000/05/22 20:22:37 cph Exp $
+;;; $Id: imail-file.scm,v 1.37 2000/05/22 20:32:37 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -39,11 +39,6 @@
 (define-method url-exists? ((url <file-url>))
   (file-exists? (file-url-pathname url)))
 
-(define-method url-pass-phrase-key ((url <file-url>))
-  ;; Unused
-  url
-  "")
-
 (define (define-file-url-completers class filter)
   (define-method %url-complete-string
       ((string <string>) (default-url class)