diff lisp/vm/vm-thread.el @ 136:b980b6286996 r20-2b2

Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 869e1851236b
children 585fb297b004
line wrap: on
line diff
--- a/lisp/vm/vm-thread.el	Mon Aug 13 09:30:13 2007 +0200
+++ b/lisp/vm/vm-thread.el	Mon Aug 13 09:31:12 2007 +0200
@@ -159,8 +159,8 @@
       (vm-thread-mark-for-summary-update
        (get (intern (vm-su-message-id (car message-list))
 		    vm-thread-obarray)
-	    'children))
-      (setq message-list (cdr message-list)))))
+	    'children)))
+    (setq message-list (cdr message-list))))
 
 (defun vm-thread-list (message)
   (let ((done nil)