;ELC ;;; Compiled by rms@psilocin.gnu.org on Thu Apr 30 02:49:20 1998 ;;; from file /gd/gnu/emacs/lisp/mail/mailpost.el ;;; in Emacs version 20.2.92.9 ;;; with bytecomp version 2.41 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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!\313\211p4\314\216\212\fq\210\315 \210\316 !\210db\210h\317U\2042\317c\210\320 \210\321 5\203B\322e\n\"\210eb\210\323\324\n\325#\203Z`\nW\203Z\326\327!\210\202E\325eb\210\323\330\n\325#\203k\331\n!\210eb\210\323\332\n\325#\203\215\212eb\210\323\333\n\325#)\204\215\334y\210\335\336 \327\261\210eb\210\323\337\n\325#\203\234\326\340!\210\203\251\2124q\210\315 \210))\341\342 !\211!\210\343 \344\"\210\345\346\347\350\351!\203\305)\202\306\352\3134\313\353\354\257\203\326\355\202\327\356 C#\"\210\205\2124q\210eb\210\323\357\313\325#\203\367\326\360!\210\202\350\361 \310U?\205\362\363ed{\").\207" [mail-interactive mailbuf delimline case-fold-search tembuf temfile generate-new-buffer " post-mail errors" 0 "/tmp/,rpost" " post-mail temp" nil ((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" "" 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" errbuf mail-aliases] 9 (#$ . 609)]) (provide 'mailpost)