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


(byte-code "АБ!€АВ!‡" [require mailalias sendmail] 2)
#@130 The MH -post interface for `rmail-mail' to call.
To use it, include "(setq send-mail-function 'post-mail-send-it)" in
site-init.
(defalias 'post-mail-send-it #[nil "ѓ\n БВ!‚ ГДБЕ!Ж‰p	\n\fНЋЉ\nq€О €П!€db€hРU„9 Рc€eb€СТТQ!€ФХ!€ЦЧ!€Ш ѓ[ Ъe\"€eb€ЫЬЭ#ѓu `Wѓu ФТ!€‚^ Э	eb€ЫЮЭ#ѓ‰ Я!€eb€ЫаЭ#ѓ­ Љeb€ЫбЭ#)„­ Чy€вг Т±€eb€ЫдЭ#ѓЅ Фе!€ѓК Љ\fq€О €))жз!‰!€ий\"€клмно!ѓй .‚к пЖ\fЖрсЇѓъ т‚ы уC#\"€…+Љ\fq€eb€ЫфЖЭ#ѓФх!€‚ц Г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 (#$ . 540)])