;ELC   
;;; compiled by kwzh@hal.gnu.ai.mit.edu on Mon Apr 17 19:57:22 1995
;;; from file /gd/gnu/emacs/19.0/lisp/vms-pmail.el
;;; emacs version 19.28.90.26.
;;; 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/vms-pmail.el' was compiled for Emacs 19"))


#@293 Save current buffer and exit emacs.
If this emacs cannot be suspended, you will be prompted about modified
buffers other than the mail buffer.  BEWARE --- suspending emacs without
saving your mail buffer causes mail to abort the send (potentially useful
since the mail buffer is still here).
(defalias 'vms-pmail-save-and-exit #[nil "À ˆÁÂÃ\"ƒ Ä ˆÅÆ!‡Çp!ˆÈ ‡" [basic-save-buffer vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS" save-some-buffers kill-emacs 1 kill-buffer suspend-emacs] 3 (#$ . 488) nil])
#@213 Mark buffer as unmodified and exit emacs.
When the editor is exited without saving its buffer, VMS mail does not
send a message.  If you have other modified buffers you will be
prompted for what to do with them.
(defalias 'vms-pmail-abort #[nil "ÀÁ!„	 Â ‡Ã ˆÄÅÆ\"ƒ Ç ˆÈÉ!‡Êp!ˆË ‡" [yes-or-no-p "Really abort mail? " ding not-modified vms-system-info "LOGICAL" "DONT_SUSPEND_EMACS" save-some-buffers kill-emacs 1 kill-buffer suspend-emacs] 3 (#$ . 999) nil])
#@283 Set up file assuming use by VMS MAIL utility.
The buffer is put into text-mode, auto-save is turned off and the
following bindings are established.

\[vms-pmail-save-and-exit]	vms-pmail-save-and-exit
\[vms-pmail-abort]	vms-pmail-abort

All other emacs commands are still available.
(defalias 'vms-pmail-setup #[nil "ÀÁ!ˆÂ ˆÃÄÅ\"ÆÇ !ÈÇ !	\n\nÌ˜ƒ, Í!ˆ	PÎÏÐ !!ˆÑÒÓ\"ˆÑÔÕ\"+‡" [auto-save-mode -1 text-mode vms-system-info "LOGICAL" "SYS$SCRATCH" file-name-directory buffer-file-name file-name-nondirectory filename directory default "SYS$SCRATCH:" cd use-local-map copy-keymap current-local-map local-set-key "" vms-pmail-save-and-exit "" vms-pmail-abort] 4 (#$ . 1465) nil])
#@68 Prepares received mail for re-sending by placing >'s on each line.
(defalias 'indicate-mail-reply-text #[nil "ebˆm„ ÀcˆÁyˆÂyˆ‚ ÃÄ!ˆeb‡" [">" 0 1 set-buffer-modified-p nil] 2 (#$ . 2159) nil])
#@214 Moves to the end of the buffer and inserts a "signature" file.
First try the file indicated by environment variable MAIL$TRAILER.
If that fails, try the file "~/.signature".
If neither file exists, fails quietly.
(defalias 'insert-signature #[nil "À ˆÁ ˆÂÃÄ\"…& ÅÂÃÄ\"!ƒ ÆÂÃÄ\"!‡ÅÇ!…& ÆÇ!‡" [end-of-buffer newline vms-system-info "LOGICAL" "MAIL$TRAILER" file-attributes insert-file-contents "~/.signature"] 4 (#$ . 2360) nil])