4.3BSD/usr/contrib/emacs/lisp/rmailedit.elc

(require (quote rmail))

(defvar rmail-edit-map nil)

(if rmail-edit-map nil (setq rmail-edit-map (copy-keymap text-mode-map)) (define-key rmail-edit-map "" (quote rmail-cease-edit)) (define-key rmail-edit-map "" (quote rmail-abort-edit)))

(defun rmail-edit-mode nil "\
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}" (byte-code "Å!ˆÆ‰ˆÇ‰ˆ‰ˆÈÉÊ\"‡" [rmail-edit-map major-mode mode-name mode-line-format default-mode-line-format use-local-map rmail-edit-mode "RMAIL Edit" run-hooks text-mode-hook rmail-edit-mode-hook] 4))

(defun rmail-edit-current-message nil "\
Edit the contents of this message." (interactive) (byte-code "ˆà ˆÄÀ!ˆÅed\"‰ˆ
‰ˆÆÇ !ˆÈÉ!Ê=…&ÈË!Ì=ƒ/ÍÎ!‚4ÍÏÐ!!‡" [rmail-old-text buffer-read-only nil rmail-edit-mode make-local-variable buffer-substring 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"] 11))

(defun rmail-cease-edit nil "\
Finish editing message; switch back to Rmail proper." (interactive) (byte-code "ÈŠdbˆÆhÇ\"ƒÈc‚ÈÉ	TH`\")ˆÊË !ˆÌ ˆÍÂ!…9
	SÃIˆŠÎÏ!ˆÐ )ˆ
‰‡" [rmail-message-vector rmail-current-message rmail-summary-vector nil buffer-read-only t /= 10 "
" set-marker set-buffer-modified-p buffer-modified-p rmail-mode-1 boundp rmail-widen-to-current-msgbeg (lambda nil (byte-code "ÂÃ!ˆÄÅ!ƒ	Æ`ÂÇ!ˆ`\")‚Á‡" [buffer-read-only nil forward-line 2 looking-at "Summary-line: " delete-region 1] 6)) rmail-show-message] 10))

(defun rmail-abort-edit nil "\
Abort edit of current message; restore original contents." (interactive) (byte-code "ÁˆÂed\"ˆcˆÃ ‡" [rmail-old-text nil delete-region rmail-cease-edit] 3))