Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-summary.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 4be1180a9e89
children 360340f9fd5f
comparison
equal deleted inserted replaced
101:a0ec055d74dd 102:a145efe76779
140 (insert vm-summary-no-=>) 140 (insert vm-summary-no-=>)
141 (vm-tokenized-summary-insert (car mp) (vm-su-summary (car mp))) 141 (vm-tokenized-summary-insert (car mp) (vm-su-summary (car mp)))
142 (vm-set-su-end-of (car mp) (point)) 142 (vm-set-su-end-of (car mp) (point))
143 (setq mp (cdr mp) n (1+ n)) 143 (setq mp (cdr mp) n (1+ n))
144 (if (zerop (% n modulus)) 144 (if (zerop (% n modulus))
145 (vm-unsaved-message "Generating summary... %d" n))) 145 (message "Generating summary... %d" n)))
146 ;; now convert the ints to markers. 146 ;; now convert the ints to markers.
147 (if (>= n modulus) 147 (if (>= n modulus)
148 (vm-unsaved-message "Generating summary markers... ")) 148 (message "Generating summary markers... "))
149 (setq mp m-list) 149 (setq mp m-list)
150 (while mp 150 (while mp
151 (and mouse-track-func (funcall mouse-track-func 151 (and mouse-track-func (funcall mouse-track-func
152 (vm-su-start-of (car mp)) 152 (vm-su-start-of (car mp))
153 (vm-su-end-of (car mp)))) 153 (vm-su-end-of (car mp))))
155 (vm-set-su-end-of (car mp) (vm-marker (vm-su-end-of (car mp)))) 155 (vm-set-su-end-of (car mp) (vm-marker (vm-su-end-of (car mp))))
156 (setq mp (cdr mp)))) 156 (setq mp (cdr mp))))
157 (set-buffer-modified-p modified)) 157 (set-buffer-modified-p modified))
158 (run-hooks 'vm-summary-redo-hook))) 158 (run-hooks 'vm-summary-redo-hook)))
159 (if (>= n modulus) 159 (if (>= n modulus)
160 (vm-unsaved-message "Generating summary... done")))) 160 (message "Generating summary... done"))))
161 161
162 (defun vm-do-needed-summary-rebuild () 162 (defun vm-do-needed-summary-rebuild ()
163 (if (and vm-summary-redo-start-point vm-summary-buffer) 163 (if (and vm-summary-redo-start-point vm-summary-buffer)
164 (progn 164 (progn
165 (vm-copy-local-variables vm-summary-buffer 'vm-summary-show-threads) 165 (vm-copy-local-variables vm-summary-buffer 'vm-summary-show-threads)
984 (defun vm-fix-my-summary!!! () 984 (defun vm-fix-my-summary!!! ()
985 (interactive) 985 (interactive)
986 (vm-select-folder-buffer) 986 (vm-select-folder-buffer)
987 (vm-check-for-killed-summary) 987 (vm-check-for-killed-summary)
988 (vm-error-if-folder-empty) 988 (vm-error-if-folder-empty)
989 (vm-unsaved-message "Fixing your summary...") 989 (message "Fixing your summary...")
990 (let ((mp vm-message-list)) 990 (let ((mp vm-message-list))
991 (while mp 991 (while mp
992 (vm-set-summary-of (car mp) nil) 992 (vm-set-summary-of (car mp) nil)
993 (vm-mark-for-summary-update (car mp)) 993 (vm-mark-for-summary-update (car mp))
994 (setq mp (cdr mp))) 994 (setq mp (cdr mp)))
995 (vm-stuff-folder-attributes nil) 995 (vm-stuff-folder-attributes nil)
996 (set-buffer-modified-p t) 996 (set-buffer-modified-p t)
997 (vm-update-summary-and-mode-line)) 997 (vm-update-summary-and-mode-line))
998 (vm-unsaved-message "Fixing your summary... done")) 998 (message "Fixing your summary... done"))
999 999
1000 (defun vm-su-thread-indent (m) 1000 (defun vm-su-thread-indent (m)
1001 (if (natnump vm-summary-thread-indent-level) 1001 (if (natnump vm-summary-thread-indent-level)
1002 (make-string (* (vm-th-thread-indentation m) 1002 (make-string (* (vm-th-thread-indentation m)
1003 vm-summary-thread-indent-level) 1003 vm-summary-thread-indent-level)