🚀 go-pugleaf

[After several people described problems moving messages within a
 folder and saving it]

>>>>> Kyle Jones writes:
>I don't recommend the use of cl.el.  It seemed to redefine some
>internal Lisp functions and the new definitions are not equivalent
>to the old.

VM 5.32, emacs 18.58, cl.elc preloaded (i.e. in the dumped emacs),
vm-retain-message-order set to t:

A) I can't save a folder after its messages have been moved around(*).

B) If cl.elc is reloaded AFTER vm is loaded, everything works fine.


Martin

----------
(*) I get the following backtrace (byte codes removed and lines wrapped by me):

Signalling: (invalid-function (macro lambda (n) 
				(byte-code "..." [n if > 0 1 zerop -1] 7)))
  signum(1)
  byte-code("..." [q a b s r / abs * signum values] 11)
  safe-idiv(1 15)
  byte-code("..." [divisor number t T$$_17 *mvalues-count* nil it
		    *mvalues-values* s r q numberp values 0 gensym
		    safe-idiv copy-sequence 1 2 zerop plusp *] 18)
  floor(1 15)
  byte-code("..." [number divisor *mvalues-values* floor] 3)
  mod(1 15)
  byte-code("..." [vm-message-list vm-sr-clip vm-sr-min vm-sr-max
		    old-buffer-modified-p buffer-file-name nil
		    buffer-read-only lim n mp inhibit-quit t
		    vm-message-order-header-regexp vm-message-order-header
		    vm-message-order-stuffed buffer-size set-marker
		    make-marker
			((byte-code "..."
			    [vm-sr-clip vm-sr-min vm-sr-max nil
				widen narrow-to-region set-marker] 6))
		    widen buffer-modified-p copy-sequence sort
		    (lambda (p q) (byte-code "..." [p q 0] 3))
		    forward-line search-forward "\n\n" re-search-forward
		    delete-region match-beginning 0 match-end
		    insert-before-markers "\n	(" 1 zerop mod 15
		    "\n	 " " " ")\n" set-buffer-modified-p] 24)
  vm-stuff-message-order()
  byte-code("..." [nil current-prefix-arg vm-mail-buffer vm-summary-buffer
		    major-mode this-command inhibit-quit t mp
		    vm-message-list vm-retain-message-order
		    vm-message-order-changed vm-inhibit-write-file-hook
		    prefix vm-messages-not-on-disk vm-block-new-mail
		    vm-delete-empty-folders quitting vm-message-pointer
		    buffer-name vm-sanity-check-modification-flag bufferp
		    vm-virtual-mode error
		    "%s cannot be applied to virtual folders."
		    buffer-modified-p message "Expunging..."
		    (byte-code "..." [quitting t vm-expunge-folder] 3)
		    ((error (byte-code "..." [nil] 1)))
		    "Stuffing attributes..." 4 vm-stuff-attributes
		    vm-do-needed-renumbering vm-stuff-bookmark
		    vm-stuff-header-variables vm-stuff-message-order
		    "Saving..." save-buffer vm-set-buffer-modified-p 0
		    zerop buffer-size
		    (byte-code "..."
			[buffer-file-name delete-file message "%s removed"] 4)
		    ((error (byte-code "" [nil] 1)))
		    vm-update-summary-and-mode-line
		    vm-next-message "No changes need to be saved"] 22)
  vm-save-folder(t)
  byte-code("..." [vm-mail-buffer major-mode this-command vm-summary-buffer
		    nil vm-virtual-buffers no-change vm-messages-not-on-disk
		    vm-undo-record-list vm-confirm-quit t inhibit-quit
		    vm-folder-read-only summary-buffer mail-buffer
		    vm-mutable-windows buffer-name (vm-mode vm-virtual-mode)
		    error "%s must be invoked from a VM buffer."
		    bufferp vm-trim-dead-buffers
		    "Can't execute command: folder is referenced virtually."
		    vm-virtual-mode vm-virtual-quit buffer-modified-p
		    zerop assq vm-set-buffer-modified-p y-or-n-p format
		    "%d message%s have not been saved to disk, quit anyway? "
		    1 "" "s" "Aborted"
		    "There are unsaved changes, quit anyway? "
		    "Do you really want to quit? "
		    message "Quitting..."
		    vm-change-all-new-to-unread vm-save-folder
		    delete-windows-on kill-buffer set-buffer-modified-p] 30)
  vm-quit()
* call-interactively(vm-quit)
--
Martin Boyer                            mboyer@ireq-robot.hydro.qc.ca
Institut de recherche d'Hydro-Quebec    mboyer@ireq-robot.uucp
Varennes, QC, Canada   J3X 1S1
+1 514 652-8412