🚀 go-pugleaf

Hi There,

	I just snarfed vm-4.41.tar.Z from UUNet and found a bug in
	vm-visit-folder.  It wasn't expanding it's answer in the correct
	directory.  Here is the change I made.

diff -c -r1.1 vm.el
*** /tmp/RCSAa17965     Mon Jul 13 18:21:40 1992
--- vm.el       Mon Jul 13 18:21:27 1992
***************
*** 1294,1303 ****
    "Visit a mail file.
  VM will parse and present its messages to you in the usual way."
    (interactive
!    (list (read-file-name
!         "Visit folder: " (if vm-folder-directory
!                              (expand-file-name vm-folder-directory)
!                            default-directory) nil t)))
    (if vm-mail-buffer
        (set-buffer vm-mail-buffer))
    (vm folder))
--- 1294,1305 ----
    "Visit a mail file.
  VM will parse and present its messages to you in the usual way."
    (interactive
!    (let ((vm-read-dir (if vm-folder-directory
!                    (expand-file-name vm-folder-directory)
!                  default-directory)))
!      (list (expand-file-name 
!           (read-file-name "Visit folder: " vm-read-dir nil t)
!           vm-read-dir))))
    (if vm-mail-buffer
        (set-buffer vm-mail-buffer))
    (vm folder))
--

Frank P. Bresz  |PCD Simulators Department, Westinghouse Electric Corporation
fpb@ittc.wec.com|My opinions are mine, WEC pays big money for official opinions
uunet!ittc!fpb  |Member: League for Programming Freedom (LPF) | STOP Software |
+1 412 733 6749 |For more information on the 'LPF' send mail  |  Patents Now  |