Anonymous avatar Anonymous committed 7d6ee7e

2003-04-02 Steve Youngs <youngs@xemacs.org>;

* Sync to upstream version 7.14.

* Makefile (VERSION): Set to 7.13 so when the package is rolled it
will be automatically incremented to 7.14.
(AUTHOR_VERSION): Bump.
(vm-autoload.el): Put provide form at end of file.

Comments (0)

Files changed (38)

+2003-04-02  Steve Youngs  <youngs@xemacs.org>
+
+	* Sync to upstream version 7.14.
+
+	* Makefile (VERSION): Set to 7.13 so when the package is rolled it
+	will be automatically incremented to 7.14.
+	(AUTHOR_VERSION): Bump.
+	(vm-autoload.el): Put provide form at end of file.
+
 2003-03-30  Steve Youngs  <youngs@xemacs.org>
 
 	* Makefile (GENERATED_LISP): Don't put vm-autoload.el here.
 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 # Boston, MA 02111-1307, USA.
 
-VERSION = 7.07
-AUTHOR_VERSION = 7.13
+VERSION = 7.13
+AUTHOR_VERSION = 7.14
 MAINTAINER = Kyle Jones <kyle_jones@wonderworks.com>
 PACKAGE = vm
 PKG_TYPE = regular
 
 vm-autoload.el: $(ELCS:.elc=.el)
 	@echo scanning sources to build autoload definitions...
-	@echo "(provide 'vm-autoload)" > vm-autoload.el
 	$(BOOT_XEMACS) -l ./make-autoloads -f print-autoloads \
 		$(ELCS:.elc=.el) >> vm-autoload.el
+	@echo "(provide 'vm-autoload)" >> vm-autoload.el
 base64-encode: base64-encode.c
 	$(CC) $(CFLAGS) -o base64-encode base64-encode.c
 
-install: all install-info install-vm install-pixmaps install-utils
+install: all install-info install-el install-vm install-pixmaps install-utils
 
 install-info: vm.info
 	test -d $(INFODIR) || mkdir -p $(INFODIR)
 
 # We use tr -d because Emacs under Cygwin apparently outputs CRLF
 # under Windows.  We remove the CRs.
+# Solaris 8's tr -d '\r' removes r's so we use '\015' instead.
 vm-autoload.elc:	$(SOURCES)
 	@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 '\r' >> vm-autoload.el
