*** dist/Makefile.dist	Wed Mar  5 23:39:03 2003
--- Makefile	Thu Mar 20 10:50:02 2003
***************
*** 147,150 ****
  	@echo scanning sources to build autoload definitions...
- 	@echo "(provide 'vm-autoload)" > vm-autoload.el
  	@$(EMACS) $(BATCHFLAGS) -l ./make-autoloads -f print-autoloads $(SOURCES) | tr -d '\015' >> vm-autoload.el
  	@echo compiling vm-autoload.el...
--- 147,150 ----
  	@echo scanning sources to build autoload definitions...
  	@$(EMACS) $(BATCHFLAGS) -l ./make-autoloads -f print-autoloads $(SOURCES) | tr -d '\015' >> vm-autoload.el
+ 	@echo "(provide 'vm-autoload)" >> vm-autoload.el
  	@echo compiling vm-autoload.el...
*** dist/vm-byteopts.el.dist	Mon Aug 17 15:23:11 1998
--- vm-byteopts.el	Thu Mar 20 10:56:32 2003
***************
*** 1,2 ****
! (provide 'vm-byteopts)
  
--- 1,2 ----
! ;;(provide 'vm-byteopts)
  
***************
*** 21 ****
--- 21,23 ----
  (setq byte-compile-emacs19-compatibility t)
+ 
+ (provide 'vm-byteopts)
*** dist/vm-crypto.el.dist	Wed Mar  5 23:39:03 2003
--- vm-crypto.el	Thu Mar 20 10:51:14 2003
***************
*** 17,19 ****
  
! (provide 'vm-crypto)
  
--- 17,19 ----
  
! ;;(provide 'vm-crypto)
  
***************
*** 203 ****
--- 203,205 ----
      vm-stunnel-configuration-file))
+ 
+ (provide 'vm-crypto)
*** dist/vm-delete.el.dist	Mon Mar  3 23:53:30 2003
--- vm-delete.el	Thu Mar 20 10:56:32 2003
***************
*** 17,19 ****
  
! (provide 'vm-delete)
  
--- 17,19 ----
  
! ;;(provide 'vm-delete)
  
***************
*** 378 ****
--- 378,380 ----
       (t (message "No messages are flagged for deletion.")))))
+ 
+ (provide 'vm-delete)
*** dist/vm-digest.el.dist	Mon Mar  3 23:53:30 2003
--- vm-digest.el	Thu Mar 20 10:56:32 2003
***************
*** 17,19 ****
  
! (provide 'vm-digest)
  
--- 17,19 ----
  
! ;;(provide 'vm-digest)
  
***************
*** 752 ****
--- 752,754 ----
  	  nil )))))
+ 
+ (provide 'vm-digest)
*** dist/vm-edit.el.dist	Fri Feb 14 16:19:38 2003
--- vm-edit.el	Thu Mar 20 10:56:32 2003
***************
*** 17,19 ****
  
! (provide 'vm-edit)
  
--- 17,19 ----
  
! ;;(provide 'vm-edit)
  
***************
*** 269 ****
--- 269,271 ----
    (message "Aborted, no change."))
+ 
+ (provide 'vm-edit)
*** dist/vm-folder.el.dist	Wed Mar 19 16:10:11 2003
--- vm-folder.el	Thu Mar 27 13:49:54 2003
***************
*** 17,19 ****
  
! (provide 'vm-folder)
  
--- 17,19 ----
  
! ;;(provide 'vm-folder)
  
***************
*** 358,359 ****
--- 358,361 ----
  		       (set-buffer b)
+ 		       (intern (buffer-name)
+ 			       vm-buffers-needing-undo-boundaries)
  		       (vm-check-for-killed-summary)
***************
*** 4254 ****
--- 4256,4258 ----
    (setq after-revert-hook (list 'vm-after-revert-buffer-hook)))
+ 
+ (provide 'vm-folder)
*** dist/vm-imap.el.dist	Wed Mar  5 00:05:57 2003
--- vm-imap.el	Thu Mar 20 10:56:32 2003
***************
*** 17,19 ****
  
! (provide 'vm-imap)
  
--- 17,19 ----
  
! ;;(provide 'vm-imap)
  
***************
*** 1307 ****
--- 1307,1309 ----
    (insert "\""))
+ 
+ (provide 'vm-imap)
*** dist/vm-license.el.dist	Thu May 29 21:41:17 1997
--- vm-license.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-license)
  
--- 17,19 ----
  
! ;;(provide 'vm-license)
  
***************
*** 45 ****
--- 45,47 ----
    (vm-show-copying-restrictions t))
+ 
+ (provide 'vm-license)
*** dist/vm-macro.el.dist	Fri Apr 19 13:45:09 2002
--- vm-macro.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-macro)
  
--- 17,19 ----
  
! ;;(provide 'vm-macro)
  
***************
*** 108 ****
--- 108,110 ----
    (list 'setq variable (list '1- variable)))
+ 
+ (provide 'vm-macro)
*** dist/vm-mark.el.dist	Tue Jan  9 22:51:31 2001
--- vm-mark.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-mark)
  
--- 17,19 ----
  
! ;;(provide 'vm-mark)
  
***************
*** 458 ****
--- 458,460 ----
    (message "MM = mark, MU = unmark, Mm = mark all, Mu = unmark all, MN = use marks, ..."))
+ 
+ (provide 'vm-mark)
*** dist/vm-message.el.dist	Mon Mar  4 07:57:01 2002
--- vm-message.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-message)
  
--- 17,19 ----
  
! ;;(provide 'vm-message)
  
***************
*** 360 ****
--- 360,362 ----
    (not (eq m (vm-real-message-of m))))
+ 
+ (provide 'vm-message)
*** dist/vm-menu.el.dist	Wed Mar  5 00:05:57 2003
--- vm-menu.el	Thu Mar 20 10:56:31 2003
***************
*** 44,46 ****
  
! (provide 'vm-menu)
  
--- 44,46 ----
  
! ;;(provide 'vm-menu)
  
***************
*** 1516 ****
--- 1516,1518 ----
    )
+ 
+ (provide 'vm-menu)
*** dist/vm-mime.el.dist	Wed Mar 19 16:10:11 2003
--- vm-mime.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-mime)
  
--- 17,19 ----
  
! ;;(provide 'vm-mime)
  
***************
*** 5993 ****
--- 5993,5995 ----
        "burn in the raging fires of hell forever"))
+ 
+ (provide 'vm-mime)
*** dist/vm-minibuf.el.dist	Fri Feb 14 16:19:38 2003
--- vm-minibuf.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-minibuf)
  
--- 17,19 ----
  
! ;;(provide 'vm-minibuf)
  
***************
*** 416 ****
--- 416,417 ----
  
+ (provide 'vm-minibuf)
*** dist/vm-misc.el.dist	Wed Mar  5 23:39:04 2003
--- vm-misc.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-misc)
  
--- 17,19 ----
  
! ;;(provide 'vm-misc)
  
***************
*** 904 ****
--- 904,906 ----
  	(setq vm-fsfemacs-cached-scroll-bar-width size))))
+ 
+ (provide 'vm-misc)
*** dist/vm-motion.el.dist	Tue Nov 14 21:42:27 2000
--- vm-motion.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-motion)
  
--- 17,19 ----
  
! ;;(provide 'vm-motion)
  
***************
*** 462 ****
--- 462,464 ----
  		      t )))))))
+ 
+ (provide 'vm-motion)
*** dist/vm-mouse.el.dist	Fri Mar 14 23:05:30 2003
--- vm-mouse.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-mouse)
  
--- 17,19 ----
  
! ;;(provide 'vm-mouse)
  
***************
*** 564 ****
--- 564,566 ----
      (throw 'exit t)))
+ 
+ (provide 'vm-mouse)
*** dist/vm-page.el.dist	Fri Apr 19 13:45:10 2002
--- vm-page.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-page)
  
--- 17,19 ----
  
! ;;(provide 'vm-page)
  
***************
*** 1056 ****
--- 1056,1058 ----
        (error "No more buttons"))))
+ 
+ (provide 'vm-page)
*** dist/vm-pop.el.dist	Fri Mar 14 23:05:30 2003
--- vm-pop.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-pop)
  
--- 17,19 ----
  
! ;;(provide 'vm-pop)
  
***************
*** 1090 ****
--- 1090,1092 ----
      (vm-parse spec "\\([^:]+\\):?" 1 4)))
+ 
+ (provide 'vm-pop)
*** dist/vm-reply.el.dist	Fri Feb 14 16:19:38 2003
--- vm-reply.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-reply)
  
--- 17,19 ----
  
! ;;(provide 'vm-reply)
  
***************
*** 1531 ****
--- 1531,1533 ----
    (remove-hook 'mail-send-hook 'mime-editor/maybe-translate))
+ 
+ (provide 'vm-reply)
*** dist/vm-save.el.dist	Fri Feb 14 16:19:38 2003
--- vm-save.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-save)
  
--- 17,19 ----
  
! ;;(provide 'vm-save)
  
***************
*** 623 ****
--- 623,625 ----
  	(display-buffer buffer))))
