🚀 go-pugleaf

The diffs below to vm 5.32 will make the decision to protect the
primary inbox from curious people more of a user-based decision than a
default statement of policy by vm.

--- vm-folder.el.~1~	Mon Jun  3 16:05:17 1991
+++ vm-folder.el	Thu Apr 23 09:21:11 1992
@@ -996,8 +996,10 @@
 					(widen)
 					(buffer-size))))
        (write-region opoint-max (point-max) buffer-file-name t t)
-       ;; make sure primary inbox is private.  384 = octal 600
-       (condition-case () (set-file-modes buffer-file-name 384) (error nil))
+       (if vm-private-inbox
+	   ;; make sure primary inbox is private.  384 = octal 600
+	   (condition-case () (set-file-modes buffer-file-name 384)
+	     (error nil)))
        (set-buffer-modified-p old-buffer-modified-p)
        (kill-buffer crash-buf)
        (condition-case () (delete-file vm-crash-box)
--- vm-vars.el.~1~	Sun Mar  1 23:50:11 1992
+++ vm-vars.el	Thu Apr 23 09:20:49 1992
@@ -25,6 +25,10 @@
 VM will do crash recovery from this file automatically at startup, as
 necessary.")
 
+(defvar vm-private-inbox t
+  "*If non-nil, chmod the primary inbox to mode 600 so it's not
+world-readable.")
+
 (defvar vm-spool-files
   (or (and (setq vm-spool-files (getenv "MAILPATH"))
 	   (setq vm-spool-files

--
Brendan Kehoe, Sun Network Manager                      brendan@cs.widener.edu
Widener University                                                 Chester, PA