Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-thread.el @ 26:441bb1e64a06 r19-15b96

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b96
author cvs
date Mon, 13 Aug 2007 08:51:32 +0200
parents 859a2309aef8
children c53a95d3c46d
comparison
equal deleted inserted replaced
25:383a494979f8 26:441bb1e64a06
92 (aset (symbol-value subject-sym) 2 92 (aset (symbol-value subject-sym) 2
93 (cons (car mp) 93 (cons (car mp)
94 (aref (symbol-value subject-sym) 2)))))))) 94 (aref (symbol-value subject-sym) 2))))))))
95 (setq mp (cdr mp) n (1+ n)) 95 (setq mp (cdr mp) n (1+ n))
96 (if (zerop (% n modulus)) 96 (if (zerop (% n modulus))
97 (vm-unsaved-message "Building threads... %d" n))) 97 (message "Building threads... %d" n)))
98 (if (> n modulus) 98 (if (> n modulus)
99 (vm-unsaved-message "Building threads... done")))) 99 (message "Building threads... done"))))
100 100
101 (defun vm-thread-mark-for-summary-update (message-list) 101 (defun vm-thread-mark-for-summary-update (message-list)
102 (while message-list 102 (while message-list
103 (vm-mark-for-summary-update (car message-list) t) 103 (vm-mark-for-summary-update (car message-list) t)
104 (vm-set-thread-list-of (car message-list) nil) 104 (vm-set-thread-list-of (car message-list) nil)