+ 
+ (provide 'vm-save)
*** dist/vm-search.el.dist	Sun Jan 17 17:42:36 1999
--- vm-search.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-search)
  
--- 17,19 ----
  
! ;;(provide 'vm-search)
  
***************
*** 122 ****
--- 122,124 ----
  	  (vm-update-summary-and-mode-line)))))
+ 
+ (provide 'vm-search)
*** dist/vm-sort.el.dist	Thu Jun  6 08:25:29 2002
--- vm-sort.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-sort)
  
--- 17,19 ----
  
! ;;(provide 'vm-sort)
  
***************
*** 585 ****
--- 585,587 ----
  	  (t nil))))
+ 
+ (provide 'vm-sort)
*** dist/vm-startup.el.dist	Wed Mar 19 16:10:12 2003
--- vm-startup.el	Thu Mar 27 20:30:14 2003
***************
*** 17,19 ****
  
! (provide 'vm-startup)
  
--- 17,19 ----
  
! ;;(provide 'vm-startup)
  
***************
*** 376,378 ****
  
! This is VM 7.13.
  
--- 376,378 ----
  
! This is VM 7.14.
  
***************
*** 1614,1615 ****
--- 1614,1617 ----
  	(setq vm-buffers-needing-display-update (make-vector 29 0))
+ 	(setq vm-buffers-needing-undo-boundaries (make-vector 29 0))
+ 	(add-hook 'post-command-hook 'vm-add-undo-boundaries)
  	(if (if (fboundp 'find-face)
***************
*** 1690 ****
--- 1692,1694 ----
  (autoload 'vm-easy-menu-do-define "vm-easymenu")
+ 
+ (provide 'vm-startup)
*** dist/vm-summary.el.dist	Mon Mar  3 23:53:30 2003
--- vm-summary.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-summary)
  
--- 17,19 ----
  
! ;;(provide 'vm-summary)
  
***************
*** 1700 ****
--- 1700,1702 ----
        nil )))
+ 
+ (provide 'vm-summary)
*** dist/vm-thread.el.dist	Thu Jun  6 08:25:29 2002
--- vm-thread.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-thread)
  
--- 17,19 ----
  
! ;;(provide 'vm-thread)
  
***************
*** 352 ****
--- 352,354 ----
  	(vm-thread-list-of m))))
+ 
+ (provide 'vm-thread)
*** dist/vm-toolbar.el.dist	Sun Oct 28 22:13:05 2001
--- vm-toolbar.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-toolbar)
  
--- 17,19 ----
  
! ;;(provide 'vm-toolbar)
  
***************
*** 696 ****
--- 696,698 ----
  		   dir)))))
