;ELC   
;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:47:41 2003
;;; from file /home/pot/gnu/emacs-pretest.new/lisp/mail/mailpost.el
;;; in Emacs version 21.3
;;; with bytecomp version 2.85.4.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`mailpost.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301!\210\300\302!\207" [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 "\203\n \306\307!\202 \310\311\306\312!\311\211p6\313\216\212\fq\210\314 \210\315	!\210db\210h\316U\2042 \316c\210\317 \210\320 7\203B \321e\n\"\210eb\210\322\323\n\324#\203Z `\nW\203Z \325\326!\210\202E \324eb\210\322\327\n\324#\203k \330\n!\210eb\210\322\331\n\324#\203\215 \212eb\210\322\332\n\324#)\204\215 \333y\210\334\335 \326\261\210eb\210\322\336\n\324#\203\234 \325\337!\210\203\251 \2126q\210\314 \210))\340 8\341\216\342\343!\210\344\345!*\346\347\350\351\352!\203\307 *\202\310 \353\3116\311\354\355\257\203\330 \356\202\331 \357C#\"\210\205\2126q\210eb\210\322\360\311\324#\203\371 \325\361!\210\202\352 \362\363 !?\205\364\365ed{\").\207" [mail-interactive mailbuf delimline case-fold-search tembuf temfile generate-new-buffer " post-mail errors" 0 nil " post-mail temp" ((byte-code "\302!\210\303	!\203 \304	!\210\302\207" [tembuf errbuf kill-buffer bufferp switch-to-buffer] 2)) erase-buffer insert-buffer-substring 10 mail-sendmail-undelimit-header point-marker expand-mail-aliases re-search-forward "\n\n\n*" t replace-match "\n" "^FCC:" mail-do-fcc "^From:" "^Sender:" 1 "Sender: " user-login-name "^Subject:[ 	]*\n" "" default-file-modes ((set-default-file-modes m)) set-default-file-modes 384 make-temp-file ",rpost" apply call-process append boundp post-mail-program "/usr/uci/lib/mh/post" "-nofilter" "-msgid" ("-watch") ("-nowatch") "\n\n* *" "; " zerop buffer-size error "Sending...failed to %s" errbuf mail-aliases m] 9 (#$ . 696)])
(provide 'mailpost)