From a2262d436d6bbea891868f2802567f86ae91fd2d Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 22 May 2000 20:32:37 +0000
Subject: [PATCH] Don't implement URL-PASS-PHRASE-KEY for file URLs, because it
 should never be called on one of these.

---
 v7/src/imail/imail-file.scm | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

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)
-- 
2.25.1