🚀 go-pugleaf

Shouldn't VM use convert-standard-filename for its configuration files?

,----[ C-h f convert-standard-filename RET ]
| convert-standard-filename is a compiled Lisp function in `files'.
| (convert-standard-filename FILENAME)
|
| Convert a standard file's name to something suitable for the current OS.
| This function's standard definition is trivial; it just returns the 
argument.
| However, on some systems, the function is redefined with a definition
| that really does change some file names to canonicalize certain
| patterns and to guarantee valid names.
`----

Here's a patch:

*** vm-vars.el.orig	Mon Aug 18 20:10:42 2003
--- vm-vars.el	Thu Nov 18 16:07:53 2004
***************
*** 40,51 ****
     "The VM mail reader."
     :group 'mail)

! (defcustom vm-init-file "~/.vm"
     "*Startup file for VM that is loaded the first time you run VM
   in an Emacs session."
     :type 'file)

! (defcustom vm-preferences-file "~/.vm.preferences"
     "Unused.
   *Secondary startup file for VM, loaded after `vm-init-file'.
   This file is written and overwritten by VM and is not meant for
--- 40,51 ----
     "The VM mail reader."
     :group 'mail)

! (defcustom vm-init-file (convert-standard-filename "~/.vm")
     "*Startup file for VM that is loaded the first time you run VM
   in an Emacs session."
     :type 'file)

! (defcustom vm-preferences-file (convert-standard-filename 
"~/.vm.preferences")
     "Unused.
   *Secondary startup file for VM, loaded after `vm-init-file'.
   This file is written and overwritten by VM and is not meant for
***************
*** 56,66 ****
     "*Directory where folders of mail are kept."
     :type '(choice (const nil) directory))

! (defcustom vm-primary-inbox "~/INBOX"
     "*Mail is moved from the system mailbox to this file for reading."
     :type 'file)

! (defcustom vm-crash-box "~/INBOX.CRASH"
     "*File in which to store mail temporarily while it is transferred from
   the system mailbox to the primary inbox.  If a crash occurs
   during this mail transfer, any missing mail will be found in this
--- 56,66 ----
     "*Directory where folders of mail are kept."
     :type '(choice (const nil) directory))

! (defcustom vm-primary-inbox (convert-standard-filename "~/INBOX")
     "*Mail is moved from the system mailbox to this file for reading."
     :type 'file)

! (defcustom vm-crash-box (convert-standard-filename "~/INBOX.CRASH")
     "*File in which to store mail temporarily while it is transferred from
   the system mailbox to the primary inbox.  If a crash occurs
   during this mail transfer, any missing mail will be found in this
***************
*** 1696,1702 ****
   file as you update your window configuration settings, so
   anything else you put into this file will go away.")

! (defcustom vm-window-configuration-file "~/.vm.windows"
     "*Non-nil value should be a string that tells VM where to load
   and save your window configuration settings.  Your window
   configuration settings are loaded automatically the first time
--- 1696,1703 ----
   file as you update your window configuration settings, so
   anything else you put into this file will go away.")

! (defcustom vm-window-configuration-file
!   (convert-standard-filename "~/.vm.windows")
     "*Non-nil value should be a string that tells VM where to load
   and save your window configuration settings.  Your window
   configuration settings are loaded automatically the first time
***************
*** 2692,2698 ****
   subject are significant."
     :type '(choice (const nil) integer))

! (defcustom vm-folders-summary-database "~/.vm.folders.db"
     "*Name of Berkeley DB file used to store summary information about 
folders.
   This file is consulted to produce the folders summary."
     :type 'file)
--- 2693,2700 ----
   subject are significant."
     :type '(choice (const nil) integer))

! (defcustom vm-folders-summary-database
!   (convert-standard-filename "~/.vm.folders.db")
     "*Name of Berkeley DB file used to store summary information about 
folders.
   This file is consulted to produce the folders summary."
     :type 'file)

-- 
Kevin Rodgers