;;; compiled by mycroft@hal on Tue Sep 22 06:14:40 1992
;;; from file /src/emacs-19.0/lisp/rmailedit.el
;;; emacs version 19.0.427.
;;; bytecomp version FSF 2.08
;;; optimization is on.

(byte-code "ÀÁ!ˆÂÃ!„ Ä„$ ÅÆ A\"ÈÉÊ#ˆÈËÌ#ˆÍÎÏÐ#‡" [require rmail boundp rmail-edit-map nil nconc make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit put rmail-edit-mode mode-class special] 4)
(fset 'rmail-edit-mode (make-byte-code (quote nil) "À	!ˆÂÄÆÇ!ƒ ÈÇ!‚ ÈÉ!	ÊËÌ\"‡" [use-local-map rmail-edit-map rmail-edit-mode major-mode "RMAIL Edit" mode-name boundp mode-line-modified default-value mode-line-format run-hooks text-mode-hook rmail-edit-mode-hook] 3 "\
Major mode for editing the contents of an RMAIL message.
The editing commands are the same as in Text mode, together with two commands
to return to regular RMAIL:
  *  rmail-abort-edit cancels the changes
     you have made and returns to RMAIL
  *  rmail-cease-edit makes them permanent.
\\{rmail-edit-map}"))
(fset 'rmail-edit-current-message (make-byte-code (quote nil) "À ˆÁÂ!ˆÃed\"ÄÆÇ !ˆÈÉ!Ê=ƒ' ÈË!Ì=ƒ' ÍÎ!‡ÍÏÐ!!‡" [rmail-edit-mode make-local-variable rmail-old-text buffer-substring nil buffer-read-only set-buffer-modified-p buffer-modified-p key-binding "" rmail-cease-edit "" rmail-abort-edit message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort" substitute-command-keys "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"] 3 "\
Edit the contents of this message." nil))
(fset 'rmail-cease-edit (make-byte-code (quote nil) "ŠdbˆhÀU„ ÁcˆÂTH`\"ˆ)ÇÈ !ˆÉ ˆGdeZUƒ6 ÊËed\"\"„T ÌÍÎÏ\"ˆÐÑ!ƒT SÌIˆŠÒÓ!ˆÔ ˆ))Ï‰‡" [10 "\n" set-marker rmail-message-vector rmail-current-message rmail-old-text old set-buffer-modified-p buffer-modified-p rmail-mode-1 string= buffer-substring nil rmail-set-attribute "edited" t boundp rmail-summary-vector rmail-widen-to-current-msgbeg (lambda nil (byte-code "ÀÁ!ˆÂÃ!… ÄÆ`ÀÇ!ˆ`\")‡" [forward-line 2 looking-at "Summary-line: " nil buffer-read-only delete-region 1] 4)) rmail-show-message buffer-read-only] 5 "\
Finish editing message; switch back to Rmail proper." nil))
(fset 'rmail-abort-edit (make-byte-code (quote nil) "Àed\"ˆ	cˆÂ ‡" [delete-region rmail-old-text rmail-cease-edit] 3 "\
Abort edit of current message; restore original contents." nil))