Mercurial > hg > xemacs-beta

comparison lisp/vm/vm-folder.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents 585fb297b004
children
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2545 "Display help for various VM activities." 2545 "Display help for various VM activities."
2546 (interactive) 2546 (interactive)
2547 (if (eq major-mode 'vm-summary-mode) 2547 (if (eq major-mode 'vm-summary-mode)
2548 (vm-select-folder-buffer)) 2548 (vm-select-folder-buffer))
2549 (let ((pop-up-windows (and pop-up-windows (eq vm-mutable-windows t))) 2549 (let ((pop-up-windows (and pop-up-windows (eq vm-mutable-windows t)))
2550 (pop-up-frames vm-mutable-frames)) 2550 (pop-up-frames (and vm-mutable-frames vm-frame-per-help)))
2551 (cond 2551 (cond
2552 ((eq last-command 'vm-help) 2552 ((eq last-command 'vm-help)
2553 (describe-function major-mode)) 2553 (describe-function major-mode))
2554 ((eq vm-system-state 'previewing) 2554 ((eq vm-system-state 'previewing)
2555 (message "Type SPC to read message, n previews next message (? gives more help)")) 2555 (message "Type SPC to read message, n previews next message (? gives more help)"))
2560 (substitute-command-keys 2560 (substitute-command-keys
2561 "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change."))) 2561 "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change.")))
2562 ((eq major-mode 'mail-mode) 2562 ((eq major-mode 'mail-mode)
2563 (message 2563 (message
2564 (substitute-command-keys 2564 (substitute-command-keys
2565 "Type \\[vm-mail-send-and-exit] to send message, \\[kill-buffer] to discard this message"))) 2565 "Type \\[vm-mail-send-and-exit] to send message, \\[kill-buffer] to discard this composition")))
2566 (t (describe-mode))))) 2566 (t (describe-mode)))))
2567 2567
2568 (defun vm-spool-move-mail (source destination) 2568 (defun vm-spool-move-mail (source destination)
2569 (let ((handler (and (fboundp 'find-file-name-handler) 2569 (let ((handler (and (fboundp 'find-file-name-handler)
2570 (condition-case () 2570 (condition-case ()