;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:30 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-menu.el ;;; in Emacs version 22.0.50.7 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`vm-menu.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defvar vm-menu-folders-menu '("Manipulate Folders" ["Make Folders Menu" vm-menu-hm-make-folder-menu vm-folder-directory]) "\ VM folder menu list.") (byte-code "\305B\306\305!\204\307\305\310 \203\311\202\n\312BB\"\210\313B\306\313!\204>\307\313\314 \2034\315\316\317\320F\2026\321C\322 \323\")\"\210\324B\306\324!\204M\307\324\325\"\210\326B\306\326!\204\\\307\326\327\"\210\330B\306\330!\204k\307\330\331\"\210\332B\306\332!\204z\307\332\333\"\210\334B\306\334!\204\211\307\334\335\"\210\336B\306\336!\204\230\307\336\337\"\210\340B\306\340!\204\247\307\340\341\"\210\342B\306\342!\204\266\307\342\343\"\210\344B\306\344!\204\305\307\344\345\"\210\346B\306\346!\204\324\307\346\347\"\210\350B\306\350!\204J\307\350\314 \203\355\351\352\353\354F\202\357\355C\322 \356\357\360\361\362\363\322\314 \203\364\365\366\367F\202\370C\371\"\322\314 \203\372\373\374\375F\202\376C\377\"\322\314 \2032\201@\201A\201B\201CF\2026\201DC\201E\"\201FBBBBBBBBB\")\"\210\201GB\306\201G!\204\215\307\201G\314 \203q\201H\201I\201J\201KF\202u\201LC\322 \201M\201N \205\206\201OC\201P$)\"\210\201QB\306\201Q!\204\307\201Q\314 \203\264\201R\201S\201T\201UF\202\270\201VC\201W\201X!\203\310\201X\202\333\201W\201Y!\203\330\201Y\202\333\201X\322 \201Z\201[\201\\\201]\201^\fDE\201W\201^\fDD#\201_B\"*\"\210\201`B\306\201`!\2048\307\201`\314 \203*\201a\201b\201c\201dF\202.\201eC\322 \201f\")\"\210\201gB\306\201g!\204m\307\201g\314 \203_\201h\201i\201j\201kF\202c\201lC\322 \201m\")\"\210\201nB\306\201n!\204\242\307\201n\314 \203\224\201o\201p\201q\201rF\202\230\201sC\322 \201t\")\"\210\201uB\306\201u!\204\307\201u\314 \203\311\201v\201w\201x\201yF\202\315\201zC\322 \322\314 \203\346\201{\201|\201}\201~F\202\352\201C\201\200\"\322\314 \203\201\201\201\202\201\203\201\204F\202\201\205C\201\206\"D\")\"\210\201\207B\306\201\207!\204F\307\201\207\314 \2038\201\210\201\211\201\212\201\213F\202<\201\214C\322 \201\215\")\"\210\201\216B\306\201\216!\204]\307\201\216\201\217\"\210\201\220B\306\201\220!\204\250\307\201\220\314 \203\204\201\221\201\222\201\223\201\224F\202\210\201\225C\322  \201\226\201\227 \257 \")\"\210\201\230B\306\201\230!\204\277\307\201\230\201\217\"\210\201\217\207" [current-load-list vm-fsfemacs-p vm-menu-folders-menu title w3 vm-menu-folder-menu default-boundp set-default "Folder" ["Manipulate Folders" ignore (ignore)] ("---" ["Display Summary" vm-summarize t] ["Toggle Threading" vm-toggle-threads-display t] "---" ["Get New Mail" vm-get-new-mail (vm-menu-can-get-new-mail-p)] "---" ["Search" vm-isearch-forward vm-message-list] "---" ["Auto-Archive" vm-auto-archive-messages vm-message-list] ["Expunge" vm-expunge-folder vm-message-list] ["Expunge POP Messages" vm-expunge-pop-messages (vm-menu-can-expunge-pop-messages-p)] ["Expunge IMAP Messages" vm-expunge-pop-messages (vm-menu-can-expunge-imap-messages-p)] "---" ["Visit Local Folder" vm-visit-folder t] ["Visit POP Folder" vm-visit-pop-folder vm-pop-folder-alist] ["Visit IMAP Folder" vm-visit-imap-folder vm-imap-server-list] ["Revert Folder (back to disk version)" vm-revert-buffer (vm-menu-can-revert-p)] ["Recover Folder (from auto-save file)" vm-recover-file (vm-menu-can-recover-p)] ["Save" vm-save-folder (vm-menu-can-save-p)] ["Save As..." vm-write-file t] ["Quit" vm-quit-no-change t] ["Save & Quit" vm-quit t] "---" "---" "-------") vm-menu-dispose-menu vm-menu-fsfemacs19-menus-p "Dispose" "Dispose" "---" "---" "Dispose" append (["Reply to Author" vm-reply vm-message-list] ["Reply to All" vm-followup vm-message-list] ["Reply to Author (citing original)" vm-reply-include-text vm-message-list] ["Reply to All (citing original)" vm-followup-include-text vm-message-list] ["Forward" vm-forward-message vm-message-list] ["Resend" vm-resend-message vm-message-list] ["Retry Bounce" vm-resend-bounced-message vm-message-list] "---" ["File" vm-save-message vm-message-list] ["Delete" vm-delete-message vm-message-list] ["Undelete" vm-undelete-message vm-message-list] ["Kill Current Subject" vm-kill-subject vm-message-list] ["Mark Unread" vm-unread-message vm-message-list] ["Edit" vm-edit-message vm-message-list] ["Print" vm-print-message vm-message-list] ["Pipe to Command" vm-pipe-message-to-command vm-message-list] "---" ["Burst Message as Digest" (vm-burst-digest "guess") vm-message-list] ["Decode MIME" vm-decode-mime-message (vm-menu-can-decode-mime-p)]) vm-menu-motion-menu ("Motion" ["Page Up" vm-scroll-backward vm-message-list] ["Page Down" vm-scroll-forward vm-message-list] "----" ["Beginning" vm-beginning-of-message vm-message-list] ["End" vm-end-of-message vm-message-list] "----" ["Expose/Hide Headers" vm-expose-hidden-headers vm-message-list] "----" "----" ["Next Message" vm-next-message t] ["Previous Message" vm-previous-message t] "---" ["Next, Same Subject" vm-next-message-same-subject t] ["Previous, Same Subject" vm-previous-message-same-subject t] "---" ["Next Unread" vm-next-unread-message t] ["Previous Unread" vm-previous-unread-message t] "---" ["Next Message (no skip)" vm-next-message-no-skip t] ["Previous Message (no skip)" vm-previous-message-no-skip t] "---" ["Go to Last Seen Message" vm-goto-message-last-seen t] ["Go to Message" vm-goto-message t] ["Go to Parent Message" vm-goto-parent-message t]) vm-menu-virtual-menu ("Virtual" ["Visit Virtual Folder" vm-visit-virtual-folder t] ["Create Virtual Folder" vm-create-virtual-folder t] ["Apply Virtual Folder" vm-apply-virtual-folder t] "---" "---" "-------") vm-menu-send-menu ("Send" ["Compose" vm-mail t] ["Continue Composing" vm-continue-composing-message vm-message-list] ["Reply to Author" vm-reply vm-message-list] ["Reply to All" vm-followup vm-message-list] ["Reply to Author (citing original)" vm-reply-include-text vm-message-list] ["Reply to All (citing original)" vm-followup-include-text vm-message-list] ["Forward Message" vm-forward-message vm-message-list] ["Resend Message" vm-resend-message vm-message-list] ["Retry Bounced Message" vm-resend-bounced-message vm-message-list] ["Send Digest (RFC934)" vm-send-rfc934-digest vm-message-list] ["Send Digest (RFC1153)" vm-send-rfc1153-digest vm-message-list] ["Send MIME Digest" vm-send-mime-digest vm-message-list]) vm-menu-mark-menu ("Mark" ["Next Command Uses Marks..." vm-next-command-uses-marks :active vm-message-list :style radio :selected (eq last-command 'vm-next-command-uses-marks)] "----" ["Mark" vm-mark-message vm-message-list] ["Unmark" vm-unmark-message vm-message-list] ["Mark All" vm-mark-all-messages vm-message-list] ["Clear All Marks" vm-clear-all-marks vm-message-list] ["Mark Region in Summary" vm-mark-summary-region vm-message-list] ["Unmark Region in Summary" vm-unmark-summary-region vm-message-list] "----" ["Mark Same Subject" vm-mark-messages-same-subject vm-message-list] ["Unmark Same Subject" vm-unmark-messages-same-subject vm-message-list] ["Mark Same Author" vm-mark-messages-same-author vm-message-list] ["Unmark Same Author" vm-unmark-messages-same-author vm-message-list] ["Mark Messages Matching..." vm-mark-matching-messages vm-message-list] ["Unmark Messages Matching..." vm-unmark-matching-messages vm-message-list] ["Mark Thread Subtree" vm-mark-thread-subtree vm-message-list] ["Unmark Thread Subtree" vm-unmark-thread-subtree vm-message-list]) vm-menu-label-menu ("Label" ["Add Label" vm-add-message-labels vm-message-list] ["Add Existing Label" vm-add-existing-message-labels vm-message-list] ["Remove Label" vm-delete-message-labels vm-message-list]) vm-menu-sort-menu ("Sort" ["By Multiple Fields..." vm-sort-messages vm-message-list] "---" ["By Date" (vm-sort-messages "date") vm-message-list] ["By Subject" (vm-sort-messages "subject") vm-message-list] ["By Author" (vm-sort-messages "author") vm-message-list] ["By Recipients" (vm-sort-messages "recipients") vm-message-list] ["By Lines" (vm-sort-messages "line-count") vm-message-list] ["By Bytes" (vm-sort-messages "byte-count") vm-message-list] "---" ["By Date (backward)" (vm-sort-messages "reversed-date") vm-message-list] ["By Subject (backward)" (vm-sort-messages "reversed-subject") vm-message-list] ["By Author (backward)" (vm-sort-messages "reversed-author") vm-message-list] ["By Recipients (backward)" (vm-sort-messages "reversed-recipients") vm-message-list] ["By Lines (backward)" (vm-sort-messages "reversed-line-count") vm-message-list] ["By Bytes (backward)" (vm-sort-messages "reversed-byte-count") vm-message-list] "---" ["Toggle Threading" vm-toggle-threads-display t] "---" ["Revert to Physical Order" (vm-sort-messages "physical-order" t) vm-message-list]) vm-menu-help-menu ("Help!" ["What Now?" vm-help t] ["Describe Mode" describe-mode t] ["Revert Folder (back to disk version)" revert-buffer (vm-menu-can-revert-p)] ["Recover Folder (from auto-save file)" recover-file (vm-menu-can-recover-p)] "---" ["Save Folder & Quit" vm-quit t] ["Quit Without Saving" vm-quit-no-change t]) vm-menu-undo-menu ["Undo" vm-undo (vm-menu-can-undo-p)] vm-menu-emacs-button ["XEmacs" vm-menu-toggle-menubar t] vm-menu-vm-button ["VM" vm-menu-toggle-menubar t] vm-menu-mail-menu "Mail Commands" "Mail Commands" "---" "---" "Mail Commands" ["Send and Exit" vm-mail-send-and-exit (vm-menu-can-send-mail-p)] ["Send, Keep Composing" vm-mail-send (vm-menu-can-send-mail-p)] ["Cancel" kill-buffer t] "----" ["Yank Original" vm-menu-yank-original vm-reply-list] "----" "Send Using MIME..." "Send Using MIME..." "---" "---" "Send Using MIME..." (["Use MIME" (progn (set (make-local-variable 'vm-send-using-mime) t) (vm-mail-mode-remove-tm-hooks)) :active t :style radio :selected vm-send-using-mime] ["Don't use MIME" (set (make-local-variable 'vm-send-using-mime) nil) :active t :style radio :selected (not vm-send-using-mime)]) "Fragment Messages Larger Than ..." "Fragment Messages Larger Than ..." "---" "---" "Fragment Messages Larger Than ..." (["Infinity, i.e., don't fragment" (set (make-local-variable 'vm-mime-max-message-size) nil) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size nil)] ["50000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 50000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 50000)] ["100000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 100000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 100000)] ["200000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 200000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 200000)] ["500000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 500000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 500000)] ["1000000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 1000000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 1000000)] ["2000000 bytes" (set (make-local-variable 'vm-mime-max-message-size) 2000000) :active vm-send-using-mime :style radio :selected (eq vm-mime-max-message-size 2000000)]) "Encode 8-bit Characters Using ..." "Encode 8-bit Characters Using ..." "---" "---" "Encode 8-bit Characters Using ..." (["Nothing, i.e., send unencoded" (set (make-local-variable 'vm-mime-8bit-text-transfer-encoding) '8bit) :active vm-send-using-mime :style radio :selected (eq vm-mime-8bit-text-transfer-encoding '8bit)] ["Quoted-Printable" (set (make-local-variable 'vm-mime-8bit-text-transfer-encoding) 'quoted-printable) :active vm-send-using-mime :style radio :selected (eq vm-mime-8bit-text-transfer-encoding 'quoted-printable)] ["BASE64" (set (make-local-variable 'vm-mime-8bit-text-transfer-encoding) 'base64) :active vm-send-using-mime :style radio :selected (eq vm-mime-8bit-text-transfer-encoding 'base64)]) ("----" ["Attach File..." vm-mime-attach-file vm-send-using-mime] ["Encode MIME, But Don't Send" vm-mime-encode-composition (and vm-send-using-mime (null (vm-mail-mode-get-header-contents "MIME-Version:")))] ["Preview MIME Before Sending" vm-mime-preview-composition vm-send-using-mime]) vm-menu-mime-dispose-menu "Take Action on MIME body ..." "Take Action on MIME body ..." "---" "---" "Take Action on MIME body ..." (["Display as Text (in default face)" (vm-mime-run-display-function-at-point 'vm-mime-display-body-as-text) t] ["Display using External Viewer" (vm-mime-run-display-function-at-point 'vm-mime-display-body-using-external-viewer) t]) vm-menu-can-eval-item-name [(format "Convert to %s and Display" (or (nth 1 (vm-mime-can-convert (car (vm-mm-layout-type (vm-mime-get-button-layout e))))) "different type")) (vm-mime-run-display-function-at-point 'vm-mime-convert-body-then-display) (vm-mime-can-convert (car (vm-mm-layout-type (vm-mime-get-button-layout e))))] ("---" ["Save to File" vm-mime-reader-map-save-file t] ["Save to Folder" vm-mime-reader-map-save-message (let ((layout (vm-mime-run-display-function-at-point #'(lambda (e) (vm-extent-property e 'vm-mime-layout))))) (if (null layout) nil (or (vm-mime-types-match "message/rfc822" (car (vm-mm-layout-type layout))) (vm-mime-types-match "message/news" (car (vm-mm-layout-type layout))))))] ["Send to Printer" (vm-mime-run-display-function-at-point 'vm-mime-send-body-to-printer) t] ["Feed to Shell Pipeline (display output)" (vm-mime-run-display-function-at-point 'vm-mime-pipe-body-to-queried-command) t] ["Feed to Shell Pipeline (discard output)" (vm-mime-run-display-function-at-point 'vm-mime-pipe-body-to-queried-command-discard-output) t] ["Attach to Message Composition Buffer" vm-mime-attach-object-from-message t] ["Delete" vm-delete-mime-object t]) vm-menu-url-browser-menu "Send URL to ..." "Send URL to ..." "---" "---" "Send URL to ..." fboundp w3-fetch-other-frame w3-fetch vector "Emacs W3" vm-mouse-send-url-at-position (point) quote (["Mosaic" (vm-mouse-send-url-at-position (point) 'vm-mouse-send-url-to-mosaic) t] ["mMosaic" (vm-mouse-send-url-at-position (point) 'vm-mouse-send-url-to-mmosaic) t] ["Netscape" (vm-mouse-send-url-at-position (point) 'vm-mouse-send-url-to-netscape) t] ["Konqueror" (vm-mouse-send-url-at-position (point) 'vm-mouse-send-url-to-konqueror) t] ["X Clipboard" (vm-mouse-send-url-at-position (point) 'vm-mouse-send-url-to-clipboard) t]) vm-menu-mailto-url-browser-menu "Send Mail using ..." "Send Mail using ..." "---" "---" "Send Mail using ..." (["VM" (vm-mouse-send-url-at-position (point) 'ignore) t]) vm-menu-subject-menu "Take Action on Subject..." "Take Action on Subject..." "---" "---" "Take Action on Subject..." (["Kill Subject" vm-kill-subject vm-message-list] ["Next Message, Same Subject" vm-next-message-same-subject vm-message-list] ["Previous Message, Same Subject" vm-previous-message-same-subject vm-message-list] ["Mark Messages, Same Subject" vm-mark-messages-same-subject vm-message-list] ["Unmark Messages, Same Subject" vm-unmark-messages-same-subject vm-message-list] ["Virtual Folder, Matching Subject" vm-menu-create-subject-virtual-folder vm-message-list]) vm-menu-author-menu "Take Action on Author..." "Take Action on Author..." "---" "---" "Take Action on Author..." (["Mark Messages, Same Author" vm-mark-messages-same-author vm-message-list] ["Unmark Messages, Same Author" vm-unmark-messages-same-author vm-message-list] ["Virtual Folder, Matching Author" vm-menu-create-author-virtual-folder vm-message-list]) vm-menu-attachment-menu "Fiddle With Attachment" "Fiddle With Attachment" "---" "---" "Fiddle With Attachment" "Set Content Disposition..." "Set Content Disposition..." "---" "---" "Set Content Disposition..." (["Unspecified" (vm-mime-set-attachment-disposition-at-point 'unspecified) :active vm-send-using-mime :style radio :selected (eq (vm-mime-attachment-disposition-at-point) 'unspecified)] ["Inline" (vm-mime-set-attachment-disposition-at-point 'inline) :active vm-send-using-mime :style radio :selected (eq (vm-mime-attachment-disposition-at-point) 'inline)] ["Attachment" (vm-mime-set-attachment-disposition-at-point 'attachment) :active vm-send-using-mime :style radio :selected (eq (vm-mime-attachment-disposition-at-point) 'attachment)]) "Forward Local External Bodies" "Forward Local External Bodies" "---" "---" "Forward Local External Bodies" (["Forward Unchanged" (vm-mime-set-attachment-forward-local-refs-at-point t) :active vm-send-using-mime :style radio :selected (vm-mime-attachment-forward-local-refs-at-point)] ["Convert to Internal Object" (vm-mime-set-attachment-forward-local-refs-at-point nil) :active vm-send-using-mime :style radio :selected (not (vm-mime-attachment-forward-local-refs-at-point))]) vm-menu-image-menu "Redisplay Image" "Redisplay Image" "---" "---" "Redisplay Image" (["4x Larger" (vm-mime-run-display-function-at-point 'vm-mime-larger-image) (stringp vm-imagemagick-convert-program)] ["4x Smaller" (vm-mime-run-display-function-at-point 'vm-mime-smaller-image) (stringp vm-imagemagick-convert-program)] ["Rotate Left" (vm-mime-run-display-function-at-point 'vm-mime-rotate-image-left) (stringp vm-imagemagick-convert-program)] ["Rotate Right" (vm-mime-run-display-function-at-point 'vm-mime-rotate-image-right) (stringp vm-imagemagick-convert-program)] ["Mirror" (vm-mime-run-display-function-at-point 'vm-mime-mirror-image) (stringp vm-imagemagick-convert-program)] ["Brighter" (vm-mime-run-display-function-at-point 'vm-mime-brighten-image) (stringp vm-imagemagick-convert-program)] ["Dimmer" (vm-mime-run-display-function-at-point 'vm-mime-dim-image) (stringp vm-imagemagick-convert-program)] ["Monochrome" (vm-mime-run-display-function-at-point 'vm-mime-monochrome-image) (stringp vm-imagemagick-convert-program)] ["Revert to Original" (vm-mime-run-display-function-at-point 'vm-mime-revert-image) (get (vm-mm-layout-cache (vm-extent-property (vm-find-layout-extent-at-point) 'vm-mime-layout)) 'vm-image-modified)]) vm-menu-vm-menubar nil vm-menu-vm-menu "VM" "VM" "---" "---" "VM" "---" "---" vm-mode-menu-map] 17) (defalias 'vm-menu-run-command #[(command &rest args) "\303\n\"\207" [command this-command args apply] 3 "\ Run COMMAND almost interactively, with ARGS. call-interactive can't be used unfortunately, but this-command is set to the command name so that window configuration will be done."]) (defalias 'vm-menu-can-revert-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\303!\204\304\305!\210q\210\202 \306>\204\304\307!\210\310 \205%\n)\207" [vm-mail-buffer major-mode buffer-file-name buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" buffer-modified-p] 2) ((error))] 3]) (defalias 'vm-menu-can-recover-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\304!\204\305\306!\210q\210\202 \307>\204\305\310!\210\n\205+ \205+\311 \n\")\207" [vm-mail-buffer major-mode buffer-file-name buffer-auto-save-file-name buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" file-newer-than-file-p] 3) ((error))] 3]) (defalias 'vm-menu-can-save-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\302!\204\303\304!\210q\210\202 \305>\204\303\306!\210 \307=\206'\310 )\207" [vm-mail-buffer major-mode buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-virtual-mode buffer-modified-p] 2) ((error))] 3]) (defalias 'vm-menu-can-get-new-mail-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\304!\204\305\306!\210q\210\202 \307>\204\305\310!\210 \311=\206,\n?\205, ?)\207" [vm-mail-buffer major-mode vm-block-new-mail vm-folder-read-only buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-virtual-mode] 2) ((error))] 3]) (defalias 'vm-menu-can-undo-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\303!\204\304\305!\210q\210\202 \306>\204\304\307!\210\n)\207" [vm-mail-buffer major-mode vm-undo-record-list buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer"] 2) ((error))] 3]) (defalias 'vm-menu-can-decode-mime-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\305!\204\306\307!\210q\210\202 \310>\204\306\311!\210\n\2050 \2050\f\2050\312 @!?)\207" [vm-mail-buffer major-mode vm-display-using-mime vm-message-pointer vm-presentation-buffer buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-mime-plain-message-p] 2) ((error))] 3]) (defalias 'vm-menu-can-expunge-pop-messages-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\303!\204\304\305!\210q\210\202 \306>\204\304\307!\210\n)\310=?\207" [vm-mail-buffer major-mode vm-folder-access-method buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" pop] 2) ((error))] 3]) (defalias 'vm-menu-can-expunge-imap-messages-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\203\303!\204\304\305!\210q\210\202 \306>\204\304\307!\210\n)\310=?\207" [vm-mail-buffer major-mode vm-folder-access-method buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" imap] 2) ((error))] 3]) (defalias 'vm-menu-yank-original #[nil "\212\211\205\302 @!\210db\210 A\211\204\303*\207" [vm-reply-list mlist vm-yank-message nil] 3 nil nil]) (defalias 'vm-menu-can-send-mail-p #[nil "\301 \302\216\303\304\215*\207" [save-match-data-internal match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) done (byte-code "\302\303\211\203%\304 @!\211;\203\305\306\"\203\307\310\311\"\210 A\211\204*\303\207" [h headers ("to" "cc" "bcc" "resent-to" "resent-cc" "resent-bcc") nil vm-mail-mode-get-header-contents string-match "[^ \n,]" throw done t] 4)] 2]) (defalias 'vm-menu-create-subject-virtual-folder #[nil "\203\304!\204\305\306!\210q\210\202 \307>\204\305\310!\210\311\211\312\313\314 @!!\"\207" [vm-mail-buffer major-mode this-command vm-message-pointer buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-create-virtual-folder subject regexp-quote vm-so-sortable-subject] 6 nil nil]) (defalias 'vm-menu-create-author-virtual-folder #[nil "\203\304!\204\305\306!\210q\210\202 \307>\204\305\310!\210\311\211\312\313\314 @!!\"\207" [vm-mail-buffer major-mode this-command vm-message-pointer buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-create-virtual-folder author regexp-quote vm-su-from] 6 nil nil]) (defalias 'vm-menu-xemacs-global-menubar #[nil "\212\301\302!q\210)\207" [current-menubar get-buffer-create "*scratch*"] 2]) (defalias 'vm-menu-fsfemacs-global-menubar #[nil "\300\301 \302\"\207" [lookup-key current-global-map [menu-bar]] 3]) (defalias 'vm-menu-initialize-vm-mode-menu-map #[nil "?\205\275\306 \306 \307\310\311\312#\210\313\310!\204\314\310\312\"\210\315\310 C\312 $\210\307\316\311\312#\210\313\316!\2045\314\316\312\"\210\315\316 C\312\317\320\f\233B$\210\307\321\311\312#\210\313\321!\204R\314\321\312\"\210\315\321 C\312\f$\210\307\322\311\312#\210\313\322!\204k\314\322\312\"\210\315\322 C\312 $\210\307\323\311\312#\210\313\323!\204\204\314\323\312\"\210\315\323 C\312@$\210\307\324\311\312#\210\313\324!\204\236\314\324\312\"\210\315\324 C\312A$\210\307\325\311\312#\210\313\325!\204\270\314\325\312\"\210\315\325 C\312B$\210\307\326\311\312#\210\313\326!\204\322\314\326\312\"\210\315\326 C\312C$\210\307\327\311\312#\210\313\327!\204\354\314\327\312\"\210\315\327 C\312D$\210\307\330\311\312#\210\313\330!\204\314\330\312\"\210\315\330 C\312E$\210\307\331\311\312#\210\313\331!\204 \314\331\312\"\210\315\331 C\312F$\210\307\332\311\312#\210\313\332!\204:\314\332\312\"\210\315\332 C\312G$\210\307\333\311\312#\210\313\333!\204T\314\333\312\"\210\315\333 C\312H$\210\307\334\311\312#\210\313\334!\204n\314\334\312\"\210\315\334 C\312I$\210\307\335\311\312#\210\313\335!\204\210\314\335\312\"\210\315\335 C\312J$\210\307\336\311\312#\210\313\336!\204\242\314\336\312\"\210\315\336 C\312J$\210\307\337\311\312#\210\313\337!\204\274\314\337\312\"\210\315\337 C\312K$\210\307\340\311\312#\210\313\340!\204\326\314\340\312\"\210\315\340 C\312L$\210\307\341\311\312#\210\313\341!\204\360\314\341\312\"\210\315\341 C\312M$\210\342\n\343\306 #\210\342\n\344\345\306\346!B#\210\342\n\347\350#\210\342\n\351\350#\210\342\n\352\350#\210\342\n\353\350#\210\342\n\354\350#\210\342\n\355\350#\210\342\n\356\350#\210\342\n\357\350#\210\342\n\360\350#\210\342\n\361\350#\210\362\312\363\364\365\312#N:\203Z\366N!\202f\367\312\370\371\372\373\374\375\376\377\257\nOPQRO\203\262O@\203\251P\201S\201T\201U\201VO@!P!I\210O@R\236\211Q\203\251\342\nP\201WQA@!#\210OA\211O\204s,\n\201X\201Y!*\207" [vm-mode-menu-map dummy map vm-menu-help-menu vm-menu-dispose-menu vm-menu-virtual-menu make-sparse-keymap put vm-menu-fsfemacs-help-menu variable-documentation nil default-boundp set-default vm-easy-menu-do-define vm-menu-fsfemacs-dispose-menu "Dispose" 4 vm-menu-fsfemacs-dispose-popup-menu vm-menu-fsfemacs-virtual-menu vm-menu-fsfemacs-sort-menu vm-menu-fsfemacs-label-menu vm-menu-fsfemacs-mark-menu vm-menu-fsfemacs-send-menu vm-menu-fsfemacs-motion-menu vm-menu-fsfemacs-folder-menu vm-menu-fsfemacs-vm-menu vm-menu-fsfemacs-mail-menu vm-menu-fsfemacs-subject-menu vm-menu-fsfemacs-author-menu vm-menu-fsfemacs-url-browser-menu vm-menu-fsfemacs-mailto-url-browser-menu vm-menu-fsfemacs-mime-dispose-menu vm-menu-fsfemacs-attachment-menu vm-menu-fsfemacs-image-menu define-key [rootmenu] [rootmenu vm] "VM" "VM" [rootmenu vm file] undefined [rootmenu vm files] [rootmenu vm search] [rootmenu vm edit] [rootmenu vm options] [rootmenu vm buffer] [rootmenu vm tools] [rootmenu vm help] [rootmenu vm mule] [rootmenu vm help-menu] ((dispose (cons "Dispose" vm-menu-fsfemacs-dispose-menu)) (folder (cons "Folder" vm-menu-fsfemacs-folder-menu)) (help (cons "Help!" vm-menu-fsfemacs-help-menu)) (label (cons "Label" vm-menu-fsfemacs-label-menu)) (mark (cons "Mark" vm-menu-fsfemacs-mark-menu)) (motion (cons "Motion" vm-menu-fsfemacs-motion-menu)) (send (cons "Send" vm-menu-fsfemacs-send-menu)) (sort (cons "Sort" vm-menu-fsfemacs-sort-menu)) (virtual (cons "Virtual" vm-menu-fsfemacs-virtual-menu)) (emacs (cons "[Emacs]" 'vm-menu-toggle-menubar)) (undo (cons "[Undo]" 'vm-undo))) vector rootmenu vm reverse help dispose virtual sort label mark send motion folder vm-menu-sort-menu vm-menu-label-menu vm-menu-mark-menu vm-menu-send-menu vm-menu-motion-menu vm-menu-folder-menu vm-menu-vm-menu vm-menu-mail-menu vm-menu-subject-menu vm-menu-author-menu vm-menu-url-browser-menu vm-menu-mime-dispose-menu vm-menu-attachment-menu vm-menu-image-menu vm-use-menus menu-list vec cons menu-alist 2 intern "vm-menubar-" symbol-name eval run-hooks vm-menu-setup-hook] 14]) (defalias 'vm-menu-make-xemacs-menubar #[nil "\305\306\211 \203. @\204\306\nB\202' @\f\236\211\203' AJ\nB A\211\204\f\n\237,\207" [vm-use-menus menu-list menubar cons menu-alist ((dispose . vm-menu-dispose-menu) (folder . vm-menu-folder-menu) (help . vm-menu-help-menu) (label . vm-menu-label-menu) (mark . vm-menu-mark-menu) (motion . vm-menu-motion-menu) (send . vm-menu-send-menu) (sort . vm-menu-sort-menu) (virtual . vm-menu-virtual-menu) (emacs . vm-menu-emacs-button) (undo . vm-menu-undo-menu)) nil] 5]) (defalias 'vm-menu-popup-mode-menu #[(event) "\303 \203\203\304\305 !!q\210\306 !\203\306 !b\210\307 \207\310 \205u\205u\304 \211:\2035 A@\202;\311 `\312\313F)\211@)!q\210 \211:\203P A@\202V\311 `\312\313F)\314\n8\206o\nA@:\203l\nA@@\202o\nA@)b\210\315 !\207" [vm-use-menus event position vm-menu-xemacs-menus-p window-buffer event-window event-point popup-mode-menu vm-menu-fsfemacs-menus-p selected-window (0 . 0) 0 5 vm-menu-popup-fsfemacs-menu] 6 nil "e"]) (defalias 'vm-menu-popup-context-menu #[(event) "\306 \205\324\205\324\307 \211:\203 A@\202\310 `\311\312F)\211@)!q\210 \211:\2032 A@\2028\310 `\311\312F)\313\n8\206Q\nA@:\203N\nA@@\202Q\nA@)b\210\314`\315\"\203`\316 \"\207\317\211\211\211\320`!\211\203\313\f\204\313\321@\322\"\203\211\323\324 !\210\202\302\321@\325\"\211\203\236\323\316 \"\210\202\302\321@\326\"\211\203\263\323\316 \"\210\202\302\321@\327\"\203\302\323\330 !\210A\211\204s\f?\205\323\316 !,\207" [vm-use-menus event position vm-menu-fsfemacs-attachment-menu found menu vm-menu-fsfemacs-menus-p window-buffer selected-window (0 . 0) 0 5 get-text-property vm-mime-object vm-menu-popup-fsfemacs-menu nil overlays-at overlay-get vm-url t vm-menu-popup-url-browser-menu vm-header vm-image vm-mime-layout vm-menu-popup-mime-dispose-menu o o-list] 6 nil "e"]) (defalias 'vm-menu-goto-event #[(event) "\302 \203\303\304!!\210\305!\205e\305!b\207\306 \205e\307\211:\203)A@\202/\310 `\311\312F)\211@)!q\210\211:\203DA@\202J\310 `\311\312F)\313 8\206c A@:\203` A@@\202c A@)b\207" [event position vm-menu-xemacs-menus-p select-window event-window event-closest-point vm-menu-fsfemacs-menus-p window-buffer selected-window (0 . 0) 0 5] 6]) (defalias 'vm-menu-popup-url-browser-menu #[(event) "\304!\210\305 \203 \203\306\n!\207\307 \205 \205\310 \"\207" [event vm-use-menus vm-menu-url-browser-menu vm-menu-fsfemacs-url-browser-menu vm-menu-goto-event vm-menu-xemacs-menus-p popup-menu vm-menu-fsfemacs-menus-p vm-menu-popup-fsfemacs-menu] 3 nil "e"]) (defalias 'vm-menu-popup-mailto-url-browser-menu #[(event) "\304!\210\305 \203 \203\306\n!\207\307 \205 \205\310 \"\207" [event vm-use-menus vm-menu-mailto-url-browser-menu vm-menu-fsfemacs-mailto-url-browser-menu vm-menu-goto-event vm-menu-xemacs-menus-p popup-menu vm-menu-fsfemacs-menus-p vm-menu-popup-fsfemacs-menu] 3 nil "e"]) (defalias 'vm-menu-popup-mime-dispose-menu #[(event) "\304!\210\305 \203 \203\306\n!\207\307 \205 \205\310 \"\207" [event vm-use-menus vm-menu-mime-dispose-menu vm-menu-fsfemacs-mime-dispose-menu vm-menu-goto-event vm-menu-xemacs-menus-p popup-menu vm-menu-fsfemacs-menus-p vm-menu-popup-fsfemacs-menu] 3 nil "e"]) (defalias 'vm-menu-popup-attachment-menu #[(event) "\304!\210\305 \203 \203\306\n!\207\307 \205 \205\310 \"\207" [event vm-use-menus vm-menu-attachment-menu vm-menu-fsfemacs-attachment-menu vm-menu-goto-event vm-menu-xemacs-menus-p popup-menu vm-menu-fsfemacs-menus-p vm-menu-popup-fsfemacs-menu] 3 nil "e"]) (defalias 'vm-menu-popup-image-menu #[(event) "\304!\210\305 \203 \203\306\n!\207\307 \205 \205\310 \"\207" [event vm-use-menus vm-menu-image-menu vm-menu-fsfemacs-image-menu vm-menu-goto-event vm-menu-xemacs-menus-p popup-menu vm-menu-fsfemacs-menus-p vm-menu-popup-fsfemacs-menu] 3 nil "e"]) (defalias 'vm-menu-popup-fsfemacs-menu #[(event &optional menu) "\306\211:\203A@\202\307 `\310\311F)\211@)!q\210\211:\203)A@\202/\307 `\310\311F)\312 8\206H A@:\203E A@@\202H A@)b\210\n\206P \313\211\211\314\"\315\316\"\317\"\2119\205u K\211\204\202\211\202\224\f9\203\221\f\320!\202\224\320 !,\207" [event position menu mode-popup-menu func command window-buffer selected-window (0 . 0) 0 5 nil x-popup-menu apply vector lookup-key call-interactively key map last-command this-command] 6 nil "e"]) (defalias 'vm-menu-mode-menu #[nil "\306 \203\307=\203 \207\310>\203\n\207 \207\307=\203\f\207\311>\203' \207\n\207" [major-mode vm-menu-mail-menu vm-menu-dispose-menu vm-menu-vm-menu vm-menu-fsfemacs-mail-menu vm-menu-fsfemacs-dispose-popup-menu vm-menu-xemacs-menus-p mail-mode (vm-mode vm-presentation-mode vm-summary-mode vm-virtual-mode) (vm-mode vm-summary-mode vm-virtual-mode) vm-menu-fsfemacs-vm-menu] 2]) (defalias 'vm-menu-set-menubar-dirty-flag #[nil "\300 \203\301 \207\302 \205\303 \207" [vm-menu-xemacs-menus-p set-menubar-dirty-flag vm-menu-fsfemacs-menus-p force-mode-line-update] 1]) (defalias 'vm-menu-toggle-menubar #[(&optional buffer) "\203\nq\210\202( \203\306 !\204\307\310!\210 q\210\202(\n\311>\204(\307\312!\210\313 \203o\314 \315\"@\204<\316\f!\210\202P\317\304!\210\320 !\316\320\321 !!\210\322\323\324\217\210\325 \210\326 \210 \203`\212\327 !\210)\330 \210$\205\243\212\327$!)\207\331 \205\243\332%\333\"\332&\334\"=\204\220\335%\336\332&\337\"#\210\202\241\335%\340\341 #\210\335%\342\343\327B#\210\325 \207" [buffer vm-mail-buffer major-mode current-menubar vm-menu-vm-menubar vm-summary-buffer buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-menu-xemacs-menus-p find-menu-item ("XEmacs") set-buffer-menubar make-local-variable copy-sequence vm-menu-xemacs-global-menubar nil (add-menu-button nil vm-menu-vm-button nil) ((void-function (byte-code "\300\301\302\303\304$\207" [add-menu-item nil "VM" vm-menu-toggle-menubar t] 5))) vm-menu-set-menubar-dirty-flag vm-check-for-killed-summary vm-menu-toggle-menubar vm-check-for-killed-presentation vm-menu-fsfemacs-menus-p lookup-key [menu-bar] [rootmenu vm] define-key [menu-bar] [rootmenu vm] [menu-bar] make-sparse-keymap [menu-bar vm] "[VM]" vm-presentation-buffer-handle vm-mode-map vm-mode-menu-map] 6 nil nil]) (defalias 'vm-menu-install-menubar #[nil "\304 \203\305 \306!\210\307\310!\210 \211\207\311 \205+\312\313!?\205+\314 \210\315\n\316\317 \320\"#\207" [vm-menu-vm-menubar current-menubar vm-mode-map vm-mode-menu-map vm-menu-xemacs-menus-p vm-menu-make-xemacs-menubar set-buffer-menubar run-hooks vm-menu-setup-hook vm-menu-fsfemacs-menus-p fboundp vm-menu-undo-menu vm-menu-initialize-vm-mode-menu-map define-key [menu-bar] lookup-key [rootmenu vm]] 6]) (defalias 'vm-menu-install-menubar-item #[nil "\303 \203\304 \203\305\306\304 !!\210\307\310\311A#\207\312 \205/\313\314!?\205/\315 \210\316 \317\320\n\321\"#\207" [vm-menu-vm-menu vm-mode-map vm-mode-menu-map vm-menu-xemacs-menus-p vm-menu-xemacs-global-menubar set-buffer-menubar copy-sequence add-menu nil "VM" vm-menu-fsfemacs-menus-p fboundp vm-menu-undo-menu vm-menu-initialize-vm-mode-menu-map define-key [menu-bar] lookup-key [rootmenu]] 6]) (defalias 'vm-menu-install-vm-mode-menu #[nil "\300 \203\301\207\302 \205 \301\207" [vm-menu-xemacs-menus-p t vm-menu-fsfemacs-menus-p] 1]) (defalias 'vm-menu-install-mail-mode-menu #[nil "\305 \203$\203\306 \307\310#\210\311 \203\"\312\313\311 !!\210\314\315\316\nA#\210\317\207\320 \205:\306 \321\322\fB#\210\205:\306 \323\324#\207" [vm-popup-menu-on-mouse-3 vm-mail-mode-map vm-menu-mail-menu mail-mode-map vm-menu-fsfemacs-mail-menu vm-menu-xemacs-menus-p define-key button3 popup-mode-menu vm-menu-xemacs-global-menubar set-buffer-menubar copy-sequence add-menu nil "Mail" t vm-menu-fsfemacs-menus-p [menu-bar mail] "Mail" [down-mouse-3] vm-menu-popup-context-menu] 5]) (defalias 'vm-menu-install-menus #[nil ":\203\301 \210\302 \210\303 \207\304=\203\301 \210\305 \210\303 \207\306\207" [vm-use-menus vm-menu-install-vm-mode-menu vm-menu-install-menubar vm-menu-install-known-virtual-folders-menu 1 vm-menu-install-menubar-item nil] 2]) (defalias 'vm-menu-install-known-virtual-folders-menu #[nil "\306\307\310\"\311\"\312\211\313\211\203'\314\315\316\317\f@E\320\f@$ B\fA\211\204 \2034 \237\321\322D \244\323 \" \205t\n\205t\n \241\210\324 \210\325 \205t\326\327!\210\330\327\331\312#\210\332\327!\204b\333\327\312\"\210\334\327\335 C\312 $\210\336!\337\340B#,\207" [vm-virtual-folder-alist special tail menu folders vm-menu-virtual-menu sort mapcar car string-lessp nil "-------" vector " " vm-menu-run-command 'vm-visit-virtual-folder t "Visit:" "---" vm-member vm-menu-set-menubar-dirty-flag vm-menu-fsfemacs-menus-p makunbound vm-menu-fsfemacs-virtual-menu put variable-documentation default-boundp set-default vm-easy-menu-do-define make-sparse-keymap define-key [rootmenu vm vm-menubar-virtual] "Virtual" vm-mode-menu-map] 6]) (defalias 'vm-menu-install-visited-folders-menu #[nil "\306\307!!\310\211\211\211\311\312+,,\203]\n\313W\203]\314\315-;\203B\316-,@\"\203B\317,@!\211\203B\320\321\fE\202H\320\322,@E\323,@$+B+,A,\nT\202+\203o+\237+\324\325D+\244+\326 \211:\203\204 @:\203\204\327\330 \"\202\234 :\203\233 @;\203\233.;\203\233.C\202\234\310,+\203\257,\203\257+\331\332D\244\210,\203\320+\314\333\320\334,@E\323,@$C\244+,A\211,\204\264\335 /\"+\205 \205 +\241\210\336 \210\337 \205\340\341!\210\342\341\343\310#\210\344\341!\204\345\341\310\"\210\346\341\347 C\310/$\210\3500\351\352!B#.\207" [vm-folder-history special i spool-files foo tail vm-delete-duplicates copy-sequence nil 0 "-------" 10 vector " " string-match vm-pop-find-name-for-spec vm-menu-run-command 'vm-visit-pop-folder 'vm-visit-folder t "Visit:" "---" vm-spool-files mapcar car "---" "---" " " 'vm-visit-folder vm-member vm-menu-set-menubar-dirty-flag vm-menu-fsfemacs-menus-p makunbound vm-menu-fsfemacs-folder-menu put variable-documentation default-boundp set-default vm-easy-menu-do-define make-sparse-keymap define-key [rootmenu vm vm-menubar-folder] "Folder" menu folders vm-recognize-pop-maildrops vm-primary-inbox vm-menu-folder-menu vm-mode-menu-map] 8]) (defvar vm-menu-hm-no-hidden-dirs t "\ *Hidden directories are suppressed in the folder menus, if non nil.") (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list vm-menu-hm-hidden-file-list default-boundp set-default ("^\\..*" ".*\\.~[0-9]+~")] 3) (defalias 'vm-menu-hm-delete-folder #[(folder) "\301!\203.\302\303\304Q!\203*\305!\203\306!\210\202 \307!\210\310\311!\210\312 \210\313 \207\310\314!\207\315\316\"\210\312 \210\313 \207" [folder file-exists-p y-or-n-p "Delete the folder " " ? " file-directory-p delete-directory delete-file message "Folder deleted." vm-menu-hm-make-folder-menu vm-menu-hm-install-menu "Aborted" error "Folder %s does not exist."] 4 "\ Query deletes a folder." "fDelete folder: "]) (defalias 'vm-menu-hm-rename-folder #[(folder) "\301!\203\302\303\304\305Q\306!#\"\210\202\307\310\"\210\311 \210\312 \207" [folder file-exists-p rename-file read-file-name "Rename " " to " directory-file-name error "Folder %s does not exist." vm-menu-hm-make-folder-menu vm-menu-hm-install-menu] 6 "\ Rename a folder." "fRename folder: "]) (defalias 'vm-menu-hm-create-dir #[(parent-dir) "\206 \302\303\304\305\306\"\" \"\307\"\210\310 \210\311 \207" [parent-dir vm-folder-directory make-directory expand-file-name read-file-name format "Create directory in %s called: " t vm-menu-hm-make-folder-menu vm-menu-hm-install-menu] 6 "\ Create a subdir in PARENT-DIR." "DCreate new directory in: "]) (defalias 'vm-menu-hm-make-folder-menu #[nil "\306\307!\210\310! @<\203\311\312 \"\202\nC\313\314\315 \316\317#B\320\315\f\316\317  %B\321\315\f\322\317  %B\323\324\315\f\325\317\326\211\317&B\327\315\f\330\317\326\211\317&B\331\315C\fB\332\317\326\333\317&B\334\335\257 B!*\306\336!\210\337 \207" [vm-folder-directory vm-spool-files vm-primary-inbox inbox-list folder-list vm-menu-hm-no-hidden-dirs message "Building folders menu..." vm-menu-hm-tree-make-file-list mapcar car "Manipulate Folders" "Visit Inboxes " vm-menu-hm-tree-make-menu vm-visit-folder t "Visit Folder " "Save Message " vm-save-message "----" "Delete Folder " vm-menu-hm-delete-folder nil "Rename Folder " vm-menu-hm-rename-folder "Make New Directory in..." vm-menu-hm-create-dir (".*") "----" ["Rebuild Folders Menu" vm-menu-hm-make-folder-menu vm-folder-directory] "Building folders menu... done" vm-menu-hm-install-menu vm-menu-hm-hidden-file-list vm-menu-folders-menu] 15 "\ Makes a menu with the mail folders of the directory `vm-folder-directory'." nil]) (defalias 'vm-menu-hm-install-menu #[nil "\304 \203%\305\306\"@\203\307\310\311 A\312$\207\305\313\"@\205K\307\314\315 A\316$\207\317 \205K\320\303\321\322#\210\323\303!\204;\324\303\322\"\210\325\303\326 C\322 $\210\327\n\330\331 B#\207" [current-menubar vm-menu-folders-menu vm-mode-menu-map vm-menu-fsfemacs-folders-menu vm-menu-xemacs-menus-p find-menu-item ("VM") add-menu ("VM") "Folders" "Motion" ("Folder" "Manipulate Folders") ("Folder") "Manipulate Folders" "Motion" vm-menu-fsfemacs-menus-p put variable-documentation nil default-boundp set-default vm-easy-menu-do-define make-sparse-keymap define-key [rootmenu vm folder folders] "Manipulate Folders"] 5]) (defvar vm-menu-hm-tree-ls-flags "-aFLR" "\ *A String with the flags used in the function vm-menu-hm-tree-ls-in-temp-buffer for the ls command. Be careful if you want to change this variable. The ls command must append a / on all files which are directories. The original flags are -aFLR.") (defalias 'vm-menu-hm-tree-ls-in-temp-buffer #[(dir temp-buffer) "\304!\210\305 \210\306\307\310\306\306\n &\210)eb\210\311\312\306\313#\203&\314\315!\210\202eb\210\316\317\306\313#\2038\314\320!\210\202)eb\207" [temp-buffer process-connection-type vm-menu-hm-tree-ls-flags dir switch-to-buffer erase-buffer nil call-process "ls" search-forward "//" t replace-match "/" re-search-forward "\\.\\.?/\n" ""] 7 "\ List the directory DIR in the TEMP-BUFFER."]) (defvar vm-menu-hm-tree-temp-buffername "*tree*" "\ Name of the temp buffers in tree.") (defalias 'vm-menu-hm-tree-make-file-list-1 #[(root list) "`\303\210`{\211\304\230\204e\305 \306`Sf\307\"\2039\310GSO\212\311\n\312Q!\210\303y\210\313\n\314Q\315\n\"C\")\202T\306`Sf\316\"\203P\310GSO\315\n\"\202T\315\n\"C\"\303y\210`\303\210`{\211\202 )\207" [filename list root nil "" append char-equal 47 0 search-forward ":" vm-menu-hm-tree-make-file-list-1 "/" vm-menu-hm-tree-menu-file-truename 42] 8]) (defalias 'vm-menu-hm-tree-menu-file-truename #[(file &optional root) "\302\303 \"!\207" [file root file-truename expand-file-name] 4]) (defalias 'vm-menu-hm-tree-make-file-list #[(dir) "\300\213\207" [((byte-code "\303!\211\304\305O\306\230\204\307P\310\311 !\"\210\305\312\305\"\313p!\210\n)\207" [dir vm-menu-hm-tree-temp-buffername list expand-file-name -1 nil "/" "/" vm-menu-hm-tree-ls-in-temp-buffer generate-new-buffer-name vm-menu-hm-tree-make-file-list-1 kill-buffer] 5))] 1 "\ Makes a list with the files and subdirectories of DIR. The list looks like: ((dirname1 file1 file2) file3 (dirname2 (dirname3 file4 file5) file6))"]) (defalias 'vm-menu-hm-tree-hide-file-p #[(filename re-hidden-file-list) "\204\302\207\303@\304 !\"\206\305 A\"\207" [re-hidden-file-list filename nil string-match vm-menu-hm-tree-menu-file-truename vm-menu-hm-tree-hide-file-p] 4 "\ t, if one of the regexps in RE-HIDDEN-FILE-LIST matches the FILENAME."]) (defalias 'vm-menu-hm-tree-make-menu #[(dirlist function selectable &optional no-hidden-dirs re-hidden-file-list include-current-dir) "\306\211\n@\211\203t\nA ;\203+\307 \"\204+\310\311\312 !\f D #C\"\202 <\203\203A\313\314\315\312 @!!\"\204\310\312 @!\203d\311\316\f @D #\317 A\f  &B\202m\317 A\f  %BC\"\202*\207" [menulist subdir dirlist re-hidden-file-list function selectable nil vm-menu-hm-tree-hide-file-p append vector file-name-nondirectory char-equal 46 string-to-char "." vm-menu-hm-tree-make-menu no-hidden-dirs include-current-dir] 11 "\ Returns a menu list. Each item of the menu list has the form [\"subdir\" (FUNCTION \"dir\") SELECTABLE]. Hidden directories (with a leading point) are suppressed, if NO-HIDDEN-DIRS are non nil. Also all files which are matching a regexp in RE-HIDDEN-FILE-LIST are suppressed. If INCLUDE-CURRENT-DIR non nil, then an additional command for the current directory (.) is inserted."]) (provide 'vm-menu)