;ELC ;;; compiled by roland@churchy.gnu.ai.mit.edu on Wed Aug 10 19:16:31 1994 ;;; from file /gd/gnu/emacs/19.0/lisp/rmailedit.el ;;; emacs version 19.25.92.3. ;;; 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 "`/gd/gnu/emacs/19.0/lisp/rmailedit.el' was compiled for Emacs 19")) (byte-code "ÀÁ!ˆÂÃ!„\fÄ „\"Å ¤Ç ÈÉ#ˆÇ ÊË#ˆÌÍÎÏ#‡" [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 "À !ˆÂÄÆÇ!ƒÈÇ!‚ÈÉ! Ê ƒ)Š qˆÌ ˆ)ÍÎÏ\"‡" [use-local-map rmail-edit-map rmail-edit-mode major-mode "RMAIL Edit" mode-name boundp mode-line-modified default-value mode-line-format rmail-summary-exists rmail-summary-buffer rmail-summary-disable 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 "À ƒ Š qˆÂ ˆ)ŠdbˆhÃU„Äcˆ TH`Ç“ˆ) ÊË !ˆÌ ˆ GdeZUƒC ed{˜„bÇ ÍÎÏ\"ˆÐÑ!ƒbSÇIˆŠÒÓ!ˆÔ ˆ))ω‡" [rmail-summary-exists rmail-summary-buffer rmail-summary-enable 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 rmail-highlight-headers] 2 "\ Abort edit of current message; restore original contents." nil])