Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-toolbar.el @ 126:1370575f1259 xemacs-20-1p1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag xemacs-20-1p1
author cvs
date Mon, 13 Aug 2007 09:27:39 +0200
parents 7d55a9ba150c
children 2af401a6ecca
comparison
equal deleted inserted replaced
125:8b0638b347ec 126:1370575f1259
197 (defvar vm-toolbar-quit-icon nil) 197 (defvar vm-toolbar-quit-icon nil)
198 (or (fboundp 'vm-toolbar-quit-command) 198 (or (fboundp 'vm-toolbar-quit-command)
199 (fset 'vm-toolbar-quit-command 'vm-quit)) 199 (fset 'vm-toolbar-quit-command 'vm-quit))
200 200
201 (defun vm-toolbar-any-messages-p () 201 (defun vm-toolbar-any-messages-p ()
202 (save-excursion 202 (condition-case nil
203 (vm-check-for-killed-folder) 203 (save-excursion
204 (vm-select-folder-buffer) 204 (vm-check-for-killed-folder)
205 vm-message-list)) 205 (vm-select-folder-buffer)
206 vm-message-list)
207 (error nil)))
206 208
207 (defun vm-toolbar-delete/undelete-message (&optional prefix-arg) 209 (defun vm-toolbar-delete/undelete-message (&optional prefix-arg)
208 (interactive "P") 210 (interactive "P")
209 (vm-follow-summary-cursor) 211 (vm-follow-summary-cursor)
210 (vm-select-folder-buffer) 212 (vm-select-folder-buffer)
216 (call-interactively 'vm-undelete-message) 218 (call-interactively 'vm-undelete-message)
217 (call-interactively 'vm-delete-message)))) 219 (call-interactively 'vm-delete-message))))
218 220
219 (defun vm-toolbar-can-autofile-p () 221 (defun vm-toolbar-can-autofile-p ()
220 (interactive) 222 (interactive)
221 (save-excursion 223 (condition-case nil
222 (vm-check-for-killed-folder) 224 (save-excursion
223 (vm-select-folder-buffer) 225 (vm-check-for-killed-folder)
224 (and vm-message-pointer 226 (vm-select-folder-buffer)
225 (vm-auto-select-folder vm-message-pointer vm-auto-folder-alist)))) 227 (and vm-message-pointer
228 (vm-auto-select-folder vm-message-pointer vm-auto-folder-alist)))
229 (error nil)))
226 230
227 (defun vm-toolbar-autofile-message () 231 (defun vm-toolbar-autofile-message ()
228 (interactive) 232 (interactive)
229 (vm-follow-summary-cursor) 233 (vm-follow-summary-cursor)
230 (vm-select-folder-buffer) 234 (vm-select-folder-buffer)
237 (vm-save-message file 1) 241 (vm-save-message file 1)
238 (message "Message saved to %s" file)) 242 (message "Message saved to %s" file))
239 (error "No match for message in vm-auto-folder-alist.")))) 243 (error "No match for message in vm-auto-folder-alist."))))
240 244
241 (defun vm-toolbar-can-recover-p () 245 (defun vm-toolbar-can-recover-p ()
242 (save-excursion 246 (condition-case nil
243 (vm-check-for-killed-folder) 247 (save-excursion
244 (vm-select-folder-buffer) 248 (vm-select-folder-buffer)
245 (and vm-folder-read-only 249 (and vm-folder-read-only
246 buffer-file-name 250 buffer-file-name
247 buffer-auto-save-file-name 251 buffer-auto-save-file-name
248 (null (buffer-modified-p)) 252 (null (buffer-modified-p))
249 (file-newer-than-file-p 253 (file-newer-than-file-p
250 buffer-auto-save-file-name 254 buffer-auto-save-file-name
251 buffer-file-name)))) 255 buffer-file-name)))
256 (error nil)))
252 257
253 (defun vm-toolbar-can-decode-mime-p () 258 (defun vm-toolbar-can-decode-mime-p ()
254 (save-excursion 259 (condition-case nil
255 (vm-check-for-killed-folder) 260 (save-excursion
256 (vm-select-folder-buffer) 261 (vm-select-folder-buffer)
257 (and 262 (and
258 vm-display-using-mime 263 vm-display-using-mime
259 vm-message-pointer 264 vm-message-pointer
260 vm-presentation-buffer 265 vm-presentation-buffer
261 (not vm-mime-decoded) 266 (not vm-mime-decoded)
262 (not (vm-mime-plain-message-p (car vm-message-pointer)))))) 267 (not (vm-mime-plain-message-p (car vm-message-pointer)))))
268 (error nil)))
263 269
264 (defun vm-toolbar-can-quit-p () 270 (defun vm-toolbar-can-quit-p ()
265 (save-excursion 271 (condition-case nil
266 (vm-check-for-killed-folder) 272 (save-excursion
267 (vm-select-folder-buffer) 273 (vm-select-folder-buffer)
268 (memq major-mode '(vm-mode vm-virtual-mode)))) 274 (memq major-mode '(vm-mode vm-virtual-mode)))
275 (error nil)))
269 276
270 (defun vm-toolbar-mail-waiting-p () 277 (defun vm-toolbar-mail-waiting-p ()
271 (save-excursion 278 (condition-case nil
272 (vm-check-for-killed-folder) 279 (save-excursion
273 (vm-select-folder-buffer) 280 (vm-select-folder-buffer)
274 vm-spooled-mail-waiting)) 281 vm-spooled-mail-waiting)
282 (error nil)))
275 283
276 (fset 'vm-toolbar-can-help-p 'vm-toolbar-can-quit-p) 284 (fset 'vm-toolbar-can-help-p 'vm-toolbar-can-quit-p)
277 285
278 (defun vm-toolbar-update-toolbar () 286 (defun vm-toolbar-update-toolbar ()
279 (if (and vm-message-pointer (vm-deleted-flag (car vm-message-pointer))) 287 (if (and vm-message-pointer (vm-deleted-flag (car vm-message-pointer)))