never be called on one of these.
;;; -*-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
;;;
(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)