Source

vm / vm-delete.el

Diff from to

vm-delete.el

 	       (or (not use-marks)
 		   (vm-mark-of (car mp)))))
 	;; remove the message from the thread tree.
-	(if vm-thread-obarray
+	(if (vectorp vm-thread-obarray)
 	    (vm-unthread-message (vm-real-message-of (car mp))))
 	;; expunge from the virtual side first, removing all
 	;; references to this message before actually removing