;;; compiled by mycroft@hal on Tue Sep 22 06:12:49 1992 ;;; from file /src/emacs-19.0/lisp/mailpost.el ;;; emacs version 19.0.427. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (byte-code "ÀÁ!ˆÀÂ!‡" [require mailalias sendmail] 2) (fset 'post-mail-send-it (make-byte-code (quote nil) "ƒ\nÁÂ!‚ ÃÄÁÅ!Ɖp \n  ÍŽŠ\nqˆÎ ˆÏ!ˆdbˆhÐU„9ÐcˆebˆÑÒÒQ!ˆÔÕ!ˆÖ×!ˆØ ƒ[Úe\"ˆebˆÛÜÝ#ƒu`WƒuÔÒ!ˆ‚^Ý ebˆÛÞÝ#ƒ‰ß!ˆebˆÛàÝ#ƒ®ŠebˆÛáÝ#)„®â×!ˆãäå Ò#ˆebˆÛæÝ#ƒ¾Ôç!ˆƒËŠ qˆÎ ˆ))èé !‰ !ˆê ë\"ˆìíîïðñ!ƒë1‚ìòÆ Æóô&ƒüõ‚ýö 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:" forward-line insert "Sender: " user-login-name "^Subject:[ ]*\n" "" write-file make-temp-name set-file-modes 384 apply call-process append list boundp post-mail-program "/usr/uci/lib/mh/post" "-nofilter" "-msgid" ("-watch") ("-nowatch") "\n\n* *" "; " buffer-size error "Sending...failed to %s" buffer-substring] 10 "\ The MH -post interface for `rmail-mail' to call. To use it, include \"(setq send-mail-function 'post-mail-send-it)\" in site-init."))