;ELC   
;;; compiled by jimb@geech.gnu.ai.mit.edu on Tue Jul  6 00:22:31 1993
;;; from file /gd/gnu/emacs/19.0/lisp/vms-pmail.el
;;; emacs version 19.15.16.
;;; 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"))

(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 "\
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)." nil])
(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 "\
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." nil])
(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 "\
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." nil])
(defalias 'indicate-mail-reply-text #[nil "ebˆm„ ÀcˆÁyˆÂyˆ‚ ÃÄ!ˆeb‡" [">" 0 1 set-buffer-modified-p nil] 2 "\
Prepares received mail for re-sending by placing >'s on each line." nil])
(defalias 'insert-signature #[nil "À ˆÁ ˆÂÃÄ\"…& ÅÂÃÄ\"!ƒ ÆÂÃÄ\"!‡ÅÇ!…& ÆÇ!‡" [end-of-buffer newline vms-system-info "LOGICAL" "MAIL$TRAILER" file-attributes insert-file-contents "~/.signature"] 4 "\
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." nil])