🚀 go-pugleaf

Two small miscellaneous insect fixes for VM 5.31.  These were unambiguous
bugs.

-- 
Enjoy,

Joe Wells <jbw@cs.bu.edu>

Member of the League for Programming Freedom --- send e-mail for details
----------------------------------------------------------------------
--- vm.el-dist	Sat Apr 20 19:35:04 1991
+++ ./vm.el	Fri Feb 28 02:37:35 1992
@@ -631,4 +631,5 @@
 ;; a vheaders field is discovered to be nil for a particular message.
 
+;; jbw: fixed not to automatically keep all headers after first visible header
 (defun vm-reorder-message-headers (message)
   (save-excursion
@@ -664,5 +665,5 @@
 	   (setq match-end-0 (match-end 0)
 		 list (vm-match-visible-header header-alist))
-	   (if (and (null list)
+	   (if (and ;;(null list) ; jbw: commented out
 		    (or (null vm-invisible-header-regexp)
 			(looking-at vm-invisible-header-regexp)))
@@ -1343,4 +1344,5 @@
 	;; uncertainty.
 	(setq vm-buffer-modified-p "--??-")
+	(vm-check-for-killed-summary)	;jbw: added line
 	(if vm-summary-buffer
 	    (save-excursion
----------------------------------------------------------------------