Implement the RMAIL-PRIMARY-INBOX-LIST and RMAIL-SPOOL-DIRECTORY

procedures.

diff --git a/v7/src/imail/imail-rmail.scm b/v7/src/imail/imail-rmail.scm
index dcc54ba012c8d9ca9ddee9cad2fadc7bae272405..bc95106b4e586ff9374913258a90d24fd1f05a3d 100644 (file)
--- a/v7/src/imail/imail-rmail.scm
+++ b/v7/src/imail/imail-rmail.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: imail-rmail.scm,v 1.14 2000/04/06 03:25:19 cph Exp $
+;;; $Id: imail-rmail.scm,v 1.15 2000/04/06 22:05:53 cph Exp $
 ;;;
 ;;; Copyright (c) 1999-2000 Massachusetts Institute of Technology
 ;;;
@@ -290,10 +290,17 @@
   "RMAIL")
 
 (define (rmail-primary-inbox-list)
-  (error "Unimplemented procedure:" 'RMAIL-PRIMARY-INBOX-LIST))
+  (let ((l (variable-value (name->variable 'RMAIL-PRIMARY-INBOX-LIST 'ERROR))))
+    (if (null? l)
+       (os/rmail-primary-inbox-list
+        (let ((d (os/rmail-spool-directory)))
+          (if d
+              (list (string-append d (current-user-name)))
+              '())))
+       l)))
 
 (define (rmail-spool-directory)
-  (error "Unimplemented procedure:" 'RMAIL-SPOOL-DIRECTORY))
+  (os/rmail-spool-directory))
 \f
 (define (read-rmail-inbox folder pathname rename?)
   (let ((pathname