;ELC   
;;; compiled by cthomp@willow on Thu Aug 12 00:49:42 1993
;;; from file /era/era-0.80/editor/lisp/utils/mailpost.el
;;; emacs version 19.8 (beta8) Lucid.
;;; bytecomp version 2.15; 14-jul-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."))

(fset 'post-mail-send-it #[nil "«…БВ!ЄЃГДБЕ!Ж‰p	\nНЋЉ\nq€О €П!€db€hРU¬ѓРc€eb€СТТQ!€ФХ!€ЦЧ!€Ш «†Ъe\"€eb€ЫЬЭ#«Њ`W«†ФТ!€ЄlЭ	eb€ЫЮЭ#«…Я!€eb€ЫаЭ#«—Љeb€ЫбЭ#)¬ЉЧy€вг Т±€eb€ЫдЭ#«„Фе!€«‰Љq€О €))жз!‰!€ий\"€клмно!«„.ЄЃпЖЖрсЇ«ѓтЄЃуC#\"€­ЈЉq€eb€ЫфЖЭ#«†Фх!€Єsц ГU?­†чшed{\").‡" [mail-interactive generate-new-buffer " post-mail errors" 0 "/tmp/,rpost" " post-mail temp" nil mailbuf delimline case-fold-search tembuf temfile errbuf ((byte-code "А	!€В!«„Д!€А‡" [kill-buffer tembuf bufferp errbuf switch-to-buffer] 2)) erase-buffer insert-buffer-substring 10 search-forward "\n" mail-header-separator replace-match "\n\n" backward-char 1 point-marker mail-aliases expand-mail-aliases re-search-forward "\n\n\n*" t "^FCC:" mail-do-fcc "^From:" "^Sender:" "Sender: " user-login-name "^Subject:[ 	]*\n" "" write-file make-temp-name set-file-modes 384 apply call-process append boundp post-mail-program "/usr/uci/lib/mh/post" "-nofilter" "-msgid" ("-watch") ("-nowatch") "\n\n* *" "; " buffer-size error "Sending...failed to %s"] 9 "\
the MH -post interface for rmail-mail to call.
to use it, include (setq send-mail-function 'post-mail-send-it) in site-init."])