From 5d7706cf424d91591a4c69b6094495b084d696ba Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 26 Apr 2000 18:39:29 +0000 Subject: [PATCH] Change protocol of authenticator so that it corresponds to CALL-WITH-PASS-PHRASE. --- v7/src/imail/imail-top.scm | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/v7/src/imail/imail-top.scm b/v7/src/imail/imail-top.scm index d74786a68..d94a2d8ee 100644 --- a/v7/src/imail/imail-top.scm +++ b/v7/src/imail/imail-top.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: imail-top.scm,v 1.21 2000/04/23 04:02:48 cph Exp $ +;;; $Id: imail-top.scm,v 1.22 2000/04/26 18:39:29 cph Exp $ ;;; ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology ;;; @@ -99,18 +99,16 @@ May be called with an IMAIL folder URL as argument; (if (not url-string) ((ref-command imail-get-new-mail) #f)))) -(define (imail-authenticator url) - (let ((user-name - (or (url-user-id url) - (ref-variable imail-user-name) - (current-user-name)))) - (values user-name - (call-with-pass-phrase - (string-append "Password for user " - user-name - " to access IMAIL folder " - (url->string url)) - string-copy)))) +(define (imail-authenticator url user-id receiver) + (call-with-pass-phrase (string-append "Password for user " + user-id + " to access IMAIL folder " + (url->string url)) + receiver)) + +(define (imail-default-user-id) + (or (ref-variable imail-user-name) + (current-user-name))) (define (associate-imail-folder-with-buffer folder buffer) (buffer-put! buffer 'IMAIL-FOLDER folder) -- 2.25.1