Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-save.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
96 The saved messages are flagged as `filed'." 96 The saved messages are flagged as `filed'."
97 (interactive "P") 97 (interactive "P")
98 (vm-select-folder-buffer) 98 (vm-select-folder-buffer)
99 (vm-check-for-killed-summary) 99 (vm-check-for-killed-summary)
100 (vm-error-if-folder-empty) 100 (vm-error-if-folder-empty)
101 (vm-unsaved-message "Archiving...") 101 (message "Archiving...")
102 (let ((auto-folder) 102 (let ((auto-folder)
103 (archived 0)) 103 (archived 0))
104 (unwind-protect 104 (unwind-protect
105 ;; Need separate (let ...) so vm-message-pointer can 105 ;; Need separate (let ...) so vm-message-pointer can
106 ;; revert back in time for 106 ;; revert back in time for
133 auto-folder))) 133 auto-folder)))
134 (let ((vm-delete-after-saving vm-delete-after-archiving)) 134 (let ((vm-delete-after-saving vm-delete-after-archiving))
135 (if (not (string-equal auto-folder "/dev/null")) 135 (if (not (string-equal auto-folder "/dev/null"))
136 (vm-save-message auto-folder)) 136 (vm-save-message auto-folder))
137 (vm-increment archived) 137 (vm-increment archived)
138 (vm-unsaved-message "%d archived, still working..." 138 (message "%d archived, still working..."
139 archived))) 139 archived)))
140 (setq done (eq vm-message-pointer stop-point) 140 (setq done (eq vm-message-pointer stop-point)
141 vm-message-pointer (cdr vm-message-pointer)))) 141 vm-message-pointer (cdr vm-message-pointer))))
142 ;; fix mode line 142 ;; fix mode line
143 (intern (buffer-name) vm-buffers-needing-display-update) 143 (intern (buffer-name) vm-buffers-needing-display-update)