;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:34 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-save.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-save.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-match-data #[nil "\302 G\303\245S\304\211\305Y\203 \224 \225BB S\211\202\n*\207" [list n match-data 2 nil 0] 4]) (defalias 'vm-auto-select-folder #[(mp auto-folder-alist) "\300\301\302\217\207" [error-data (byte-code "\300\301\215\207" [match (byte-code "\306\211\211 \211\203\235\307\f@ @@\310#\211\203\226 @A\211\203\226 \311@@\n\")\203\217@A;\203?\312\313@A\"\210\202\217\314 \315\316!\306\212q\210\203Y\317\306!\210~\210\320 \210\nc\210\321\322\323\322\324\"\"!\210\325@A!\211:\203\203\326\f\"\211\202t\203\216\312\313\"\210,A\211\204! A\211\204\f+\306\207" [tuple-list alist header auto-folder-alist mp vm-auto-folder-case-fold-search nil vm-get-header-contents ", " string-match throw match vm-match-data get-buffer-create " *vm-auto-folder*" set-buffer-multibyte erase-buffer store-match-data mapcar #[(n) "\205\303\304 \n \223*\207" [n buffer pos nil make-marker] 3] #[(n) "\205T\207" [n] 1] eval vm-auto-select-folder case-fold-search match-data buf result vm-fsfemacs-mule-p] 7)] 2) ((error (byte-code "\301\302\303!\"\207" [error-data error "error processing vm-auto-folder-alist: %s" prin1-to-string] 4)))] 3]) (defalias 'vm-auto-archive-messages #[(&optional arg) "\203\306!\204\307\310!\210q\210\202 \311>\204\307\312!\210\313 \210\314 \210\315\316!\210\317\320\321\216\f\322=\203:\323\320!\202; \317\211%\317&%'()\324)!'(\204\277)@\211 \325H\326H)\204\260)@\211 \325H\325H)\204\260\327)*\"\211\203\260\330 !p=\204\260+\203\235\331\332\333)@\211 \334H\320H) #!\203\260,\335-\336 !\210\nT\315\337\n\"\210*)'=()A)\202P.\340\n!\203\315\315\341!\202\334\315\342\n\211\334U\203\332\343\202\333\344#*\207" [vm-mail-buffer major-mode archived auto-folder last-command vm-message-list 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 vm-error-if-folder-empty message "Archiving..." nil 0 ((byte-code "\301\302 \"\210\303 \207" [vm-buffers-needing-display-update intern buffer-name vm-update-summary-and-mode-line] 3)) vm-next-command-uses-marks vm-select-marked-or-prefixed-messages vm-last 2 3 vm-auto-select-folder vm-get-file-buffer y-or-n-p format "Save message %s in folder %s? " 1 vm-auto-archive-messages vm-save-message "%d archived, still working..." zerop "No messages were archived" "%d message%s archived" "" "s" vm-last-save-folder vm-move-after-deleting stop-point done vm-message-pointer vm-auto-folder-alist arg vm-delete-after-archiving vm-delete-after-saving] 6 "\ Save all unfiled messages that auto-match a folder via vm-auto-folder-alist to their appropriate folders. Messages that are flagged for deletion are not saved. Prefix arg means to ask user for confirmation before saving each message. When invoked on marked messages (via vm-next-command-uses-marks), only marked messages are checked against vm-auto-folder-alist. The saved messages are flagged as `filed'." "P"]) (defalias 'vm-save-message #[(folder &optional count) "\306\211\n\203\307\n!\204\310\311!\210\nq\210\202\" \312>\204\"\310\313!\210\314 \210\315 \210\f\316 @\"\317\306\211\320\321$\210A\204?\322A\323B\206GC!C\323\f!)D\203vt\203v\324\f!\204vE\203i\325\f!\204v\326\327\330\f\"!\204v\310\331!\210E\204\206\325\f!\203\206\310\332\f\"\210\333A!\324\f!\203\226\334\f!\202\230\335 \336\337!\205\240\337 \306\340\306\211FGAHIJ\211K\203\325E\341=\203\325\325\f!\206\320\341\306\211LMN\342\f!+G\202\344K\203\344E\203\344\325\f!GK\203O\203\343\f!\206 P\206 K\205 K@\211Q\322H\344H)\211F\345=\203\310\346\f\"\210\347\216\212I\203#\350R!\210K\203T\351\f!\211S\203:\344S8\340U\203SG\204J\352\f\353F!\"\210\202S\352G\353F!\"\210)K\203\264K@\211Q\322H\354HJ)\211H\211Q\322H\355H)q\210\356 deZV\306\211TU\211V\203\226\357 e\306\223\211U\203\226\357 d\306\223T\360\216~\210\361H\341\"\210G\204ZO\203\272FH\211Q\322H\344H)=\203\327\362H\211Q\340H\340H)H\211Q\340H\354H)\f\341\363%\210\202|W\204\364K@!\204\367\310\365H\211Q\322H\344H)F#\210\202|\310\366K@\211Q\322H\340H)\fH\211Q\322H\344H)F%\210\202|\352\f\367FH\341#\"\210F\370=\2035\352\fX\371\372H!\373R\"\210\362H\211Q\340H\322H)H\211Q\340H\374H)\f\341\363%\210\352\f\375F!\"\210\202|\212Gq\210Y\203j\376\377pC\"\210\306Z\356 deZV\306\211[\\\211]\203\221\357 e\306\223\211\\\203\221\357 d\306\223[\201d\216~\210\212db\210O\203\260FH\211Q\322H\344H)=\203\326\201eH\211Q\322H\355H)H\211Q\340H\340H)H\211Q\340H\354H)#\210\202gW\204\364K@!\204\370\310\201fH\211Q\322H\344H)F#\210\202g\310\201gK@\211Q\322H\340H)\fH\211Q\322H\344H)F%\210\202g\352p\367FH\341#\"\210F\370=\203<\352pX\201h\372H!\201iR\"\210\201eH\211Q\322H\355H)H\211Q\340H\322H)H\211Q\340H\374H)#\210\352p\375F!\"\210) \201j=\203z^T^\201k \210.H\211Q\201lH\201mH)\204\225\201nH\341\"\210ATA\201o\f\201p\322H$\210\201q \210KAK,\202T*H\2037G\203\212Gq\210 \201j=\203\364\314 \210\201r \210 \204\357_\341`\201s\307 a\"\210\201t \210\202\364\201q \210)t\2037\201Q\201uA\211\322U\204 \201v\202\201w\307G!$\210\2027t\2037\201Q\201xA\211\322U\2041\201y\2024\201z\f$\210.b\203D \232\204Gbc\203XY\204X\201{A!\210\f*\207" [unexpanded-folder auto-folder vm-mail-buffer major-mode folder vm-message-pointer nil 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 vm-error-if-folder-empty vm-auto-select-folder vm-display (vm-save-message) (vm-save-message) 1 expand-file-name file-exists-p vm-get-file-buffer y-or-n-p format "%s does not exist, save there anyway? " "Save aborted" "Folder %s is being visited, cannot save." vm-select-marked-or-prefixed-messages vm-get-file-line-ending-coding-system vm-new-folder-line-ending-coding-system fboundp default-file-modes 0 t find-file-noselect vm-get-folder-type 7 unknown "Folder %s's type is unrecognized" ((byte-code "\203\301!\210\301\207" [oldmodebits set-default-file-modes] 2)) set-default-file-modes file-attributes vm-write-string vm-folder-header 5 9 buffer-size make-marker ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#1=#:vm-sr-clip #2=#:vm-sr-min #3=#:vm-sr-max nil] 3)) vm-stuff-attributes write-region quiet vm-virtual-message-p "Folder type mismatch: %s, %s" "Message %s type mismatches folder %s" vm-leading-message-separator From_-with-Content-Length " " vm-su-byte-count "\n" 4 vm-trailing-message-separator signal folder-read-only vm-auto-folder-alist count vm-folder-directory default-directory vm-confirm-new-folders vm-visit-when-saving target-type folder-buffer m oldmodebits coding-system-for-write mlist enable-local-variables enable-local-eval inhibit-local-variables vm-check-folder-types vm-default-folder-type message vm-default-folder-permission-bits attrs #3# #2# #1# vm-convert-folder-types vm-content-length-header vm-folder-read-only buffer-read-only #4=#:vm-sr-max #5=#:vm-sr-min #6=#:vm-sr-clip vm-messages-not-on-disk vm-message-list vm-need-summary-pointer-update vm-buffers-needing-display-update vm-last-save-folder vm-delete-after-saving ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#6# #5# #4# nil] 3)) insert-buffer-substring "Folder type mismatch: %s, %s" "Message %s type mismatches folder %s" " " "\n" vm-mode vm-clear-modification-flag-undos 2 3 vm-set-filed-flag vm-modify-folder-totals saved vm-update-summary-and-mode-line vm-assimilate-new-messages intern vm-preview-current-message "%d message%s saved to buffer %s" "s" "" "%d message%s saved to %s" "s" "" vm-delete-message] 8 "\ Save the current message to a mail folder. If the folder already exists, the message will be appended to it. Prefix arg COUNT means save this message and the next COUNT-1 messages. A negative COUNT means save this message and the previous COUNT-1 messages. When invoked on marked messages (via vm-next-command-uses-marks), all marked messages in the current folder are saved; other messages are ignored. The saved messages are flagged as `filed'." (list (let ((last-command last-command) (this-command this-command)) (vm-follow-summary-cursor) (let ((default (save-excursion (vm-select-folder-buffer) (vm-check-for-killed-summary) (vm-error-if-folder-empty) (or (vm-auto-select-folder vm-message-pointer vm-auto-folder-alist) vm-last-save-folder))) (dir (or vm-folder-directory default-directory))) (cond ((and default (let ((default-directory dir)) (file-directory-p default))) (vm-read-file-name "Save in folder: " dir nil nil default)) (default (vm-read-file-name (format "Save in folder: (default %s) " default) dir default)) (t (vm-read-file-name "Save in folder: " dir nil))))) (prefix-numeric-value current-prefix-arg))]) (defalias 'vm-save-message-sans-headers #[(file &optional count) "\203\306!\204\307\310!\210q\210\202 \311>\204\307\312!\210\313 \210\314 \210\315\316\211\317\320$\210\n\2041\321\322 !\f\204D\323 !\203D\307\324 \"\210\325\n!\326\327!\205O\327 \330 !\316\2119:;\211<\203t\f\331=\203t\323 !\206p\332 !\202\201<\203\201\f\203\201\323 !\333 !\334>\204\223\335\336!\204\223\307\337!\210\340\216\212;\203\240\341=!\210<\203\241<@\2112\321H\342HJ)\2119\2112\321H\343H)q\210\344 deZV\316\211>?\211@\203\342\345 e\316\223\211?\203\342\345 d\316\223>\346\216~\210 \204\3479\2112\350H\351H\206\3522!\2102\350H\351H)9\2112\350H\353H) \331\354%\210\202\2029\2112\350H\351H\206,\3522!\2102\350H\351H)9\2112\350H\353H)AB\212 q\210\212\316C\344 deZV\316\211DE\211F\203g\345 e\316\223\211E\203g\345 d\316\223D\355\216~\210\212db\210\3569\2112\321H\343H)BA#\210.\n9\2112\357H\342H)\204\225\3609\331\"\210\361 \210\204\307\312!\210\313 \210\314 \210\n\315\316!\317\f\2051 \320=(\321=\203>\322\323!\202B)@C*+,\212,q\210\324 \210)*\203N*@\211-\325H\326HJ)\211+\211-\325H\327H)q\210\214~\210+\211-\323H\325H)b\210.\317\232\203\226`+\211-\323H\330H)}\210\202&.\331\232\203\304+\211-\323H\332H\206\264\333-!\210-\323H\332H)+\211-\323H\330H)}\210\202&.\334\232\203\351`+\211-\323H\332H\206\343\333-!\210-\323H\332H)}\210\202&.\335\232\203+\211-\323H\336H\206 \337-\317\211#\210-\323H\336H)+\211-\323H\330H)}\210\202&`+\211-\323H\330H)}\210\f\205- \320=\317/\340ed0\206:\341\317,\3171\n&\210+*A\211*\204W\342\317\211\343\344$\210\345\212,q\210\346 )!?\205g\347,!,\207" [vm-mail-buffer major-mode command vm-last-pipe-command pop-up-windows vm-mutable-windows 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 vm-error-if-folder-empty get-buffer-create "*Shell Command Output*" nil t vm-next-command-uses-marks vm-select-marked-or-prefixed-messages 0 erase-buffer 1 5 9 4 (4) 3 vm-find-and-set-text-of (16) (64) 2 vm-reorder-message-headers call-process-region "sh" vm-display (vm-pipe-message-to-command) (vm-pipe-message-to-command) zerop buffer-size display-buffer last-command vm-message-pointer mlist m buffer message prefix-arg selective-display shell-file-name shell-command-switch] 10 "\ Runs a shell command with some or all of the contents of the current message as input. By default, the entire message is used. With one \\[universal-argument] the text portion of the message is used. With two \\[universal-argument]'s the header portion of the message is used. With three \\[universal-argument]'s the visible header portion of the message plus the text portion is used. When invoked on marked messages (via vm-next-command-uses-marks), each marked message is successively piped to the shell command, one message per command invocation. Output, if any, is displayed. The message is not altered." (let ((last-command last-command) (this-command this-command)) (vm-follow-summary-cursor) (vm-select-folder-buffer) (list (read-string "Pipe to command: " vm-last-pipe-command) current-prefix-arg))]) (defalias 'vm-print-message #[(&optional count) "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\315 \210\n\204-\316\317\320!\321\322\f\"\211\205<\323 9\324\325:C\326;!\244 \205O9C\244\327#<\330=>\205`?\331=>\332\n!@\212 q\210\333 \210)@\203\244@@\211A\316H\334HJ)\211=\211A\316H\335H)q\210B\2039\336\337=!!\2039\330C\340\216\341 \211Cq\210\342=\211A\316H\335H)=\211A\343H\344H\206\313\345A\330\211#\210A\343H\344H)=\211A\343H\346H\206\343\347A!\210A\343H\346H)#\210\350 \210db\210\351\352\330DEF\353\337=!!\210+>\205?\331=\330G> \203\354ed9\330\343%\210\355edH\206!\356\330 \330I<&\210 \2035\357\3609\"\210,\202\233\214~\210=\211A\343H\344H\206U\345A\330\211#\210A\343H\344H)=\211A\343H\361H)}\210>\205k?\331=\330G> \203}\354ed9\330\343%\210\355edH\206\206\362\330 \330I<&\210 \203\232\357\3609\"\210+@A\211@\204t\363\330\211\364\365$\210\366\212 q\210\367 )!?\205\273\370 !.\207" [vm-mail-buffer major-mode count buffer system-configuration need-tempfile 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 vm-error-if-folder-empty 1 get-buffer-create "*Shell Command Output*" string-match ".*-.*-\\(win95\\|nt\\)" vm-make-tempfile-name mapconcat identity copy-sequence " " nil t vm-select-marked-or-prefixed-messages erase-buffer 5 9 vectorp vm-mm-layout ((byte-code "\203\301!\210\301\207" [work-buffer kill-buffer] 2)) vm-make-work-buffer vm-insert-region-from-buffer 0 2 vm-reorder-message-headers 3 vm-find-and-set-text-of vm-decode-mime-encoded-words ("text" "multipart") ("text" "multipart") vm-decode-mime-layout write-region call-process-region "sh" vm-error-free-call delete-file 4 "sh" vm-display (vm-print-message) (vm-print-message) zerop buffer-size display-buffer tempfile vm-print-command vm-print-command-switches command m pop-up-windows vm-mutable-windows mlist message vm-display-using-mime work-buffer vm-mime-external-content-types-alist vm-mime-internal-content-types vm-auto-displayed-mime-content-types selective-display shell-file-name shell-command-switch] 10 "\ Print the current message Prefix arg N means print the current message and the next N - 1 messages. Prefix arg -N means print the current message and the previous N - 1 messages. The variable `vm-print-command' controls what command is run to print the message, and `vm-print-command-switches' is a list of switches to pass to the command. When invoked on marked messages (via vm-next-command-uses-marks), each marked message is printed, one message per vm-print-command invocation. Output, if any, is displayed. The message is not altered." "p"]) (defalias 'vm-save-message-to-imap-folder #[(folder &optional count) "\203\306!\204\307\310!\210q\210\202 \311>\204\307\312!\210\313 \210\314 \210\315\316\211\317\320$\210\n\2041\321\322\n!\316\211\323\324 !8\325&'\326\216\212\327 !&\330&!q\210'\203\205'@\331& \f#\210 \211 \332H\323H)\204r\333 \334\"\210\nT\335 \336\321 $\210'A\211'\204V*\337 \210t\203\240\340\341\n\211\321U\204\232\342\202\233\343\344 !$\210(\203\256)\204\256\345\n!\210 -\207" [vm-mail-buffer major-mode count folder mailbox m 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 vm-error-if-folder-empty vm-display nil (vm-save-message-to-imap-folder) (vm-save-message-to-imap-folder) 1 vm-select-marked-or-prefixed-messages 3 vm-imap-parse-spec-to-list 0 ((byte-code "\203\301!\210\301\207" [process vm-imap-end-session] 2)) vm-imap-make-session process-buffer vm-imap-save-message 2 vm-set-filed-flag t vm-modify-folder-totals saved vm-update-summary-and-mode-line message "%d message%s saved to %s" "s" "" vm-safe-imapdrop-string vm-delete-message process mlist vm-delete-after-saving vm-folder-read-only] 7 "\ Save the current message to an IMAP folder. Prefix arg COUNT means save this message and the next COUNT-1 messages. A negative COUNT means save this message and the previous COUNT-1 messages. When invoked on marked messages (via vm-next-command-uses-marks), all marked messages in the current folder are saved; other messages are ignored. The saved messages are flagged as `filed'." (save-excursion (vm-session-initialization) (vm-check-for-killed-folder) (vm-select-folder-buffer-if-possible) (let ((this-command this-command) (last-command last-command)) (list (vm-read-imap-folder-name "Save to IMAP folder: " vm-imap-server-list t) (prefix-numeric-value current-prefix-arg))))]) (provide 'vm-save)