Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-save.el @ 24:4103f0995bd7 r19-15b95

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b95
author cvs
date Mon, 13 Aug 2007 08:51:03 +0200
parents 859a2309aef8
children 441bb1e64a06
comparison
equal deleted inserted replaced
23:0edd3412f124 24:4103f0995bd7
33 (condition-case error-data 33 (condition-case error-data
34 (catch 'match 34 (catch 'match
35 (let (header alist tuple-list) 35 (let (header alist tuple-list)
36 (setq alist auto-folder-alist) 36 (setq alist auto-folder-alist)
37 (while alist 37 (while alist
38 (setq header (vm-get-header-contents (car mp) (car (car alist)))) 38 (setq header (vm-get-header-contents (car mp) (car (car alist))
39 ", "))
39 (if (null header) 40 (if (null header)
40 () 41 ()
41 (setq tuple-list (cdr (car alist))) 42 (setq tuple-list (cdr (car alist)))
42 (while tuple-list 43 (while tuple-list
43 (if (let ((case-fold-search vm-auto-folder-case-fold-search)) 44 (if (let ((case-fold-search vm-auto-folder-case-fold-search))