
(defun vm-edit-message (&optional prefix-argument) "\
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'.

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-]." (interactive "P") (byte-code "ÂˆÑ ˆ… Ò!… qˆÓ	!…\" Ò	!?…\" Â‰ˆ…0 ÔÕpC\"ˆ‚# ˆÖ ˆƒy @×HØHƒs @×HØÂIˆÙ@!ˆÇ=ƒ\\ Ú@!‚a @ÛÇIˆÜÇÝ@ÞHÞH!\"ˆß ‚v àá!‚A@ÞHÛHpÇ
		…“ Ò	!?ƒ<â deZVÂÂ…½ ãä e\"‰…½ ãä d\"‰ˆåŽæ ˆçè!‰	ˆ@ÞHÛ	Iˆé	Š@ÞHÞHbˆêë!ˆ`)ì@!#)+ˆí	!ƒ îí	!!‚ï	!ˆðÂ!ˆebˆñòdÇ#ˆó†ô!ˆ
‰ˆõö÷ †,ø !!ˆù÷ \"ˆàú!‚@ï	!,‡" [vm-mail-buffer vm-summary-buffer nil vm-folder-read-only prefix-argument vm-message-pointer vm-flush-interval t mp edit-buf folder-buffer inhibit-quit vm-sr-clip vm-sr-min vm-sr-max vm-edit-message-mode vm-edit-message-mode-map vm-follow-summary-cursor buffer-name bufferp signal folder-read-only vm-error-if-folder-empty 2 7 vm-mark-for-display-update vm-stuff-virtual-attributes 4 vm-set-buffer-modified-p marker-buffer 0 vm-update-summary-and-mode-line message "Message has not been edited." buffer-size set-marker make-marker ((byte-code "Ä ˆ… Å	
\"ˆÆ	Ã\"ˆÆ
Ã\"‡" [vm-sr-clip vm-sr-min vm-sr-max nil widen narrow-to-region set-marker] 6)) widen generate-new-buffer "*VM message edit*" copy-to-buffer forward-line 1 vm-text-end-of get-buffer-window select-window switch-to-buffer set-buffer-modified-p search-forward "

" funcall text-mode use-local-map copy-keymap current-local-map make-sparse-keymap vm-overlay-keymap "Type C-c ESC to end edit, C-c C-] to abort with no change."] 39))

(defun vm-overlay-keymap (src-map dest-map) (byte-code "Ç ÈŽÉ	!ˆÊ
!ƒc 
GSËËÌY…_ 
H‰ˆ?†V Í!ƒO ÎÏ!!‰ˆÍ!?…G Ð	Ï!Ñ ‰#ˆÒ\"‚V Ð	Ï!#ˆS‰ˆ‚ +‚¹ ËË
A‰ˆ
…¸ 
@A‰ˆ?†¯ Í!ƒ¦ ÎÏ
@@!!‰ˆÍ!?…ž Ð	Ï
@@!Ñ ‰#ˆÒ\"‚¯ Ð	Ï
@@!#ˆ
A‰ˆ‚l *))‡" [old-local-map dest-map src-map i src-b dest-b t current-local-map ((byte-code "Á!‡" [old-local-map use-local-map] 2)) use-local-map vectorp nil 0 keymapp local-key-binding char-to-string define-key make-sparse-keymap vm-overlay-keymap] 27))

(defun vm-discard-cached-data (&optional count) "\
Discard cached information about the current message.
When VM digs information from the headers of a message, it stores it
iunternally 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-headers 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." (interactive "p") (byte-code "Ãˆ†	 Å‰ˆÆ ˆ	… Ç	!… 	qˆÈ
!…* Ç
!?…* Ã‰ˆÉ ˆÊ ˆË!…k @ÌÍ@ÌHGÃ\"Iˆ@ÎHÅÃIˆ@ÌHÏÃIˆ@ÎHÐÃIˆÑ@!ˆA‰ˆ‚5 )ˆÒ ‡" [count vm-mail-buffer vm-summary-buffer nil mlist 1 vm-follow-summary-cursor buffer-name bufferp vm-error-if-folder-empty vm-build-visible-header-alist vm-select-marked-or-prefixed-messages 3 make-vector 0 12 2 vm-mark-for-display-update vm-update-summary-and-mode-line] 13))

(defun vm-edit-message-end nil "\
End the edit of a VM mail message and copy the new version
to the message's folder." (interactive) (byte-code "Ìˆ?…
 ÍÎ!ˆÏÐ@ÑHÒH!!?… ÍÓ!ˆpÔ ƒÝ ÄŠÐ
@ÑHÑH!qˆ
@>?…> ÍÕ!ˆÖ deZVÌÌ…e ×Ø e\"‰…e ×Ø d\"‰ˆÙŽÚ ˆ
@ÑHÑHbˆÛÜ!ˆ
ÌÌ
	Ý	!ˆÞhß\"…Œ ßcˆà`á
@!\"ˆâ +ˆ
@ãHäÄIˆå
@!ˆÄ=ƒ´ æ
@!‚¹ 
@çÄIˆèÄ!ˆé ˆ
@ÑHçÌI)+ˆ
=ƒÖ ê ‚Ø ë ))‚à ìí!ˆîÌ!ˆï	!*‡" [vm-message-pointer edit-buf mp inhibit-quit t vm-message-list vm-sr-clip vm-sr-min vm-sr-max vm-next-command-uses-marks buffer-read-only vm-flush-interval nil error "This is not a VM message edit buffer." buffer-name marker-buffer 0 3 "The folder buffer for this message has been killed." buffer-modified-p "The original copy of this message has been expunged." buffer-size set-marker make-marker ((byte-code "Ä ˆ… Å	
\"ˆÆ	Ã\"ˆÆ
Ã\"‡" [vm-sr-clip vm-sr-min vm-sr-max nil widen narrow-to-region set-marker] 6)) widen forward-line 1 insert-buffer-substring /= 10 delete-region vm-text-end-of vm-discard-cached-data 2 7 vm-mark-for-display-update vm-stuff-virtual-attributes 4 vm-set-buffer-modified-p vm-clear-modification-flag-undos vm-preview-current-message vm-update-summary-and-mode-line message "No change." set-buffer-modified-p kill-buffer] 29))

(defun vm-edit-message-abort nil "\
Abort editing of a VM message, without updating the message's folder." (interactive) (byte-code "Áˆ?…
 ÂÃ!ˆÄÅ@ÆHÇH!!?… ÂÈ!ˆ@ÆHÉÁIˆÊÁ!ˆËp!ˆÌÍ!‡" [vm-message-pointer nil error "This is not a VM message edit buffer." buffer-name marker-buffer 0 3 "The folder buffer for this message has been killed." 4 set-buffer-modified-p kill-buffer message "Aborted, no change."] 8))