🚀 go-pugleaf

* fixed References being inserted after mail-header-separator
* made a couple of VM find-file-hooks not assume that becasue
  they've been installed vm-message-list has been initialized.
* removed last of \\[...] usage; might as well be consistent
  since these things waste more time than they save.

*** vm-delete.el.dist	Sat Mar 16 12:19:07 1991
--- vm-delete.el	Mon Mar 18 17:29:04 1991
***************
*** 1,5 ****
  ;;; Delete and expunge commands for VM.
! ;;; Copyright (C) 1989, 1990 Kyle E. Jones
  ;;;
  ;;; This program is free software; you can redistribute it and/or modify
  ;;; it under the terms of the GNU General Public License as published by
--- 1,5 ----
  ;;; Delete and expunge commands for VM.
! ;;; Copyright (C) 1989, 1990, 1991 Kyle E. Jones
  ;;;
  ;;; This program is free software; you can redistribute it and/or modify
  ;;; it under the terms of the GNU General Public License as published by
***************
*** 14,21 ****
  ;;; You should have received a copy of the GNU General Public License
  ;;; along with this program; if not, write to the Free Software
  ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
- ;;;
- ;;; Send bug reports to kyle@cs.odu.edu.
  
  (require 'vm)
  
--- 14,19 ----
*** vm-edit.el.dist	Sun Mar  3 23:54:05 1991
--- vm-edit.el	Mon Mar 18 17:20:41 1991
***************
*** 1,5 ****
  ;;; Editing VM messages
! ;;; Copyright (C) 1990 Kyle E. Jones
  ;;;
  ;;; This program is free software; you can redistribute it and/or modify
  ;;; it under the terms of the GNU General Public License as published by
--- 1,5 ----
  ;;; Editing VM messages
! ;;; Copyright (C) 1990, 1991 Kyle E. Jones
  ;;;
  ;;; This program is free software; you can redistribute it and/or modify
  ;;; it under the terms of the GNU General Public License as published by
***************
*** 70,77 ****
  	    (use-local-map (copy-keymap (or (current-local-map)
  					    (make-sparse-keymap))))
  	    (vm-overlay-keymap vm-edit-message-mode-map (current-local-map))
! 	    (message
! 	     (substitute-command-keys "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change.")))
  	(switch-to-buffer edit-buf)))))
  
  (defun vm-overlay-keymap (src-map dest-map)
--- 70,76 ----
  	    (use-local-map (copy-keymap (or (current-local-map)
  					    (make-sparse-keymap))))
  	    (vm-overlay-keymap vm-edit-message-mode-map (current-local-map))
! 	    (message "Type C-c ESC to end edit, C-c C-] to abort with no change."))
  	(switch-to-buffer edit-buf)))))
  
  (defun vm-overlay-keymap (src-map dest-map)
*** vm-reply.el.dist	Sat Mar 16 12:19:08 1991
--- vm-reply.el	Mon Mar 18 11:42:48 1991
***************
*** 115,120 ****
--- 115,121 ----
  					"$")))
  		    (goto-char (point-min))
  		    (re-search-forward regexp nil t)
+ 		    (beginning-of-line)
  		    (insert "References: " references "\n"))))
  	    (if include-text
  		(save-excursion
*** vm-version.el.dist	Sat Mar 16 12:19:08 1991
--- vm-version.el	Mon Mar 18 11:41:13 1991
***************
*** 1,2 ****
! (defconst vm-version "5.28 (beta)"
    "Version number of VM.")
--- 1,2 ----
! (defconst vm-version "5.29 (beta)"
    "Version number of VM.")
*** vm.el.dist	Sat Mar 16 12:19:08 1991
--- vm.el	Mon Mar 18 11:45:34 1991
***************
*** 1357,1362 ****
--- 1357,1363 ----
  ;; and handle things properly.
  (defun vm-handle-file-recovery ()
    (if (and (buffer-modified-p)
+ 	   (eq major-mode 'vm-mode)
  	   vm-message-list
  	   (= (vm-end-of (car vm-message-list)) 1))
        (progn
***************
*** 1375,1380 ****
--- 1376,1382 ----
  ;; and handle things properly.
  (defun vm-handle-file-reversion ()
    (if (and (not (buffer-modified-p))
+ 	   (eq major-mode 'vm-mode)
  	   vm-message-list
  	   (= (vm-end-of (car vm-message-list)) 1))
        (progn