;ELC ;;; compiled by jwz@thalidomide on Sat May 21 06:29:53 1994 ;;; from file /th/jwz/emacs19/lisp/vm/vm-edit.el ;;; emacs version 19.10 Lucid (beta25). ;;; bytecomp version 2.24; 26-Apr-94. ;;; 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.")) (fset 'vm-edit-message #[(&optional prefix-argument) " !! q pC\"t  @! @HHJ! @HH< @HI @!= @! @HI  ` @HHZ @HHp!- deZV҉ eғ dғ~ @! @!#!@HI@HH@HH#,q!ebW#u, /!@C 1!!!q9D$," [vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-folder-read-only signal folder-read-only vm-error-if-folder-empty vm-virtual-message-p vm-message-pointer 4 1 "Can't edit unmirrored virtual messages." prefix-argument 2 7 nil vm-mark-for-summary-update vm-flush-interval t vm-stuff-virtual-attributes vm-update-summary-and-mode-line 0 folder-buffer edit-buf offset mp 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)) generate-new-buffer format "edit of %s's note re: %s" vm-su-full-name vm-su-subject copy-to-buffer set-buffer-modified-p search-forward "\n\n" vm-edit-message-mode text-mode use-local-map vm-edit-message-map editing vm-system-state run-hooks vm-edit-message-hook message substitute-command-keys "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change." vm-display (vm-edit-message vm-edit-message-other-frame) this-command editing-message] 7 "\ Edit the current message. Prefix arg means mark as unedited instead. If editing, the current message is copied into a temporary buffer, and this buffer is selected for editing. The major mode of this buffer is controlled by the variable vm-edit-message-mode. The hooks specified in vm-edit-message-hook are run just prior to returning control to the user for editing. Use C-c ESC when you have finished editing the message. The message will be inserted into its folder replacing the old version of the message. If you don't want your edited version of the message to replace the original, use C-c C-] and the edit will be aborted." "P"]) (fset 'vm-edit-message-other-frame #[(&optional prefix) " \n!" [vm-goto-new-frame vm-edit-message prefix] 2 "\ Like vm-edit-message, but run in a newly created frame." "P"]) (fset 'vm-discard-cached-data #[(&optional count) " !! q !   @HHJ  \" H\" C!! HHJ@HHq@C!!A\\* HI HI HI ! A **ʉ$ " [count 1 vm-follow-summary-cursor vm-mail-buffer buffer-name error "Folder buffer has been killed." vm-check-for-killed-summary vm-error-if-folder-empty vm-select-marked-or-prefixed-messages nil m mlist 5 vm-thread-obarray vm-unthread-message t fillarray 3 vm-build-threads vm-summary-show-threads vm-sort-messages "thread" 4 v-list 9 0 2 12 vm-mark-for-summary-update vm-display (vm-discard-cached-data) (vm-discard-cached-data) vm-update-summary-and-mode-line] 6 "\ Discard cached information about the current message. When VM gathers information from the headers of a message, it stores it internally for future reference. This command causes VM to forget this information, and VM will be forced to search the headers of the message again for these data. VM will also have to decide again which headers should be displayed and which should not. Therefore this command is useful if you change the value of vm-visible-headers or vm-invisible-header-regexp in the midst of a VM session. Numeric prefix argument N means to discard data from the current message plus the next N-1 messages. A negative N means discard data from the current message and the previous N-1 messages. When invoked on marked messages (via vm-next-command-uses-marks), data is discarded only from the marked messages in the current folder." "p"]) (fset 'vm-edit-message-end #[nil "!@HH!!dbhUc@HHed#@HH=ˉ  eb#Ĕєb! |beb#d`Z eb !ڱ*p [~@HHJHHq@HHJ>! deZVˉ\"#$ e˓# d˓\"~@HHJHHbˉ '`'!`@HHJHH| +@HI@!-=@!@HI! @HI,@HHq@HHJ@HHJ= )!$!!*" [vm-message-pointer error "This is not a VM message edit buffer." buffer-name 1 9 "The folder buffer for this message has been killed." 10 vm-munge-message-separators 7 From_-with-Content-Length nil length buffer-read-only re-search-forward vm-content-length-search-regexp t 0 vm-match-header vm-content-length-header vm-matched-header-start vm-matched-header-end search-forward "\n\n" " " int-to-string "\n" mp edit-buf buffer-modified-p 5 vm-message-list "The original copy of this message has been expunged." 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)) opoint insert-buffer-substring 4 vm-discard-cached-data 2 vm-mark-for-summary-update vm-flush-interval vm-stuff-virtual-attributes vm-set-buffer-modified-p vm-clear-modification-flag-undos vm-preview-current-message vm-update-summary-and-mode-line message "No change." vm-display (vm-edit-message-end) (vm-edit-message-end reading-message startup) set-buffer-modified-p kill-buffer] 6 "\ End the edit of a message and copy the result to its folder." nil]) (fset 'vm-edit-message-abort #[nil "!@HHJHH!!@HIp$!p!!" [vm-message-pointer error "This is not a VM message edit buffer." buffer-name 1 5 9 "The folder buffer for this message has been killed." 4 0 nil vm-display (vm-edit-message-abort) (vm-edit-message-abort reading-message startup) set-buffer-modified-p kill-buffer message "Aborted, no change."] 5 "\ Abort the edit of a message, forgetting changes to the message." nil])