Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-thread.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 131b0175ea99
children a145efe76779
comparison
equal deleted inserted replaced
97:498bf5da1c90 98:0d2f883870bc
120 (fillarray vm-thread-loop-obarray 0) 120 (fillarray vm-thread-loop-obarray 0)
121 (while (not done) 121 (while (not done)
122 (setq loop-sym (intern (symbol-name id-sym) vm-thread-loop-obarray)) 122 (setq loop-sym (intern (symbol-name id-sym) vm-thread-loop-obarray))
123 (if (boundp loop-sym) 123 (if (boundp loop-sym)
124 ;; loop detected, bail... 124 ;; loop detected, bail...
125 (setq done t 125 (setq done t)
126 thread-list (cdr thread-list))
127 (set loop-sym t) 126 (set loop-sym t)
128 (if (and (boundp id-sym) (symbol-value id-sym)) 127 (if (and (boundp id-sym) (symbol-value id-sym))
129 (progn 128 (progn
130 (setq id-sym (symbol-value id-sym) 129 (setq id-sym (symbol-value id-sym)
131 thread-list (cons id-sym thread-list) 130 thread-list (cons id-sym thread-list)
210 (defun vm-th-parent (m) 209 (defun vm-th-parent (m)
211 (or (vm-parent-of m) 210 (or (vm-parent-of m)
212 (vm-set-parent-of 211 (vm-set-parent-of
213 m 212 m
214 (or (let (references) 213 (or (let (references)
215 (setq references (vm-get-header-contents m "References:")) 214 (setq references (vm-get-header-contents m "References:" " "))
216 (and references 215 (and references
217 (car (vm-last 216 (car (vm-last
218 (vm-parse references "[^<]*\\(<[^>]+>\\)"))))) 217 (vm-parse references "[^<]*\\(<[^>]+>\\)")))))
219 (let (in-reply-to) 218 (let (in-reply-to)
220 (setq in-reply-to (vm-get-header-contents m "In-Reply-To:")) 219 (setq in-reply-to (vm-get-header-contents m "In-Reply-To:" " "))
221 (and in-reply-to 220 (and in-reply-to
222 (car (vm-parse in-reply-to "[^<]*\\(<[^>]+>\\)")))))))) 221 (car (vm-parse in-reply-to "[^<]*\\(<[^>]+>\\)"))))))))
223 222
224 (defun vm-th-thread-indentation (m) 223 (defun vm-th-thread-indentation (m)
225 (or (vm-thread-indentation-of m) 224 (or (vm-thread-indentation-of m)