;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:57 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/rmailedit.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(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.29")))
    (error "`rmailedit.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'rmail)
#@58 List of functions to call when editing an RMAIL message.
(custom-declare-variable 'rmail-edit-mode-hook 'nil '(#$ . 642) :type 'hook :version "21.1" :group 'rmail-edit)
(byte-code "\303B\301B\304\301!\204 \305	\204( \306 \307	\n\"\210\310	\311\312#\210\310	\313\314#\210\315\316\317\320#\207" [current-load-list rmail-edit-map text-mode-map rmail-old-text boundp nil make-sparse-keymap set-keymap-parent define-key "" rmail-cease-edit "" rmail-abort-edit put rmail-edit-mode mode-class special] 4)
#@374 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.
This functions runs the normal hook `rmail-edit-mode-hook'.
\{rmail-edit-map}
(defalias 'rmail-edit-mode #[nil "\306 \210\307!\210\310\311\312\303!\203 \313\303!\202 \313\304!\314 \203) \212q\210\315 \210)\316\317!\207" [rmail-edit-map major-mode mode-name mode-line-modified mode-line-format rmail-summary-buffer text-mode use-local-map rmail-edit-mode "RMAIL Edit" boundp default-value rmail-summary-exists rmail-summary-disable run-hooks rmail-edit-mode-hook] 2 (#$ . 1158)])
(byte-code "\301B\303\301!\204\f \304\305\301\306\307#\210\302B\303\302!\204 \304\305\302\306\307#\207" [current-load-list rmail-old-pruned rmail-edit-saved-coding-system boundp nil put permanent-local t] 4)
#@36 Edit the contents of this message.
(defalias 'rmail-edit-current-message #[nil "\305\300!\210\306 \305\302!\210	\307\310!\210\311 \210\305\301!\210\n\305\303!\210ed{\312\313 \210\314\315!\316=\203; \314\317!\320=\203; \321\322!\207\321\323\324\325!\"\207" [rmail-old-pruned save-buffer-coding-system rmail-edit-saved-coding-system rmail-old-text buffer-read-only make-local-variable rmail-msg-is-pruned rmail-toggle-header 0 rmail-edit-mode nil force-mode-line-update key-binding "" rmail-cease-edit "" rmail-abort-edit message "Editing: Type C-c C-c to return to Rmail, C-c C-] to abort" "%s" substitute-command-keys "Editing: Type \\[rmail-cease-edit] to return to Rmail, \\[rmail-abort-edit] to abort"] 4 (#$ . 2161) nil])
#@54 Finish editing message; switch back to Rmail proper.
(defalias 'rmail-cease-edit #[nil "\306 \203 \212q\210\307 \210)\212db\210h\310U\204 \311c\210	\nTH`\312\223\210)\313 \210\314 \210\315 \210\316 \210\fGdeZU\203E \fed{\230\204_ \312\317\320\321\"\210\322\323!\203_ \nS\312I\210\212\324\325!\210)\212\326 \210\327\203m \330\202n \331!\210*\332\333!\210\321\211\207" [rmail-summary-buffer rmail-message-vector rmail-current-message rmail-old-text old rmail-edit-saved-coding-system rmail-summary-exists rmail-summary-enable 10 "\n" nil force-mode-line-update kill-all-local-variables rmail-mode-1 rmail-variables rmail-set-attribute "edited" t boundp rmail-summary-vector rmail-widen-to-current-msgbeg #[nil "\301y\210\302\303!\205 \304`\305y\210`|)\207" [buffer-read-only 2 looking-at "Summary-line: " nil 1] 2] rmail-show-message rmail-toggle-header 1 0 run-hooks rmail-mode-hook save-buffer-coding-system rmail-old-pruned buffer-read-only] 3 (#$ . 2902) nil])
#@59 Abort edit of current message; restore original contents.
(defalias 'rmail-abort-edit #[nil "ed|\210c\210\301 \210\302 \207" [rmail-old-text rmail-cease-edit rmail-highlight-headers] 2 (#$ . 3888) nil])