;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Jul 20 03:24:38 1993 ;;; from file /home/fsf/rms/e19/lisp/rmailedit.el ;;; emacs version 19.16.13. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!„ Ä „\"Å ¤Ç ÈÉ#ˆÇ ÊË#ˆÌÍÎÏ#‡" [require rmail boundp rmail-edit-map nil make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit put rmail-edit-mode mode-class special] 4) (defalias 'rmail-edit-mode #[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}"]) (defalias 'rmail-edit-current-message #[nil "À ˆÁÂ!ˆed{ÃÅÆ !ˆÇÈ!É=ƒ&ÇÊ!Ë=ƒ&ÌÍ!‡ÌÎÏ!!‡" [rmail-edit-mode make-local-variable rmail-old-text 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]) (defalias 'rmail-cease-edit #[nil "ŠdbˆhÀU„ Ácˆ\n TH`Ä“ˆ) ÇÈ !ˆÉ ˆGdeZUƒ4ed{˜„RÄÊËÌ\"ˆÍÎ!ƒR SÄIˆŠÏÐ!ˆÑ ˆ))̉‡" [10 "\n" rmail-message-vector rmail-current-message nil rmail-old-text old set-buffer-modified-p buffer-modified-p rmail-mode-1 rmail-set-attribute "edited" t boundp rmail-summary-vector rmail-widen-to-current-msgbeg #[nil "ÀyˆÁÂ!…Ã`Åyˆ`|)‡" [2 looking-at "Summary-line: " nil buffer-read-only 1] 2] rmail-show-message buffer-read-only] 3 "\ Finish editing message; switch back to Rmail proper." nil]) (defalias 'rmail-abort-edit #[nil "ed|ˆcˆÁ ‡" [rmail-old-text rmail-cease-edit] 2 "\ Abort edit of current message; restore original contents." nil])