Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-thread.el @ 102:a145efe76779 r20-1b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b3
author cvs
date Mon, 13 Aug 2007 09:15:49 +0200
parents 0d2f883870bc
children 8619ce7e4c50
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
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)