From f989d3811b70997748a54e211f4624b881b51d31 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sun, 1 Dec 1996 17:19:06 +0000 Subject: [PATCH] Change to permit RMAIL files to be visited in RMAIL mode under NT (no support for reading mail yet). --- v7/src/edwin/rmail.scm | 19 ++++++++++--------- 1 file changed, 10 insertions(+), 9 deletions(-) diff --git a/v7/src/edwin/rmail.scm b/v7/src/edwin/rmail.scm index 8916bbda5..bf238dc40 100644 --- a/v7/src/edwin/rmail.scm +++ b/v7/src/edwin/rmail.scm @@ -1,6 +1,6 @@ ;;; -*-Scheme-*- ;;; -;;; $Id: rmail.scm,v 1.53 1996/10/10 10:28:22 cph Exp $ +;;; $Id: rmail.scm,v 1.54 1996/12/01 17:19:06 cph Exp $ ;;; ;;; Copyright (c) 1991-96 Massachusetts Institute of Technology ;;; @@ -211,14 +211,15 @@ together with two commands to return to regular RMAIL: (if (null? (ref-variable rmail-primary-inbox-list)) (set-variable! rmail-primary-inbox-list (os/rmail-primary-inbox-list - (list - (let ((server - (and (ref-variable rmail-pop-procedure) - (ref-variable rmail-primary-pop-server)))) - (if server - (string-append "pop:" server) - (string-append rmail-spool-directory - (current-user-name)))))))) + (let ((server + (and (ref-variable rmail-pop-procedure) + (ref-variable rmail-primary-pop-server)))) + (cond (server + (list (string-append "pop:" server))) + (rmail-spool-directory + (list (string-append rmail-spool-directory + (current-user-name)))) + (else '())))))) (if (not (ref-variable rmail-dont-reply-to-names)) (set-variable! rmail-dont-reply-to-names -- 2.25.1