1 ;;; mailpost.el --- RMAIL coupler to /usr/uci/post mailer
3 ;; This is in the public domain
4 ;; since Delp distributed it without a copyright notice in 1986.
6 ;; Author: Gary Delp <delp@huey.Udel.Edu>
8 ;; Created: 13 Jan 1986
13 ;; Yet another mail interface. this for the rmail system to provide
14 ;; the missing sendmail interface on systems without /usr/lib/sendmail,
15 ;; but with /usr/uci/post.
22 ;; (setq send-mail-function 'post-mail-send-it)
24 (defun post-mail-send-it ()
25 "The MH -post interface for `rmail-mail' to call.
26 To use it, include \"(setq send-mail-function 'post-mail-send-it)\" in
28 (let ((errbuf (if mail-interactive
29 (generate-new-buffer " post-mail errors")
31 (temfile "/tmp/,rpost")
32 (tembuf (generate-new-buffer " post-mail temp"))
33 (case-fold-search nil)
35 (mailbuf (current-buffer)))
40 (insert-buffer-substring mailbuf)
41 (goto-char (point-max))
42 ;; require one newline at the end.
43 (or (= (preceding-char) ?\n)
45 ;; Change header-delimiter to be what post-mail expects.
46 (mail-sendmail-undelimit-header)
47 (setq delimline (point-marker))
49 (expand-mail-aliases (point-min) delimline))
50 (goto-char (point-min))
51 ;; ignore any blank lines in the header
52 (while (and (re-search-forward "\n\n\n*" delimline t)
53 (< (point) delimline))
55 ;; Find and handle any FCC fields.
56 (let ((case-fold-search t))
57 (goto-char (point-min))
58 (if (re-search-forward "^FCC:" delimline t)
59 (mail-do-fcc delimline))
60 ;; If there is a From and no Sender, put it a Sender.
61 (goto-char (point-min))
62 (and (re-search-forward "^From:" delimline t)
64 (goto-char (point-min))
65 (re-search-forward "^Sender:" delimline t)))
68 (insert "Sender: " (user-login-name) "\n")))
69 ;; don't send out a blank subject line
70 (goto-char (point-min))
71 (if (re-search-forward "^Subject:[ \t]*\n" delimline t)
77 (write-file (setq temfile (make-temp-name temfile)))
78 (set-file-modes temfile 384)
80 (append (list (if (boundp 'post-mail-program)
82 "/usr/uci/lib/mh/post")
85 (if mail-interactive '("-watch") '("-nowatch"))
90 (goto-char (point-min))
91 (while (re-search-forward "\n\n* *" nil t)
93 (if (not (zerop (buffer-size)))
94 (error "Sending...failed to %s"
95 (buffer-substring (point-min) (point-max)))))))
98 (switch-to-buffer errbuf)))))
102 ;;; mailpost.el ends here