From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 1 Dec 1996 17:19:06 +0000 (+0000)
Subject: Change to permit RMAIL files to be visited in RMAIL mode under NT (no
X-Git-Tag: 20090517-FFI~5317
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f989d3811b70997748a54e211f4624b881b51d31;p=mit-scheme.git

Change to permit RMAIL files to be visited in RMAIL mode under NT (no
support for reading mail yet).
---

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