Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-mark.el @ 54:05472e90ae02 r19-16-pre2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-16-pre2
author cvs
date Mon, 13 Aug 2007 08:57:55 +0200
parents 441bb1e64a06
children 131b0175ea99
comparison
equal deleted inserted replaced
53:875393c1a535 54:05472e90ae02
21 "Removes all message marks in the current folder." 21 "Removes all message marks in the current folder."
22 (interactive) 22 (interactive)
23 (vm-select-folder-buffer) 23 (vm-select-folder-buffer)
24 (vm-check-for-killed-summary) 24 (vm-check-for-killed-summary)
25 (vm-error-if-folder-empty) 25 (vm-error-if-folder-empty)
26 (message "Clearing all marks...")
26 (let ((mp vm-message-list)) 27 (let ((mp vm-message-list))
27 (while mp 28 (while mp
28 (if (vm-mark-of (car mp)) 29 (if (vm-mark-of (car mp))
29 (progn 30 (progn
30 (vm-set-mark-of (car mp) nil) 31 (vm-set-mark-of (car mp) nil)
31 (vm-mark-for-summary-update (car mp) t))) 32 (vm-mark-for-summary-update (car mp) t)))
32 (setq mp (cdr mp)))) 33 (setq mp (cdr mp))))
33 (vm-display nil nil '(vm-clear-all-marks) 34 (vm-display nil nil '(vm-clear-all-marks)
34 '(vm-clear-all-marks marking-message)) 35 '(vm-clear-all-marks marking-message))
35 (vm-update-summary-and-mode-line)) 36 (vm-update-summary-and-mode-line)
37 (message "Clearing all marks... done"))
36 38
37 (defun vm-mark-all-messages () 39 (defun vm-mark-all-messages ()
38 "Mark all messages in the current folder." 40 "Mark all messages in the current folder."
39 (interactive) 41 (interactive)
40 (vm-select-folder-buffer) 42 (vm-select-folder-buffer)
41 (vm-check-for-killed-summary) 43 (vm-check-for-killed-summary)
42 (vm-error-if-folder-empty) 44 (vm-error-if-folder-empty)
45 (message "Marking all messages...")
43 (let ((mp vm-message-list)) 46 (let ((mp vm-message-list))
44 (while mp 47 (while mp
45 (vm-set-mark-of (car mp) t) 48 (vm-set-mark-of (car mp) t)
46 (vm-mark-for-summary-update (car mp) t) 49 (vm-mark-for-summary-update (car mp) t)
47 (setq mp (cdr mp)))) 50 (setq mp (cdr mp))))
48 (vm-display nil nil '(vm-mark-all-messages) 51 (vm-display nil nil '(vm-mark-all-messages)
49 '(vm-mark-all-messages marking-message)) 52 '(vm-mark-all-messages marking-message))
50 (vm-update-summary-and-mode-line)) 53 (vm-update-summary-and-mode-line)
54 (message "Marking all messages... done"))
51 55
52 (defun vm-mark-message (count) 56 (defun vm-mark-message (count)
53 "Mark the current message. 57 "Mark the current message.
54 Numeric prefix argument N means mark the current message and the next 58 Numeric prefix argument N means mark the current message and the next
55 N-1 messages. A negative N means mark the current message and the 59 N-1 messages. A negative N means mark the current message and the