;ELC ;;; Compiled by nelhage@localhost.localdomain on Sun Dec 11 02:47:28 2005 ;;; from file /home/nelhage/Desktop/vm-7.19/vm-edit.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-edit.el' was compiled for Emacs 19 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defalias 'vm-edit-message #[(&optional prefix-argument) "\306 \210\203\307!\204\310\311!\210q\210\202! \312>\204!\310\313!\210\314 \210\315 \210\n\2034\316\317pC\"\210\202'\320 \210\321 @!\203O @\211\322H\323HJ)\204O\310\324!\210 \203h @\211\325H\326H)\205\234\327 @\330\"\210\331 \207 \212=\203s=q\210` @\211\332H\323H)Z) @\211\322H\332H)p>?@A?\203\235\307?!\204V\333 deZV\330\211BC\211D\203\301\334 e\330\223\211C\203\301\334 d\330\223B\335\216~\210\336\337\340\341 @!\342 @!#!?E\203\335\343\330!\210A@?F\211\322H\332FI\210*\344?A@\211\332H\323H)A@\211\332H\322H)#\210,?q\210\345\330!\210eb\210@\332W\203#\346\347\330\350#\210\202'@u\210G\206-\351 \210\352H\353 \"\210\354H!\210A@C>\355I\350J\356\357!\210\304\360\361!!\210\202Z?q\210K\203\221L\203\221\362 \203\221\363?!\211M\204}\364\365!\210\366 \210\202\220\212\367M!\210N\203\217\370\371M!!\210))\372?\350\373O\374D$,\207" [vm-mail-buffer major-mode vm-folder-read-only vm-message-pointer message prefix-argument 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-check-for-killed-presentation signal folder-read-only vm-error-if-folder-empty vm-virtual-message-p 4 1 "Can't edit unmirrored virtual messages." 2 7 vm-set-edited-flag-of nil vm-update-summary-and-mode-line 0 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)) generate-new-buffer format "edit of %s's note re: %s" vm-su-full-name vm-su-subject set-buffer-multibyte copy-to-buffer set-buffer-modified-p search-forward "\n\n" t text-mode set-keymap-parent current-local-map use-local-map editing run-hooks vm-edit-message-hook substitute-command-keys "Type \\[vm-edit-message-end] to end edit, \\[vm-edit-message-abort] to abort with no change." vm-multiple-frames-possible-p vm-get-buffer-window vm-goto-new-frame edit vm-set-hooks-for-frame-deletion select-window vm-warp-mouse-to-frame-maybe vm-window-frame vm-display (vm-edit-message vm-edit-message-other-frame) editing-message vm-presentation-buffer folder-buffer edit-buf offset mp #3# #2# #1# vm-fsfemacs-mule-p buf vm-edit-message-mode vm-edit-message-map vm-system-state buffer-offer-save vm-mutable-frames vm-frame-per-edit w vm-warp-mouse-to-new-frame this-command] 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"]) (defalias 'vm-edit-message-other-frame #[(&optional prefix) "\303 \203 \304\305!\210\306\211\307\n!\210*\303 \205\310 \207" [vm-frame-per-edit vm-search-other-frames prefix vm-multiple-frames-possible-p vm-goto-new-frame edit nil vm-edit-message vm-set-hooks-for-frame-deletion] 2 "\ Like vm-edit-message, but run in a newly created frame." "P"]) (defalias 'vm-discard-cached-data #[(&optional count) "\204\304\305 \210 \203\306 !\204\307\310!\210 q\210\202'\n\311>\204'\307\312!\210\313 \210\314 \210\315 \210\316!\317 !\210)\320\321\211\322\323$\210\324 \207" [count vm-mail-buffer major-mode mlist 1 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-check-for-killed-presentation vm-error-if-folder-empty vm-select-marked-or-prefixed-messages vm-discard-cached-data-internal vm-display nil (vm-discard-cached-data) (vm-discard-cached-data) vm-update-summary-and-mode-line] 5 "\ 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"]) (defalias 'vm-discard-cached-data-internal #[(mlist) "\306\307\310\"\311\n\2031\n@\211\312H\313HJ)\314 \210\315\f!\203$\316\317\"\210\211\320H\321H)\322\211\320H)\311\"\210  \211\320H\321 I\210+\311!\211\310H\323!I\210*\311\"\211\320H\324\"I\210*\311#\211\310H\320#I\210*\311$\211\312H\325$I\210*\311%\211\312H\326%I\210*&\203\235'@=\203\235\212\327 \210)\315\f!\203\250\330C!\210(\203\263\331\332 \"\210\211\333H\312HJ))\212)\203%)@\311$\211\312H\325$I\210*)@\311%\211\312H\326%I\210*)@\211\312H\334H)q\210&\203'@)@=\203\212\327 \210)\315\f!\203\330)@C!\210(\203\331\332 \"\210)A\211)\204\304*\335!\210\nA\211\204 \212\336\337 \"+\207" [m buffers-needing-thread-sort mlist message vm-thread-obarray uidl make-vector 29 0 nil 1 5 vm-garbage-collect-message vectorp vm-unthread-message t 3 23 fillarray 2 12 16 17 vm-preview-current-message vm-build-threads intern buffer-name 4 9 vm-mark-for-summary-update mapatoms #[(s) "\301\302!!q\210\303\304!\207" [s get-buffer symbol-name vm-sort-messages "thread"] 3] val vh regexp text layout flag vm-presentation-buffer vm-message-pointer vm-summary-show-threads v-list] 4]) (defalias 'vm-edit-message-end #[nil "\204\306\307!\210\310@\211\311H\312H)!\204\306\313!\210`eZdb\210h\314U\204*\314c\210\315@\211\311H\316H)ed#\210@\211\311H\316H)\317=\203\211\320\211eb\210\321 \320\322#\203n\311\224\204n\323\224b\210\3247!\203n\325 \326 |\210\202Meb\210\327\330\320\323#\210d`Zeb\2107\331\332 !\333\261\210*p89\334 \203\321~\210\2128@\211\311H\335HJ)\211\311H\312H)q\2108@\211\311H\335HJ):>\204\300\306\336!\210\337 deZV\320\211;<\211=\203\344\340 e\320\223\211<\203\344\340 d\320\223;\341\216~\2108@\211\311H\335HJ)\211\323H\311H)b\2108\320\211>`>\3429!\210`8@\211\311H\335HJ)\211\323H\343H)|\210\344 \210+\3458@\322\"\2108@\320?\211\343H\323?I\210.8@\211\311H\312H)q\2108@\211\311H\335HJ)@\211\311H\335HJ)=\203\312\346 \210p@\347\216A\203sAq\210\337 deZV\320\211BC\211D\203\227\340 e\320\223\211C\203\227\340 d\320\223B\350\216p@\351\216~\210\352 \353p!EF\354\216E\203\305\355E!\210@\211\323H\311H)b\210\320\356\357\217\210. \202\315\360 \210)\202\325\301\361!\210\3629\320\363\364$\210\365\320!\210\3669!+\207" [vm-message-pointer message pos-offset length buffer-read-only vm-content-length-search-regexp 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 re-search-forward t 0 vm-match-header vm-matched-header-start vm-matched-header-end search-forward "\n\n" " " int-to-string "\n" buffer-modified-p 5 "The original copy of this message has been expunged." 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)) insert-buffer-substring 4 vm-discard-cached-data vm-set-edited-flag-of vm-preview-current-message ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) ((byte-code "~\210\203 \n}\210 \303\211\223\210\n\303\211\223\210\303\207" [#4=#:vm-sr-clip #5=#:vm-sr-min #6=#:vm-sr-max nil] 3)) ((byte-code "p=\204\301!\203q\210\301\207" [vm-sbe-buffer buffer-name] 2)) selected-window vm-get-visible-buffer-window ((byte-code "\301 =\204 \302!\210\301\207" [osw selected-window select-window] 2)) select-window (forward-char pos-offset) ((error)) vm-update-summary-and-mode-line "No change." vm-display (vm-edit-message-end) (vm-edit-message-end reading-message startup) set-buffer-modified-p kill-buffer vm-content-length-header mp edit-buf vm-message-list #3# #2# #1# opoint buf vm-sbe-buffer vm-presentation-buffer #6# #5# #4# new-win osw] 6 "\ End the edit of a message and copy the result to its folder." nil]) (defalias 'vm-edit-message-abort #[nil "\204\303\304!\210\305@\211\306H\307HJ)\211\306H\310H)!\204\"\303\311!\210@\312\211\313H\314\nI\210*\315p\312\316\317$\210\320\312!\210\321p!\210\301\322!\207" [vm-message-pointer message buf error "This is not a VM message edit buffer." buffer-name 1 5 9 "The folder buffer for this message has been killed." nil 4 0 vm-display (vm-edit-message-abort) (vm-edit-message-abort reading-message startup) set-buffer-modified-p kill-buffer "Aborted, no change."] 6 "\ Abort the edit of a message, forgetting changes to the message." nil]) (provide 'vm-edit)