+ 
+ (provide 'vm-toolbar)
*** dist/vm-undo.el.dist	Wed Nov 29 20:40:33 2000
--- vm-undo.el	Thu Mar 27 13:52:36 2003
***************
*** 17,19 ****
  
! (provide 'vm-undo)
  
--- 17,19 ----
  
! ;;(provide 'vm-undo)
  
***************
*** 32,33 ****
--- 32,45 ----
  
+ (defun vm-add-undo-boundaries ()
+   (save-excursion
+     (mapatoms (function
+ 	       (lambda (b)
+ 		 (setq b (get-buffer (symbol-name b)))
+ 		 (if b
+ 		     (progn
+ 		       (set-buffer b)
+ 		       (vm-undo-boundary)))))
+ 	      vm-buffers-needing-undo-boundaries)
+     (fillarray vm-buffers-needing-undo-boundaries 0)))
+ 
  (defun vm-clear-expunge-invalidated-undos ()
***************
*** 459,461 ****
  	    (vm-undo-record (list function (car m-list) (not flag)))
! 	    (vm-undo-boundary)
  	    (vm-increment vm-modification-counter))
--- 471,473 ----
  	    (vm-undo-record (list function (car m-list) (not flag)))
! ;;;	    (vm-undo-boundary)
  	    (vm-increment vm-modification-counter))
***************
*** 496,498 ****
  	  (vm-undo-record (list 'vm-set-labels m old-labels))
! 	  (vm-undo-boundary)
  	  (vm-increment vm-modification-counter))
--- 508,510 ----
  	  (vm-undo-record (list 'vm-set-labels m old-labels))
! ;;;	  (vm-undo-boundary)
  	  (vm-increment vm-modification-counter))
***************
*** 549 ****
--- 561,563 ----
    (aset v 0 flag))
+ 
+ (provide 'vm-undo)
*** dist/vm-user.el.dist	Tue Nov 14 21:42:28 2000
--- vm-user.el	Thu Mar 20 10:56:31 2003
***************
*** 17,19 ****
  
! (provide 'vm-user)
  
--- 17,19 ----
  
! ;;(provide 'vm-user)
  
***************
*** 54 ****
--- 54,56 ----
      nil ))
+ 
+ (provide 'vm-user)
*** dist/vm-vars.el.dist	Wed Mar 19 16:10:12 2003
--- vm-vars.el	Thu Mar 27 13:50:11 2003
***************
*** 17,19 ****
  
! (provide 'vm-vars)
  
--- 17,19 ----
  
! ;;(provide 'vm-vars)
  
***************
*** 4033,4034 ****
--- 4033,4035 ----
  (defvar vm-buffers-needing-display-update nil)
+ (defvar vm-buffers-needing-undo-boundaries nil)
  (defvar vm-numbering-redo-start-point nil)
***************
*** 4778 ****
--- 4779,4781 ----
         (fmakunbound 'defgroup)))
+ 
+ (provide 'vm-vars)
*** dist/vm-version.el.dist	Wed Mar 19 16:10:12 2003
--- vm-version.el	Thu Mar 27 20:30:14 2003
***************
*** 1,6 ****
! (provide 'vm)
! 
! (provide 'vm-version)
  
! (defconst vm-version "7.13"
    "Version number of VM.")
--- 1,5 ----
! ;;(provide 'vm)
! ;;(provide 'vm-version)
  
! (defconst vm-version "7.14"
    "Version number of VM.")
***************
*** 108 ****
--- 107,110 ----
      (or (featurep type) (eq type 'xbm))))
+ 
+ (provide 'vm)
+ (provide 'vm-version)
*** dist/vm-virtual.el.dist	Fri Feb 14 16:19:38 2003
--- vm-virtual.el	Thu Mar 20 10:56:30 2003
***************
*** 17,19 ****
  
! (provide 'vm-virtual)
  
--- 17,19 ----
  
! ;;(provide 'vm-virtual)
  
***************
*** 757 ****
--- 757,759 ----
  						    (vm-start-of real-m))))))
+ 
+ (provide 'vm-virtual)
*** dist/vm-window.el.dist	Sun Nov 18 23:57:26 2001
--- vm-window.el	Thu Mar 20 10:56:30 2003
***************
*** 17,19 ****
  
! (provide 'vm-window)
  
--- 17,19 ----
  
! ;;(provide 'vm-window)
  
***************
*** 697 ****
--- 697,699 ----
         (fset 'vm-select-frame 'ignore)))
+ 
+ (provide 'vm-window)
*** dist/tapestry.el.dist	Tue Jan  7 00:57:30 1997
--- tapestry.el	Thu Mar 20 10:49:00 2003
***************
*** 20,22 ****
  
! (provide 'tapestry)
  
--- 20,22 ----
  
! ;;(provide 'tapestry)
  
***************
*** 260,262 ****
        ;; has seems to confuse XEmacs' scroll-up function.  But
!       ;; _not_ setting after windows torn down seem to cause
        ;; window point to sometimes drift away from point at
--- 260,262 ----
        ;; has seems to confuse XEmacs' scroll-up function.  But
!       ;; _not_ setting it after windows torn down seem to cause
        ;; window point to sometimes drift away from point at
***************
*** 265,267 ****
        ;; the set-window-buffer, otherwise do it only if the
!       ;; window buffer and the prosed window buffer differ.
        (if (or tapestry-windows-changed (not (eq proposed-wb current-wb)))
--- 265,267 ----
        ;; the set-window-buffer, otherwise do it only if the
!       ;; window buffer and the proposed window buffer differ.
        (if (or tapestry-windows-changed (not (eq proposed-wb current-wb)))
***************
*** 607 ****
--- 607,609 ----
      t ))
+ 
+ (provide 'tapestry)
*** dist/vm-easymenu.el.dist	Wed Feb 18 19:11:48 1998
--- vm-easymenu.el	Thu Mar 20 10:56:32 2003
***************
*** 47,49 ****
  
! (provide 'vm-easymenu)
  
--- 47,49 ----
  
! ;;(provide 'vm-easymenu)
  
***************
*** 221,222 ****
--- 221,224 ----
  (defun vm-easy-menu-add (menu &optional map))
+ 
+ (provide 'vm-easymenu)