;ELC ;;; compiled by jwz@thalidomide on Sat Apr 16 17:49:38 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-save.el ;;; emacs version 19.10 Lucid (beta15). ;;; 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 "MM" [vm-match-data #[nil " @ @\nBB Ap\n*" [(9 8 7 6 5 4 3 2 1 0) nil list index] 4] vm-auto-select-folder #[(mp auto-folder-alist) "" [error-data (byte-code "" [match (byte-code " @\n@@\"\n@A @@ \") @A: @A\"  !q~ c \"\"! @A!:\"r\", A\nA+" [nil tuple-list alist header auto-folder-alist vm-get-header-contents mp vm-auto-folder-case-fold-search case-fold-search string-match throw match vm-match-data match-data get-buffer-create " *vm-auto-folder*" buf result erase-buffer store-match-data mapcar #[(n) " “" [n make-marker nil] 3] #[(n) "T" [n] 1] eval vm-auto-select-folder] 7)] 2) ((error (byte-code " !\"" [error "error processing vm-auto-folder-alist: %s" prin1-to-string error-data] 4)))] 3]] 2) (fset 'vm-auto-archive-messages #[(&optional arg) "!!q !\n ̎ =!ȉ!@HH@HH\" @HH #! !!!\nT\n\n\"=A%.\nU!\nU檁#*" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty message "Archiving..." nil 0 archived auto-folder ((byte-code " \n\" " [intern buffer-name vm-buffers-needing-display-update vm-update-summary-and-mode-line] 3)) last-command vm-next-command-uses-marks vm-select-marked-or-prefixed-messages vm-message-list vm-last-save-folder vm-move-after-deleting stop-point done vm-message-pointer vm-last 2 3 vm-auto-select-folder vm-auto-folder-alist arg y-or-n-p format "Save message %s in folder %s? " 1 vm-save-message vm-delete-after-archiving vm-delete-message "%d archived, still working..." "No messages archived" "%d message%s archived" "" "s"] 5 "\ Save all unfiled messages that auto-match a folder via vm-auto-folder-alist to their appropriate folders. Deleted message 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"]) (fset 'vm-save-message #[(folder &optional count) "\n !! q $  !\n!)t\n!\n!\n\"!!\n!\n\" ! =\n!!\"\n!*\n!$\n!&@HH=\n\"\n!++8U\n!\"!\")@HHJHHq deZV123 e2 d1~\"$HH=HHHH\n%9@!HH#@HH\nHH%\n#\"=\n?@A!BR\"HHHCH\n%\nD!\"qEFGpC\"H deZVIJK eJ dIL~db$HH=MHHHHHH#9@!HH#@HH\nHH%p#\"=p?@A!BR\"MHHHHHCH#pD!\")NO=PTPQ .RHSHT\" T U A,)֊qNO= V WXWYZ [\"\\ U )t]^ U_`!$t]a U_`\n$- bcd !)" [nil unexpanded-folder folder vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display (vm-save-message) (vm-save-message) count 1 expand-file-name vm-folder-directory default-directory vm-confirm-new-folders file-exists-p vm-visit-when-saving 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 0 target-type folder-buffer m mlist t enable-local-variables inhibit-local-variables find-file-noselect vm-check-folder-types vm-get-folder-type vm-default-folder-type 7 unknown "Folder %s's type is unrecognized" file-attributes attrs vm-write-string vm-folder-header 5 9 buffer-size vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) vm-stuff-attributes write-region quiet vm-convert-folder-types vm-virtual-message-p "Folder type mismatch: %s, %s" "Message %s type mismatches folder %s" vm-leading-message-separator From_-with-Content-Length vm-content-length-header " " vm-su-byte-count "\n" 4 vm-trailing-message-separator vm-folder-read-only signal folder-read-only buffer-read-only vm-sr-max vm-sr-min vm-sr-clip ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) insert-buffer-substring major-mode vm-mode vm-messages-not-on-disk vm-clear-modification-flag-undos 2 3 vm-set-filed-flag vm-update-summary-and-mode-line vm-assimilate-new-messages vm-message-pointer vm-message-list vm-need-summary-pointer-update intern vm-buffers-needing-display-update vm-preview-current-message message "%d message%s saved to buffer %s" "s" "" "%d message%s saved to %s" vm-last-save-folder vm-delete-after-saving vm-delete-message] 7 "\ 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'." (byte-code "  !! q  \n\" )   !)ӏ\"##,!D" [last-command this-command vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-auto-select-folder vm-message-pointer vm-auto-folder-alist vm-last-save-folder vm-folder-directory default-directory dir default file-directory-p nil (byte-code "\nÉ %" [read-file-name "Save in folder: " dir nil default] 6) ((wrong-number-of-arguments (read-file-name "Save in folder: " default))) read-file-name format "Save in folder: (default %s) " "Save in folder: " prefix-numeric-value current-prefix-arg] 5)]) (fset 'vm-save-message-sans-headers #[(file &optional count) "!!q lj$\n\n !  ! \"\n!lj= ! ! !)@HHJHHq deZVlj eǓ dǓގ~!HH %!HH$%q& deZVlj'() eǓ( dǓ'~dbHH%$#.\nHH\" A,l)\nU!#\nU # 4+" [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-display nil (vm-save-message-sans-headers) (vm-save-message-sans-headers) count 1 expand-file-name file vm-visit-when-saving vm-get-file-buffer "File %s is being visited, cannot save." vm-select-marked-or-prefixed-messages file-buffer m mlist t find-file-noselect 5 9 buffer-size vm-sr-max vm-sr-min vm-sr-clip make-marker ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) write-region vm-text-of 0 4 quiet end start buffer-read-only vm-sr-max vm-sr-min vm-sr-clip ((byte-code "~ \n} É\nÉÇ" [vm-sr-clip vm-sr-min vm-sr-max nil] 3)) insert-buffer-substring 2 vm-set-written-flag vm-update-summary-and-mode-line message "Message%s written to buffer %s" "s" "" "Message%s written to %s" vm-last-written-file] 7 "\ Save the current message to a file, without its header section. If the file already exists, the message will be appended to it. Prefix arg COUNT means save the next COUNT messages. A negative COUNT means save the previous COUNT. 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 `written'. This command should NOT be used to save message to mail folders; use vm-save-message instead (normally bound to `s')." (byte-code "  !! q\"$!*D" [last-command this-command vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." read-file-name vm-last-written-file format "Write text to file: (default %s) " "Write text to file: " nil prefix-numeric-value current-prefix-arg] 5)]) (fset 'vm-pipe-message-to-command #[(command prefix-arg) "!!q !  ==!@C q @HHJHHq~HHbʚ`HH}ܚ!HH}ޚ`!}`HH}  = ed &*Aq U$ʉ$," [vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty command vm-last-pipe-command get-buffer-create "*Shell Command Output*" nil pop-up-windows vm-mutable-windows t last-command vm-next-command-uses-marks vm-select-marked-or-prefixed-messages 0 vm-message-pointer mlist m buffer erase-buffer 1 5 9 prefix-arg 4 (4) vm-text-of (16) call-process-region shell-file-name "sh" "-c" buffer-size vm-display (vm-pipe-message-to-command) (vm-pipe-message-to-command) (vm-pipe-message-to-command) (vm-pipe-message-to-command)] 10 "\ Run shell command with the some or all 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. 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." (byte-code "  !! q \"\n*D" [last-command this-command vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." read-string "Pipe to command: " vm-last-pipe-command current-prefix-arg] 3)])