Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-2b2
author cvs
date Mon, 13 Aug 2007 09:31:12 +0200
parents 869e1851236b
children 585fb297b004
comparison
equal deleted inserted replaced
135:4636a6841cd6 136:b980b6286996
157 (vm-set-thread-list-of (car message-list) nil) 157 (vm-set-thread-list-of (car message-list) nil)
158 (vm-set-thread-indentation-of (car message-list) nil) 158 (vm-set-thread-indentation-of (car message-list) nil)
159 (vm-thread-mark-for-summary-update 159 (vm-thread-mark-for-summary-update
160 (get (intern (vm-su-message-id (car message-list)) 160 (get (intern (vm-su-message-id (car message-list))
161 vm-thread-obarray) 161 vm-thread-obarray)
162 'children)) 162 'children)))
163 (setq message-list (cdr message-list))))) 163 (setq message-list (cdr message-list))))
164 164
165 (defun vm-thread-list (message) 165 (defun vm-thread-list (message)
166 (let ((done nil) 166 (let ((done nil)
167 (m message) 167 (m message)
168 thread-list id-sym subject-sym loop-sym root-date) 168 thread-list id-sym subject-sym loop-sym root-date)