;ELC   
;;; compiled by jwz@thalidomide on Fri Dec 31 02:07:00 1993
;;; from file /th/jwz/emacs19/lisp/rmail/rmailedit.el
;;; emacs version 19.9 Lucid (beta9).
;;; bytecomp version 2.22; 22-dec-93.
;;; 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 set-keymap-parent text-mode-map set-keymap-name define-key "" rmail-cease-edit "" rmail-abort-edit put rmail-edit-mode mode-class special] 4)
(fset '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}"])
(fset '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])
(fset 'rmail-cease-edit #[nil "ٹdbˆhہU¬ƒءcˆ\nTH`ؤ“ˆ)اب !ˆة ˆGdeZU«ˆed{ک¬‌ؤتثج\"ˆحخ!«گ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])
(fset 'rmail-abort-edit #[nil "ed|ˆcˆء ‡" [rmail-old-text rmail-cease-edit] 2 "\
Abort edit of current message; restore original contents." nil])