🚀 go-pugleaf

[ It has become apparent that I either didn't send out the patch or
  it was dropped somewhere.  Here's goes again. ]

This patch won't be of much interest to anyne who's been hackinga
lot of features into their VM.  This patch is just a handful of
bug fixes.

VM 5.33 is available on ftp.uu.net, dir mail/vm.

Changes:

* fixed "wrong type argument arrayp, nil" error when primary
  inbox is empty.
* applied Frank Bresz's fix for vm-visit-folder expanding the
  minibuffer read filename inthe wrong direftory.
* applied Jamie Z's fix for the old, old scrolling problem when
  scrolling from the summary buffer.
* changed default value of vm-flush-interval to t.
* fixed Makefile to say *.el instead of . so compilation will
  occur even if there are no .elc files.

*** vm-folder.el.dist	Mon Mar  2 00:04:17 1992
--- vm-folder.el	Sun Apr 11 23:13:01 1993
***************
*** 945,951 ****
     (save-excursion
       (vm-session-initialization)
       (vm-select-folder-buffer)
!      (let ((dir (if vm-folder-directory
  		    (expand-file-name vm-folder-directory)
  		  default-directory)))
         (list (read-file-name
--- 945,951 ----
     (save-excursion
       (vm-session-initialization)
       (vm-select-folder-buffer)
!      (let ((default-directory (if vm-folder-directory
  		    (expand-file-name vm-folder-directory)
  		  default-directory)))
         (list (read-file-name
***************
*** 954,960 ****
  		      (if vm-last-save-folder
  			  (format " (default %s)" vm-last-save-folder)
  			""))
! 	      dir vm-last-save-folder t) current-prefix-arg))))
    (vm-session-initialization)
    (vm-select-folder-buffer)
    (vm-check-for-killed-summary)
--- 954,960 ----
  		      (if vm-last-save-folder
  			  (format " (default %s)" vm-last-save-folder)
  			""))
! 	      default-directory vm-last-save-folder t) current-prefix-arg))))
    (vm-session-initialization)
    (vm-select-folder-buffer)
    (vm-check-for-killed-summary)
***************
*** 1326,1332 ****
  		    (vm-proportion-windows))))
  	(switch-to-buffer (current-buffer)))
        (set-buffer mail-buffer)
!       (vm-preview-current-message)
        (if (and (numberp vm-flush-interval)
  	       (condition-case data
  		   (progn (require 'timer) t)
--- 1326,1332 ----
  		    (vm-proportion-windows))))
  	(switch-to-buffer (current-buffer)))
        (set-buffer mail-buffer)
!       (and vm-message-list (vm-preview-current-message))
        (if (and (numberp vm-flush-interval)
  	       (condition-case data
  		   (progn (require 'timer) t)
*** vm-page.el.dist	Mon Mar  2 00:04:18 1992
--- vm-page.el	Sun Apr 11 23:04:36 1993
***************
*** 122,131 ****
         (and w
  	    (save-excursion
  	      (save-window-excursion
! 		(let ((next-screen-context-lines 0))
! 		  (condition-case ()
! 		      (progn (select-window w) (scroll-up nil) nil)
! 		    (error t)))))
  	    (= (vm-text-end-of (car vm-message-pointer)) (point-max))
  	    (vm-emit-eom-blurb))))))
  
--- 122,135 ----
         (and w
  	    (save-excursion
  	      (save-window-excursion
! 		(condition-case ()
! 		    (let ((next-screen-context-lines 0))
! 		      (select-window w)
! 		      (save-excursion
! 			(save-window-excursion
! 			  (scroll-up nil)))
! 		      nil)
! 		  (error t))))
  	    (= (vm-text-end-of (car vm-message-pointer)) (point-max))
  	    (vm-emit-eom-blurb))))))
  
*** vm-vars.el.dist	Mon Mar  2 00:04:19 1992
--- vm-vars.el	Sun Apr 11 20:22:35 1993
***************
*** 131,137 ****
    "*Non-nil value causes VM to remove empty (zero length) folder files
  after saving them.")
  
! (defvar vm-flush-interval 90
    "*Non-nil value specifies how often VM flushes its cached internal
  data.  A numeric value gives the number of seconds between
  flushes.  A value of t means flush every time there is a change.
--- 131,137 ----
    "*Non-nil value causes VM to remove empty (zero length) folder files
  after saving them.")
  
! (defvar vm-flush-interval t
    "*Non-nil value specifies how often VM flushes its cached internal
  data.  A numeric value gives the number of seconds between
  flushes.  A value of t means flush every time there is a change.
***************
*** 141,147 ****
  of the change in its internal memory and doesn't insert the
  changed data into the folder buffer until a particular message or
  the whole folder is saved to disk.  This makes normal Emacs
! auto-saving useless of VM folder buffers because the information
  you'd want to auto-save, i.e. the attribute changes, isn't in
  the buffer when it is auto-saved.
  
--- 141,147 ----
  of the change in its internal memory and doesn't insert the
  changed data into the folder buffer until a particular message or
  the whole folder is saved to disk.  This makes normal Emacs
! auto-saving useless for VM folder buffers because the information
  you'd want to auto-save, i.e. the attribute changes, isn't in
  the buffer when it is auto-saved.
  
*** vm-version.el.dist	Mon Mar  2 00:04:19 1992
--- vm-version.el	Wed Dec 16 18:18:12 1992
***************
*** 1,4 ****
  (provide 'vm)
  
! (defconst vm-version "5.32 (beta)"
    "Version number of VM.")
--- 1,8 ----
  (provide 'vm)
  
! (defconst vm-version "5.33 (beta)"
    "Version number of VM.")
+ 
+ (defun vm-version ()
+   "Returns the value of the variable vm-version."
+   vm-version)
*** Makefile.dist	Mon Mar  2 00:04:20 1992
--- Makefile	Tue Aug 18 23:52:51 1992
***************
*** 1,7 ****
  EMACS=emacs
  
  VM:
! 	$(EMACS) -batch -q -l ./vm-message.el -l ./vm-misc.el -f batch-byte-compile .
  	cat vm-*.elc > vm.elc
  
  vm:	vm.texinfo
--- 1,7 ----
  EMACS=emacs
  
  VM:
! 	$(EMACS) -batch -q -l ./vm-message.el -l ./vm-misc.el -f batch-byte-compile *.el
  	cat vm-*.elc > vm.elc
  
  vm:	vm.texinfo