;ELC ;;; compiled by jwz@thalidomide on Fri Apr 8 00:23:48 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-lucid.el ;;; emacs version 19.10 Lucid (beta12). ;;; bytecomp version 2.23; 22-dec-93. ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19.")) (byte-code " # ##MMM\"M\"\"!!!@!H=!IH=!IH=!IABA!+ڇ" [define-key vm-mode-map button3 vm-menu vm-summary-mode-map button2 vm-mouse-select vm-mail-mode-map vm-mail-mode-menu ("VM Commands" ["Next Nondeleted Message" vm-next-message t] ["Previous Nondeleted Message" vm-previous-message t] ["Display Summary" vm-summarize t] ["Get New Mail" vm-get-new-mail t] "----" ("Motion..." ["Goto Last Seen Message" vm-goto-message-last-seen t] ["Goto Message" vm-goto-message t] ["Next Message" vm-Next-message t] ["Next Unread Message" vm-next-unread-message t] ["Next Message, Same Subject" vm-next-message-same-subject t] ["Parent Message" vm-goto-parent-message t] ["Previous Message" vm-Previous-message t] ["Previous Unread Message" vm-previous-unread-message t] ["Previous Message, Same Subject" vm-previous-message-same-subject t]) ("Folders..." ["Save Message" vm-save-message t] ["Save Message sans Headers" vm-save-message-sans-headers t] ["Auto-archive Messages" vm-auto-archive-messages t] ["Delete Message" vm-delete-message t] ["Undelete Message" vm-undelete-message t] ["Mark Message as Unread" vm-unread-message t] ["Expunge Folder" vm-expunge-folder t] "----" ["Visit Folder" vm-visit-folder t] ["Visit Virtual Folder" vm-visit-virtual-folder t] ["Save Buffer" vm-save-buffer t] ["Save Folder" vm-save-folder t] ["Save Folder As..." vm-write-file t] ["Change Folder Type..." vm-change-folder-type t]) ("Sending Messages..." ["Send Mail" vm-mail t] ["Reply to Sender" vm-reply t] ["Reply to Sender (Citing Original)" vm-reply-include-text t] ["Reply to All" vm-followup t] ["Reply to All (Citing Original)" vm-followup-include-text t] ["Forward Message" vm-forward-message t] ["Resend Message" vm-resend-message t] ["Retry Bounced Message" vm-resend-bounced-message t] ["Continue Composing Message" vm-continue-composing-message t]) ("Marking Messages..." ["Mark Message" vm-mark-message t] ["Unmark Message" vm-unmark-message t] ["Mark All Messages" vm-mark-all-messages t] ["Unmark All Messages" vm-clear-all-marks t] ["Next Command Uses Marks..." vm-next-command-uses-marks t] "----" ["Mark Same Subject" vm-mark-messages-same-subject t] ["Unmark Same Subject" vm-unmark-messages-same-subject t] ["Mark Same Author" vm-mark-messages-same-author t] ["Unmark Same Author" vm-unmark-messages-same-author t] ["Mark Messages Matching..." vm-mark-matching-messages t] ["Unmark Messages Matching..." vm-unmark-matching-messages t] ["Mark Thread Subtree" vm-mark-thread-subtree t] ["Unmark Thread Subtree" vm-unmark-thread-subtree t] "----" ["Add Label to Message..." vm-add-message-labels t] ["Remove Label from Message..." vm-delete-message-labels t] ["Set Message Attributes..." vm-set-message-attributes t]) ("Sorting..." ["Toggle Threading" vm-toggle-threads-display t] ["Sort by Date" (vm-sort-messages "date" t) t] ["Sort by Subject" (vm-sort-messages "subject" t) t] ["Sort by Author" (vm-sort-messages "author" t) t] ["Sort by Recipients" (vm-sort-messages "recipients" t) t] ["Sort by Lines" (vm-sort-messages "line-count" t) t] ["Sort by Bytes" (vm-sort-messages "byte-count" t) t] "---" ["Sort by Date (backward)" (vm-sort-messages "reversed-date" t) t] ["Sort by Subject (backward)" (vm-sort-messages "reversed-subject" t) t] ["Sort by Author (backward)" (vm-sort-messages "reversed-author" t) t] ["Sort by Recipients (backward)" (vm-sort-messages "reversed-recipients" t) t] ["Sort by Lines (backwards)" (vm-sort-messages "reversed-line-count" t) t] ["Sort by Bytes (backward)" (vm-sort-messages "reversed-byte-count" t) t] "---" ["Move Message Backward" vm-move-message-backward t] ["Move Message Forward" vm-move-message-forward t]) ("Digests..." ["Send Folder as Digest" vm-send-digest t] ["Burst Message as Digest" vm-burst-digest t]) ("Window Configurations..." ["Apply Window Configuration" vm-apply-window-configuration t] ["Delete Window Configuration" vm-delete-window-configuration t] ["Save Window Configuration" vm-save-window-configuration t]) ("Miscellaneous..." ["Edit Message" vm-edit-message t] ["Toggle Hidden Headers" vm-expose-hidden-headers t] ["Isearch Folder..." vm-isearch-forward t] ["Kill Subject..." vm-kill-subject t] ["Reload ~/.vm" vm-load-init-file t] ["Pipe Message To Command..." vm-pipe-message-to-command t] ["Shell Command..." shell-command t] ["Show Copying Restrictions" vm-show-copying-restrictions t] ["Show No Warranty" vm-show-no-warranty t] ("BBDB" ["Show Sender" bbdb/vm-show-sender t] ["Edit Notes" bbdb/vm-edit-notes t])) "----" ["Help" describe-mode t] ["Undo" vm-undo t] ["Quit" vm-quit t] ["Quit Without Saving" vm-quit-no-change t]) #[(e) "= !y!\n)" [last-command vm-next-command-uses-marks marks-p mouse-set-point e 0 popup-menu vm-menu this-command] 2 nil "e"] #[(e) " !y =! )" [mouse-set-point e 0 major-mode vm-summary-mode error "" t vm-follow-summary-cursor vm-scroll-forward] 2 nil "e"] vm-install-mouse-tracker #[nil "!‰" [require mode-motion mode-motion-highlight-line mode-motion-hook] 2] add-hook vm-summary-mode-hook vm-install-menubar #[nil "\"?!!A#" [current-menubar assoc "VM" set-buffer-menubar copy-sequence add-menu nil vm-menu] 4] vm-mode-hook require sendmail boundp copy-sequence mail-mode-menu menu rest nil item vectorp 1 mail-send-and-exit vm-mail-send-and-exit mail-send vm-mail-send mail-yank-original vm-yank-message ["Yank Message (Other Folder)" vm-yank-message-other-folder t]] 5) (fset 'vm-mail-mode-menu #[(event) "\n!)" [vm-mail-mode-menu mail-mode-menu event] 2 "\ Pop up the VM mail mode menu, defined by the variable `vm-mail-mode-menu'." "e"]) (provide 'vm-lucid)