;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Fri Jan 26 01:55:52 1996 ;;; from file /home/fsf/rms/e19/lisp/rmailedit.el ;;; emacs version 19.30.90.1. ;;; 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.29"))) (error "`rmailedit.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÃ!„\fÄà B „&Æ ¤È ÉÊ#ˆÈ ËÌ#ˆÍÎÏÐ#‡" [require rmail boundp rmail-edit-map nil current-load-list make-sparse-keymap text-mode-map define-key "" rmail-cease-edit "" rmail-abort-edit put rmail-edit-mode mode-class special] 4) #@308 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-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 (#$ . 726)]) #@36 Edit the contents of this message. (defalias 'rmail-edit-current-message #[nil "À ˆÁÂ!ˆed{ÃÅ ˆÆÇ!È=ƒ$ÆÉ!Ê=ƒ$ËÌ!‡ËÍÎÏ!\"‡" [rmail-edit-mode make-local-variable rmail-old-text nil buffer-read-only 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 (#$ . 1385) nil]) #@54 Finish editing message; switch back to Rmail proper. (defalias 'rmail-cease-edit #[nil "À ƒ Š qˆÂ ˆ)ŠdbˆhÃU„Äcˆ TH`Ç“ˆ) Ê ˆË ˆ GdeZUƒA ed{˜„`Ç ÌÍÎ\"ˆÏÐ!ƒ`SÇIˆŠÑÒ!ˆÓ ˆ))Ή‡" [rmail-summary-exists rmail-summary-buffer rmail-summary-enable 10 "\n" rmail-message-vector rmail-current-message nil rmail-old-text old force-mode-line-update 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 (#$ . 1875) nil]) #@59 Abort edit of current message; restore original contents. (defalias 'rmail-abort-edit #[nil "ed|ˆcˆÁ ˆÂ ‡" [rmail-old-text rmail-cease-edit rmail-highlight-headers] 2 (#$ . 2480) nil])