;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 23:32:57 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/mailpost.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")) (byte-code "ÀÁ!ˆÀÂ!‡" [require mailalias sendmail] 2) (defalias 'post-mail-send-it #[nil "ƒ\nÁÂ!‚ ÃÄÁÅ!Ɖp \n  ÍŽŠ\nqˆÎ ˆÏ!ˆdbˆhÐU„9ÐcˆebˆÑÒÒQ!ˆÔÕ!ˆÖ×!ˆØ ƒ[Úe\"ˆebˆÛÜÝ#ƒu`WƒuÔÒ!ˆ‚^Ý ebˆÛÞÝ#ƒ‰ß!ˆebˆÛàÝ#ƒ­ŠebˆÛáÝ#)„­×yˆâã Ò±ˆebˆÛäÝ#ƒ½Ôå!ˆƒÊŠ qˆÎ ˆ))æç !‰ !ˆè é\"ˆêëìíî!ƒé.‚êïÆ Æðñ¯ƒúò‚ûó C#\"ˆ…+Š qˆ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 "\ The MH -post interface for `rmail-mail' to call. To use it, include \"(setq send-mail-function 'post-mail-send-it)\" in site-init."])