+	@$(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...
 	@$(EMACS) $(BATCHFLAGS) -l $(BYTEOPTS) -f batch-byte-compile vm-autoload.el
 
 ;;;
 ;;; Send bug reports to kyle@uunet.uu.net.
 
-(provide 'tapestry)
+;;(provide 'tapestry)
 
 (defvar tapestry-version "1.08")
 
 	    current-wb (window-buffer (car w-list)))
       ;; Setting the window buffer to the same value it already
       ;; has seems to confuse XEmacs' scroll-up function.  But
-      ;; _not_ setting after windows torn down seem to cause
+      ;; _not_ setting it after windows torn down seem to cause
       ;; window point to sometimes drift away from point at
       ;; redisplay time.  The solution (hopefully!) is to track
       ;; when windows have been rearranged and unconditionally do
       ;; the set-window-buffer, otherwise do it only if the
-      ;; window buffer and the prosed window buffer differ.
+      ;; window buffer and the proposed window buffer differ.
       (if (or tapestry-windows-changed (not (eq proposed-wb current-wb)))
 	  (set-window-buffer (car w-list) proposed-wb))
       (setq w-list (cdr w-list)
   (if (fboundp 'frame-live-p)
       (frame-live-p f)
     t ))
+
+(provide 'tapestry)
-(provide 'vm-byteopts)
+;;(provide 'vm-byteopts)
 
 ;; get the compiler loaded so we can undo some of the things that
 ;; happen when it's loaded.
 ;; avoid v20 features because users are going
 ;; to try to share elc files no matter what we tell them.
 (setq byte-compile-emacs19-compatibility t)
+
+(provide 'vm-byteopts)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-crypto)
+;;(provide 'vm-crypto)
 
 ;; compatibility
 (fset 'vm-pop-md5 'vm-md5-string)
     (setq vm-stunnel-configuration-file (vm-make-tempfile))
     (vm-register-global-garbage-files (list vm-stunnel-configuration-file))
     vm-stunnel-configuration-file))
+
+(provide 'vm-crypto)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-delete)
+;;(provide 'vm-delete)
 
 (defun vm-delete-message (count)
   "Add the `deleted' attribute to the current message.
       (if (not shaddap)
 	  (message "Deleted messages expunged.")))
      (t (message "No messages are flagged for deletion.")))))
+
+(provide 'vm-delete)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-digest)
+;;(provide 'vm-digest)
 
 (defun vm-no-frills-encapsulate-message (m keep-list discard-regexp)
   "Encapsulate a message M for forwarding, simply.
 			(vm-match-header)))
 	    (vm-matched-header-contents)
 	  nil )))))
+
+(provide 'vm-digest)
 ;;;
 ;;; Code:
 
-(provide 'vm-easymenu)
+;;(provide 'vm-easymenu)
 
 (defmacro vm-easy-menu-define (symbol maps doc menu)
   "Define a menu bar submenu in maps MAPS, according to MENU.
 
 (defun vm-easy-menu-add (menu &optional map))
 
+(provide 'vm-easymenu)
+
 ;;; vm-easymenu.el ends here
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-edit)
+;;(provide 'vm-edit)
 
 (defun vm-edit-message (&optional prefix-argument)
   "Edit the current message.  Prefix arg means mark as unedited instead.
   (set-buffer-modified-p nil)
   (kill-buffer (current-buffer))
   (message "Aborted, no change."))
+
+(provide 'vm-edit)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-folder)
+;;(provide 'vm-folder)
 
 (defun vm-number-messages (&optional start-point end-point)
   "Set the number-of and padded-number-of slots of messages
 		 (if b
 		     (progn
 		       (set-buffer b)
+		       (intern (buffer-name)
+			       vm-buffers-needing-undo-boundaries)
 		       (vm-check-for-killed-summary)
 		       (and vm-use-toolbar
 			    (vm-toolbar-support-possible-p)
     (setq after-revert-hook
 	  (cons 'vm-after-revert-buffer-hook after-revert-hook))
   (setq after-revert-hook (list 'vm-after-revert-buffer-hook)))
+
+(provide 'vm-folder)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-imap)
+;;(provide 'vm-imap)
 
 (if (fboundp 'define-error)
     (progn
     (forward-char 1))
   (goto-char (point-max))
   (insert "\""))
+
+(provide 'vm-imap)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-license)
+;;(provide 'vm-license)
 
 (defun vm-show-copying-restrictions (&optional warranty)
   (interactive)
   "Display \"NO WARRANTY\" section of the GNU General Public License."
   (interactive)
   (vm-show-copying-restrictions t))
+
+(provide 'vm-license)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-macro)
+;;(provide 'vm-macro)
 
 (defsubst vm-marker (pos &optional buffer)
   (set-marker (make-marker) pos buffer))
 
 (defmacro vm-decrement (variable)
   (list 'setq variable (list '1- variable)))
+
+(provide 'vm-macro)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-mark)
+;;(provide 'vm-mark)
 
 (defun vm-clear-all-marks ()
   "Removes all message marks in the current folder."
   (interactive)
   (vm-display nil nil '(vm-mark-help) '(vm-mark-help))
   (message "MM = mark, MU = unmark, Mm = mark all, Mu = unmark all, MN = use marks, ..."))
+
+(provide 'vm-mark)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-menu)
+;;(provide 'vm-menu)
 
 (defvar vm-menu-folders-menu 
   '("Manipulate Folders"
     menulist
     )
   )
+
+(provide 'vm-menu)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-message)
+;;(provide 'vm-message)
 
 ;; data that is always shared with virtual folders
 (defsubst vm-location-data-of (message)
 
 (defun vm-virtual-message-p (m)
   (not (eq m (vm-real-message-of m))))
+
+(provide 'vm-message)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-mime)
+;;(provide 'vm-mime)
 
 (defvar enable-multibyte-characters)
 (defvar default-enable-multibyte-characters)
 	"save to a file")
       ;; should not be reached
       "burn in the raging fires of hell forever"))
+
+(provide 'vm-mime)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-minibuf)
+;;(provide 'vm-minibuf)
 
 (defun vm-minibuffer-complete-word (&optional exiting)
   (interactive)
 				must-match initial history)))
 
 
+(provide 'vm-minibuf)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-misc)
+;;(provide 'vm-misc)
 
 (defun vm-delete-non-matching-strings (regexp list &optional destructively)
   "Delete strings matching REGEXP from LIST.
 	(setq size (- size (frame-pixel-width)))
 	(scroll-bar-mode nil)
 	(setq vm-fsfemacs-cached-scroll-bar-width size))))
+
+(provide 'vm-misc)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-motion)
+;;(provide 'vm-motion)
 
 (defun vm-record-and-change-message-pointer (old new)
   (intern (buffer-name) vm-buffers-needing-display-update)
 		      ;; return non-nil so the caller will know that
 		      ;; a new message was selected.
 		      t )))))))
+
+(provide 'vm-motion)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-mouse)
+;;(provide 'vm-mouse)
 
 (defun vm-mouse-set-mouse-track-highlight (start end &optional overlay)
   (if (null overlay)
   (if normal-exit
       (throw 'exit nil)
     (throw 'exit t)))
+
+(provide 'vm-mouse)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-page)
+;;(provide 'vm-page)
 
 (defun vm-scroll-forward (&optional arg)
   "Scroll forward a screenful of text.
 	(goto-char (vm-extent-start-position e))
       (goto-char old-point)
       (error "No more buttons"))))
+
+(provide 'vm-page)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-pop)
+;;(provide 'vm-pop)
 
 (if (fboundp 'define-error)
     (progn
   (if (string-match "\\(pop\\|pop-ssh\\|pop-ssl\\)" spec)
       (vm-parse spec "\\([^:]+\\):?" 1 5)
     (vm-parse spec "\\([^:]+\\):?" 1 4)))
+
+(provide 'vm-pop)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-reply)
+;;(provide 'vm-reply)
 
 (defun vm-do-reply (to-all include-text count)
     (let ((mlist (vm-select-marked-or-prefixed-messages count))
   (remove-hook 'mail-setup-hook 'mime/editor-mode)
   (remove-hook 'mail-send-hook  'mime-edit-maybe-translate)
   (remove-hook 'mail-send-hook 'mime-editor/maybe-translate))
+
+(provide 'vm-reply)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-save)
+;;(provide 'vm-save)
 
 ;; (match-data) returns the match data as MARKERS, often corrupting
 ;; it in the process due to buffer narrowing, and the fact that buffers are
     (vm-display nil nil '(vm-print-message) '(vm-print-message))
     (if (not (zerop (save-excursion (set-buffer buffer) (buffer-size))))
 	(display-buffer buffer))))
+
+(provide 'vm-save)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-search)
+;;(provide 'vm-search)
 
 (defun vm-isearch-forward (&optional arg)
   "Incrementally search forward through the current folder's messages.
 	  (setq vm-need-summary-pointer-update t)
 	  (intern (buffer-name) vm-buffers-needing-display-update)
 	  (vm-update-summary-and-mode-line)))))
+
+(provide 'vm-search)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-sort)
+;;(provide 'vm-sort)
 
 (defun vm-move-message-forward (count)
   "Move a message forward in a VM folder.
     (cond ((> n1 n2) t)
 	  ((= n1 n2) '=)
 	  (t nil))))
+
+(provide 'vm-sort)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-startup)
+;;(provide 'vm-startup)
 
 (defvar enable-multibyte-characters)
 
 (defun vm-mode (&optional read-only)
   "Major mode for reading mail.
 
-This is VM 7.13.
+This is VM 7.14.
 
 Commands:
    h - summarize folder contents
 	  (or (vm-load-window-configurations vm-window-configuration-file)
 	      (setq vm-window-configurations vm-default-window-configuration)))
 	(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)
 		(find-face 'vm-monochrome-image)
 	      (facep 'vm-monochrome-image))
 (autoload 'tapestry-remove-frame-parameters "tapestry")
 (autoload 'vm-easy-menu-define "vm-easymenu" nil 'macro)
 (autoload 'vm-easy-menu-do-define "vm-easymenu")
+
+(provide 'vm-startup)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-summary)
+;;(provide 'vm-summary)
 
 (defun vm-summary-mode-internal ()
   (setq mode-name "VM Summary"
 		  (throw 'done t))))))
        vm-folders-summary-hash)
       nil )))
+
+(provide 'vm-summary)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-thread)
+;;(provide 'vm-thread)
 
 (defun vm-toggle-threads-display ()
   "Toggle the threads display on and off.
       (progn
 	(vm-set-thread-list-of m (vm-thread-list m))
 	(vm-thread-list-of m))))
+
+(provide 'vm-thread)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-toolbar)
+;;(provide 'vm-toolbar)
 
 (defvar vm-toolbar-specifier nil)
 
 		   (format "%s-xx.%s"
 			   name extension)
 		   dir)))))
+
+(provide 'vm-toolbar)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-undo)
+;;(provide 'vm-undo)
 
 (defun vm-set-buffer-modified-p (flag &optional buffer)
   (save-excursion
   (if (car vm-undo-record-list)
       (setq vm-undo-record-list (cons nil vm-undo-record-list))))
 
+(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 ()
   (let ((udp vm-undo-record-list) udp-prev)
     (while udp
 		   (vm-set-buffer-modified-p t)
 		   (vm-undo-record (list 'vm-set-buffer-modified-p nil))))
 	    (vm-undo-record (list function (car m-list) (not flag)))
-	    (vm-undo-boundary)
+;;;	    (vm-undo-boundary)
 	    (vm-increment vm-modification-counter))
 	  (setq m-list (cdr m-list)))))
       (aset (vm-attributes-of m) attr-index flag)
 		 (vm-set-buffer-modified-p t)
 		 (vm-undo-record (list 'vm-set-buffer-modified-p nil))))
 	  (vm-undo-record (list 'vm-set-labels m old-labels))
-	  (vm-undo-boundary)
+;;;	  (vm-undo-boundary)
 	  (vm-increment vm-modification-counter))
 	(setq m-list (cdr m-list)))
       (vm-set-labels-of m labels)
 ;; ditto.  this is for vm-read-attributes.
 (defun vm-set-new-flag-in-vector (v flag)
   (aset v 0 flag))
+
+(provide 'vm-undo)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-user)
+;;(provide 'vm-user)
 
 (defun vm-user-composition-folder-buffer ()
   "Returns the folder buffer associated with the current buffer.
 		list (cdr list)))
 	newlist )
     nil ))
+
+(provide 'vm-user)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-vars)
+;;(provide 'vm-vars)
 
 ;; Emacs 19.34 doens't have defcustom but we want to continue to
 ;; supoprt that Emacs version.  So fake up some definitions if we
 (defvar vm-tempfile-counter 0)
 (defvar vm-messages-needing-summary-update nil)
 (defvar vm-buffers-needing-display-update nil)
+(defvar vm-buffers-needing-undo-boundaries nil)
 (defvar vm-numbering-redo-start-point nil)
 (make-variable-buffer-local 'vm-numbering-redo-start-point)
 (defvar vm-numbering-redo-end-point nil)
 (cond (vm-faked-defcustom
        (fmakunbound 'defcustom)
        (fmakunbound 'defgroup)))
+
+(provide 'vm-vars)
-(provide 'vm)
+;;(provide 'vm)
+;;(provide 'vm-version)
 
-(provide 'vm-version)
-
-(defconst vm-version "7.13"
+(defconst vm-version "7.14"
   "Version number of VM.")
 
 (defun vm-version ()
   (if (fboundp 'image-type-available-p)
       (image-type-available-p type)
     (or (featurep type) (eq type 'xbm))))
+
+(provide 'vm)
+(provide 'vm-version)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-virtual)
+;;(provide 'vm-virtual)
 
 (defun vm-build-virtual-message-list (new-messages &optional dont-finalize)
   "Builds a list of messages matching the virtual folder definition
 					 (vm-start-of real-m))))
     (set-marker (vm-end-of m) (+ (vm-start-of m) (- (vm-end-of real-m)
 						    (vm-start-of real-m))))))
+
+(provide 'vm-virtual)
 ;;; along with this program; if not, write to the Free Software
 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
-(provide 'vm-window)
+;;(provide 'vm-window)
 
 (defun vm-display (buffer display commands configs
 		   &optional do-not-raise)
        ;; it is useful for this to be a no-op, but don't bind the
        ;; others.
        (fset 'vm-select-frame 'ignore)))
+
+(provide 'vm-window)
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.