Mercurial > hg > xemacs-beta

diff lisp/vm/vm-virtual.el @ 36:c53a95d3c46d r19-15b101

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b101
author cvs
date Mon, 13 Aug 2007 08:53:38 +0200
parents 441bb1e64a06
children 05472e90ae02
line wrap: on
line diff
--- a/lisp/vm/vm-virtual.el	Mon Aug 13 08:53:21 2007 +0200
+++ b/lisp/vm/vm-virtual.el	Mon Aug 13 08:53:38 2007 +0200
@@ -509,7 +509,9 @@
 	       ;; set the message pointer to a new value if it is
 	       ;; now invalid.
 	       (cond
-		((equal "Q" (vm-message-id-number-of (car vm-message-pointer)))
+		((and vm-message-pointer
+		      (equal "Q" (vm-message-id-number-of
+				  (car vm-message-pointer))))
 		 (vm-garbage-collect-message)
 		 (setq vmp vm-message-pointer)
 		 (while (and vm-message-pointer