;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:36 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-toolbar.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-toolbar.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307B\302\307!\204-\303\307\304\"\210\310\311!\2047\311\312M\210\313B\302\313!\204F\303\313\314\"\210\315B\302\315!\204U\303\315\304\"\210\310\316!\204_\316\317M\210\320B\302\320!\204n\303\320\321\"\210\322B\302\322!\204}\303\322\304\"\210\323B\302\323!\204\214\303\323\324\"\210\325B\302\325!\204\233\303\325\304\"\210\310\326!\204\245\326\327M\210\330B\302\330!\204\264\303\330\331\"\210\332B\302\332!\204\303\303\332\304\"\210\310\333!\204\315\333\334M\210\335B\302\335!\204\334\303\335\336\"\210\337B\302\337!\204\353\303\337\304\"\210\310\340!\204\365\340\341M\210\342B\302\342!\204\303\342\343\"\210\344B\302\344!\204\303\344\304\"\210\310\345!\204\345\346M\210\347B\302\347!\204,\303\347\350\"\210\351B\302\351!\204;\303\351\304\"\210\310\352!\204E\352\353M\210\354B\302\354!\204T\303\354\355\"\210\356B\302\356!\204c\303\356\304\"\210\310\357!\204m\357\360M\210\361B\302\361!\204|\303\361\362\"\210\363B\302\363!\204\213\303\363\304\"\210\310\364!\204\225\364\365M\210\366B\302\366!\204\244\303\366\367\"\210\370B\302\370!\204\263\303\370\304\"\210\371B\302\371!\204\302\303\371\372\"\210\373B\302\373!\204\321\303\373\304\"\210\374\373!\210\375B\302\375!\204\344\303\375\304\"\210\376B\302\376!\204\363\303\376\304\"\210\377B\302\377!\204\303\377\304\"\210\374\377!\210\201@B\302\201@!\204\303\201@\201A\"\210\201BB\302\201B!\2042\303\201B\304\"\210\374\201B!\207" [current-load-list vm-toolbar-specifier default-boundp set-default nil vm-toolbar-next-button [vm-toolbar-next-icon vm-toolbar-next-command (vm-toolbar-any-messages-p) "Go to the next message.\n\nThe command `vm-toolbar-next-command' is run, which is normally\nfbound to `vm-next-message'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-next-command 'some-other-command)"] vm-toolbar-next-icon fboundp vm-toolbar-next-command vm-next-message vm-toolbar-previous-button [vm-toolbar-previous-icon vm-toolbar-previous-command (vm-toolbar-any-messages-p) "Go to the previous message.\n\nThe command `vm-toolbar-previous-command' is run, which is normally\nfbound to `vm-previous-message'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-previous-command 'some-other-command)"] vm-toolbar-previous-icon vm-toolbar-previous-command vm-previous-message vm-toolbar-autofile-button [vm-toolbar-autofile-icon vm-toolbar-autofile-message (vm-toolbar-can-autofile-p) "Save the current message to a folder selected using vm-auto-folder-alist."] vm-toolbar-autofile-icon vm-toolbar-file-button [vm-toolbar-file-icon vm-toolbar-file-command (vm-toolbar-any-messages-p) "Save the current message to a folder.\n\nThe command `vm-toolbar-file-command' is run, which is normally\nfbound to `vm-save-message'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-file-command 'some-other-command)"] vm-toolbar-file-icon vm-toolbar-file-command vm-save-message vm-toolbar-getmail-button [vm-toolbar-getmail-icon vm-toolbar-getmail-command (vm-toolbar-mail-waiting-p) "Retrieve spooled mail for the current folder.\n\nThe command `vm-toolbar-getmail-command' is run, which is normally\nfbound to `vm-get-new-mail'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-getmail-command 'some-other-command)"] vm-toolbar-getmail-icon vm-toolbar-getmail-command vm-get-new-mail vm-toolbar-print-button [vm-toolbar-print-icon vm-toolbar-print-command (vm-toolbar-any-messages-p) "Print the current message.\n\nThe command `vm-toolbar-print-command' is run, which is normally\nfbound to `vm-print-message'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-print-command 'some-other-command)"] vm-toolbar-print-icon vm-toolbar-print-command vm-print-message vm-toolbar-visit-button [vm-toolbar-visit-icon vm-toolbar-visit-command t "Visit a different folder.\n\nThe command `vm-toolbar-visit-command' is run, which is normally\nfbound to `vm-visit-folder'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-visit-command 'some-other-command)"] vm-toolbar-visit-icon vm-toolbar-visit-command vm-visit-folder vm-toolbar-reply-button [vm-toolbar-reply-icon vm-toolbar-reply-command (vm-toolbar-any-messages-p) "Reply to the current message.\n\nThe command `vm-toolbar-reply-command' is run, which is normally\nfbound to `vm-followup-include-text'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-reply-command 'some-other-command)"] vm-toolbar-reply-icon vm-toolbar-reply-command vm-followup-include-text vm-toolbar-compose-button [vm-toolbar-compose-icon vm-toolbar-compose-command t "Compose a new message.\n\nThe command `vm-toolbar-compose-command' is run, which is normally\nfbound to `vm-mail'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-compose-command 'some-other-command)"] vm-toolbar-compose-icon vm-toolbar-compose-command vm-mail vm-toolbar-decode-mime-button [vm-toolbar-decode-mime-icon vm-toolbar-decode-mime-command (vm-toolbar-can-decode-mime-p) "Decode the MIME objects in the current message.\n\nThe objects might be displayed immediately, or buttons might be\ndisplayed that you need to click on to view the object. See the\ndocumentation for the variables vm-mime-internal-content-types\nand vm-mime-external-content-types-alist to see how to control\nwhether you see buttons or objects.\n\nThe command `vm-toolbar-decode-mime-command' is run, which is normally\nfbound to `vm-decode-mime-messages'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-decode-mime-command 'some-other-command)"] vm-toolbar-decode-mime-icon vm-toolbar-decode-mime-command vm-decode-mime-message vm-toolbar-delete-icon t vm-toolbar-undelete-icon vm-toolbar-delete/undelete-button [vm-toolbar-delete/undelete-icon vm-toolbar-delete/undelete-message (vm-toolbar-any-messages-p) "Delete the current message, or undelete it if it is already deleted."] vm-toolbar-delete/undelete-icon make-variable-buffer-local vm-toolbar-help-icon vm-toolbar-recover-icon vm-toolbar-helper-icon vm-toolbar-help-button [vm-toolbar-helper-icon vm-toolbar-helper-command (vm-toolbar-can-help-p) "Don't Panic.\n\nVM uses this button to offer help if you're in trouble.\nUnder normal circumstances, this button runs `vm-help'.\nIf the current folder looks out-of-date relative to its auto-save\nfile then this button will run `recover-file'\nIf there is mail waiting in one of the spool files associated\nwith the current folder, and the `getmail' button is not on the\ntoolbar, this button will run `vm-get-new-mail'.\nIf the current message needs to be MIME decoded then this button\nwill run 'vm-decode-mime-message'."] vm-toolbar-helper-command] 3) (defalias 'vm-toolbar-helper-command #[nil "\302!\207" [vm-toolbar-helper-command this-command call-interactively] 2 nil nil]) (byte-code "\301B\302\301!\204\303\301\304\"\210\305B\302\305!\204\303\305\306\"\210\307\310!\204(\310\311M\210\306\207" [current-load-list vm-toolbar-quit-button default-boundp set-default [vm-toolbar-quit-icon vm-toolbar-quit-command (vm-toolbar-can-quit-p) "Quit visiting this folder.\n\nThe command `vm-toolbar-quit-command' is run, which is normally\nfbound to `vm-quit'.\nYou can make this button run some other command by using a Lisp\ns-expression like this one in your .vm file:\n (fset 'vm-toolbar-quit-command 'some-other-command)"] vm-toolbar-quit-icon nil fboundp vm-toolbar-quit-command vm-quit] 3) (defalias 'vm-toolbar-any-messages-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\302 \210\303!\203\304!\203q\210 )\207" [vm-mail-buffer vm-message-list vm-check-for-killed-folder bufferp buffer-name] 2) ((error))] 3]) (defalias 'vm-toolbar-delete/undelete-message #[(&optional prefix-arg) "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\n\2031\315\316pC\"\210\202$\317 \210  @\211\320H\320H)\203I\321\322!\202L\321\323!)\207" [vm-mail-buffer major-mode vm-folder-read-only prefix-arg current-prefix-arg vm-message-pointer vm-follow-summary-cursor buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary signal folder-read-only vm-error-if-folder-empty 2 call-interactively vm-undelete-message vm-delete-message message] 4 nil "P"]) (defalias 'vm-toolbar-can-autofile-p #[nil "\300\301\302\217\207" [nil (byte-code "\212\303 \210\304!\203\305!\203q\210 \205\306 \n\")\207" [vm-mail-buffer vm-message-pointer vm-auto-folder-alist vm-check-for-killed-folder bufferp buffer-name vm-auto-select-folder] 3) ((error))] 3 nil nil]) (defalias 'vm-toolbar-autofile-message #[nil "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\n\2031\315\316pC\"\210\202$\317 \210\320 \f\"\211\203I\321 \322\"\210\323\324 \"\202L\310\325!)\207" [vm-mail-buffer major-mode vm-folder-read-only vm-message-pointer vm-auto-folder-alist file vm-follow-summary-cursor buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" vm-check-for-killed-summary signal folder-read-only vm-error-if-folder-empty vm-auto-select-folder vm-save-message 1 message "Message saved to %s" "No match for message in vm-auto-folder-alist."] 4 nil nil]) (defalias 'vm-toolbar-can-recover-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\2055 \2055\f\2055\312 ?\2055\313\f \")\207" [vm-mail-buffer major-mode vm-folder-read-only 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" buffer-modified-p file-newer-than-file-p] 3) ((error))] 3]) (defalias 'vm-toolbar-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-toolbar-can-quit-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>)\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-mode vm-virtual-mode)] 2) ((error))] 3]) (defalias 'vm-toolbar-mail-waiting-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\n!?\206' )\207" [vm-mail-buffer major-mode vm-mail-check-interval vm-spooled-mail-waiting buffer-name error "Folder buffer has been killed." (vm-mode vm-virtual-mode) "No VM folder buffer associated with this buffer" natnump] 2) ((error))] 3]) (fset 'vm-toolbar-can-help-p 'vm-toolbar-can-quit-p) (defalias 'vm-toolbar-update-toolbar #[nil "\203@\211\306H\306H)\203\n\202\f\307 \203%\310\202Z\311 \203:\312>\204:\313\202Z\314 \203T\204T\315>\204T\316\202Z\317\203g\320\303\305\321$\210\203t\320\303\305\321$\210\205\211\322p\323B\"\210\322pB\"\207" [vm-message-pointer message vm-toolbar-undelete-icon vm-toolbar-delete/undelete-icon vm-toolbar-delete-icon vm-toolbar-helper-command 2 vm-toolbar-can-recover-p recover-file vm-toolbar-mail-waiting-p getmail vm-get-new-mail vm-toolbar-can-decode-mime-p mime vm-decode-mime-message vm-help vm-copy-local-variables vm-toolbar-helper-icon set-specifier nil vm-toolbar-recover-icon vm-use-toolbar vm-toolbar-getmail-icon vm-mime-decoded vm-toolbar-decode-mime-icon vm-toolbar-help-icon vm-summary-buffer vm-presentation-buffer vm-toolbar-specifier vm-toolbar] 6]) (defalias 'vm-toolbar-install-or-uninstall-toolbar #[nil "\302 \203\f\203\f\303 \210 \205?\205\304 \207" [vm-use-toolbar vm-fsfemacs-p vm-toolbar-support-possible-p vm-toolbar-install-toolbar vm-toolbar-fsfemacs-uninstall-toolbar] 1]) (defalias 'vm-toolbar-install-toolbar #[nil "\306\307!\210\306\310!\210\203 ?\205\311 \207\n;\203\312\n!\204'\313\314!\210\315\316!\207\317 \210\320 @!\321\\\322 @!\321\\\323 p\324\325 \326 !\"!\321U\203S\327!\"\321U\203]\330\"#\203h#\202n\331 \211#$\332=\203\234%& \203\207\333%\f $\210\333%\f#\210\333'! $\202$\334=\203\312(& \203\265\333(\f $\210\333(\f#\210\333)! $\202$\335=\203\370*& \203\343\333*\f $\210\333*\f#\210\333+\" $\202,& \203\n\333,\f $\210\333,\f#\210\333-\" $.\207" [vm-fsfemacs-p vm-fsfemacs-toolbar-installed-p vm-toolbar-pixmap-directory vm-toolbar-help-icon toolbar myframe require vm-save vm-summary vm-toolbar-fsfemacs-install-toolbar file-directory-p message "Bad toolbar pixmap directory, can't setup toolbar." sit-for 2 vm-toolbar-initialize glyph-height 4 glyph-width selected-frame (win) vm-created-this-frame-p nil 68 46 vm-toolbar-make-toolbar-spec right set-specifier left bottom tag-set buffer frame width height vm-toolbar vm-toolbar-orientation right-toolbar vm-toolbar-specifier right-toolbar-width left-toolbar left-toolbar-width bottom-toolbar bottom-toolbar-height top-toolbar top-toolbar-height] 8]) (defalias 'vm-toolbar-make-toolbar-spec #[nil "\305\306\211 \203H @\204\306 B\202A @\250\2032\307 @W\203A\310\311 @\312\313$ B\202A @\f\236\211\203A\nAJ B A\211\204\f \237,\207" [vm-use-toolbar toolbar cons button-list button-alist ((autofile . vm-toolbar-autofile-button) (compose . vm-toolbar-compose-button) (delete/undelete . vm-toolbar-delete/undelete-button) (file . vm-toolbar-file-button) (getmail . vm-toolbar-getmail-button) (help . vm-toolbar-help-button) (mime . vm-toolbar-decode-mime-button) (next . vm-toolbar-next-button) (previous . vm-toolbar-previous-button) (print . vm-toolbar-print-button) (quit . vm-toolbar-quit-button) (reply . vm-toolbar-reply-button) (visit . vm-toolbar-visit-button)) nil 0 vector :size :style 2d] 6]) (defalias 'vm-toolbar-initialize #[nil "\204V \204V\306\307!\2032\310 \203\311 \312Y\203\313\202\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\257\2023\333\334\211\211\211\203U @\211@\fA\n\335\336 \"L\210 A\211\204>,# \337\340#\"\210\341$ \"\337\342 \"\207" [vm-fsfemacs-p vm-toolbar-help-icon var files tuple tuples featurep xpm device-on-window-system-p device-bitplanes 16 (vm-toolbar-decode-mime-icon "mime-colorful-up.xpm" "mime-colorful-dn.xpm" "mime-colorful-xx.xpm") (vm-toolbar-decode-mime-icon "mime-simple-up.xpm" "mime-simple-dn.xpm" "mime-simple-xx.xpm") (vm-toolbar-next-icon "next-up.xpm" "next-dn.xpm" "next-dn.xpm") (vm-toolbar-previous-icon "previous-up.xpm" "previous-dn.xpm" "previous-dn.xpm") (vm-toolbar-delete-icon "delete-up.xpm" "delete-dn.xpm" "delete-dn.xpm") (vm-toolbar-undelete-icon "undelete-up.xpm" "undelete-dn.xpm" "undelete-dn.xpm") (vm-toolbar-autofile-icon "autofile-up.xpm" "autofile-dn.xpm" "autofile-dn.xpm") (vm-toolbar-getmail-icon "getmail-up.xpm" "getmail-dn.xpm" "getmail-dn.xpm") (vm-toolbar-file-icon "file-up.xpm" "file-dn.xpm" "file-dn.xpm") (vm-toolbar-reply-icon "reply-up.xpm" "reply-dn.xpm" "reply-dn.xpm") (vm-toolbar-compose-icon "compose-up.xpm" "compose-dn.xpm" "compose-dn.xpm") (vm-toolbar-print-icon "print-up.xpm" "print-dn.xpm" "print-dn.xpm") (vm-toolbar-visit-icon "visit-up.xpm" "visit-dn.xpm" "visit-dn.xpm") (vm-toolbar-quit-icon "quit-up.xpm" "quit-dn.xpm" "quit-dn.xpm") (vm-toolbar-help-icon "help-up.xpm" "help-dn.xpm" "help-dn.xpm") (vm-toolbar-recover-icon "recover-up.xpm" "recover-dn.xpm" "recover-dn.xpm") ((vm-toolbar-decode-mime-icon "mime-up.xbm" "mime-dn.xbm" "mime-xx.xbm") (vm-toolbar-next-icon "next-up.xbm" "next-dn.xbm" "next-xx.xbm") (vm-toolbar-previous-icon "previous-up.xbm" "previous-dn.xbm" "previous-xx.xbm") (vm-toolbar-delete-icon "delete-up.xbm" "delete-dn.xbm" "delete-xx.xbm") (vm-toolbar-undelete-icon "undelete-up.xbm" "undelete-dn.xbm" "undelete-xx.xbm") (vm-toolbar-autofile-icon "autofile-up.xbm" "autofile-dn.xbm" "autofile-xx.xbm") (vm-toolbar-getmail-icon "getmail-up.xbm" "getmail-dn.xbm" "getmail-xx.xbm") (vm-toolbar-file-icon "file-up.xbm" "file-dn.xbm" "file-xx.xbm") (vm-toolbar-reply-icon "reply-up.xbm" "reply-dn.xbm" "reply-xx.xbm") (vm-toolbar-compose-icon "compose-up.xbm" "compose-dn.xbm" "compose-xx.xbm") (vm-toolbar-print-icon "print-up.xbm" "print-dn.xbm" "print-xx.xbm") (vm-toolbar-visit-icon "visit-up.xbm" "visit-dn.xbm" "visit-xx.xbm") (vm-toolbar-quit-icon "quit-up.xbm" "quit-dn.xbm" "quit-xx.xbm") (vm-toolbar-help-icon "help-up.xbm" "help-dn.xbm" "help-xx.xpm") (vm-toolbar-recover-icon "recover-up.xbm" "recover-dn.xbm" "recover-xx.xpm")) nil mapcar #[(f) "\302\303 \"!\207" [f vm-toolbar-pixmap-directory make-glyph expand-file-name] 4] set-default vm-toolbar-delete/undelete-icon vm-help vm-toolbar-helper-icon vm-toolbar-delete-icon vm-toolbar-helper-command] 16]) (defalias 'vm-toolbar-fsfemacs-uninstall-toolbar #[nil "\302\303\304#\210\304\211\207" [vm-mode-map vm-fsfemacs-toolbar-installed-p define-key [toolbar] nil] 4]) (defalias 'vm-toolbar-fsfemacs-install-toolbar #[nil "\306! \307 \203\310\311!\203\312\202\313\314\211\211\211\211@ABC\315\316!\203X:\203XA\317D\211E\203WD\320E@@I\210\321FD\322#\210EA\211E\204=*C\203\375C@\211\203\364\f\250\204\364\f\323>\203\311\324\325\326\f\327=\203}\330\202~\f\"!J\f\327=\203\224A\331\230\203\224\332\202\230\333\f!\334 AB\f\327=?\205\246\335$\336 \337H \320H\340 \341H\342\343\344\n\257 @\321F\345\346\f\"@#\210\202\364\f\347=\203+G\350\334 AB\335$\336 \337H \320H\351\352\340 \341H\342\353\344\n\257 @\321F\345\346\354\"@#\210\355\334 AB\335$\336 \337H \320H\351\356\340 \341H\342\357\344\n\257 @\321F\345\346\360\"@#\210\202\364\f\361=\203\364H\362\334 AB\335$\336 \337H \320H\351\363\340 \341H\342\364\344\n\257 @\321F\345\346\365\"@#\210\366\334 AB\335$\336 \337H \320H\351\367\340 \341H\342\370\344\n\257 @\321F\345\346\371\"@#\210\372\334 AB\335$\336 \337H \320H\351\373\340 \341H\342\374\344\n\257 @\321F\345\346\375\"@#\210A\376\230\203\301\377\202\305\201J\334 AB\314$\336 \337H \320H\351\201K\340 \341H\342\201L\344\n\257 @\321F\345\346\201M\"@#\210CA\211C\204].\201N\211I\207" [vm-use-toolbar vm-toolbar-pixmap-directory images name sym t-spec reverse display-color-p image-type-available-p xpm "xpm" "xbm" nil boundp tool-bar-map [tool-bar x] 1 define-key undefined (autofile compose file getmail mime next previous print quit reply visit) intern format "vm-toolbar-%s-button" mime decode-mime "xpm" "mime-colorful" symbol-name vm-toolbar-make-fsfemacs-toolbar-image-spec heuristic menu-item 3 :enable 2 :button (:toggle nil) :image vector tool-bar delete/undelete "delete" :visible (eq vm-toolbar-delete/undelete-icon vm-toolbar-delete-icon) (:toggle nil) delete "undelete" (eq vm-toolbar-delete/undelete-icon vm-toolbar-undelete-icon) (:toggle nil) undelete help "help" (eq vm-toolbar-helper-command 'vm-help) (:toggle nil) help-help "recover" (eq vm-toolbar-helper-command 'recover-file) (:toggle nil) help-recover "getmail" (eq vm-toolbar-helper-command 'vm-get-new-mail) (:toggle nil) help-getmail "xpm" "mime-colorful" item extension dir button-list v map vm-mode-map vm-toolbar-delete/undelete-button vm-toolbar-help-button vm-fsfemacs-toolbar-installed-p "mime" (eq vm-toolbar-helper-command 'vm-decode-mime-message) (:toggle nil) help-mime t] 12]) (defalias 'vm-toolbar-make-fsfemacs-toolbar-image-spec #[(name extension dir mask) "\304\230\203Q\305\306\307\310!\311 \312\313\314\315\n# \"\257\306\307\310!\311 \312\313\314\316\n# \"\257\306\307\310!\311 \312\313\314\317\n# \"\257\306\307\310!\311 \312\313\314\320\n# \"\257$\207\305\306\307\310!\311 \312\313\314\321\n# \"\257\306\307\310!\311 \312\313\314\322\n# \"\257\306\307\310!\311 \312\313\314\323\n# \"\257\306\307\310!\311 \312\313\314\324\n# \"\257$\207" [extension mask name dir "xpm" vector image :type intern :mask :file expand-file-name format "%s-dn.%s" "%s-up.%s" "%s-dn.%s" "%s-dn.%s" "%s-dn.%s" "%s-up.%s" "%s-xx.%s" "%s-xx.%s"] 15]) (provide 'vm-toolbar)