summaryrefslogtreecommitdiff
path: root/lisp/obsolete/mailpost.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-06-17 11:52:20 +0200
committerStefan Kangas <stefan@marxist.se>2022-06-17 13:12:03 +0200
commit17b3f8d56e254f8f0478ce583451f02e6034ed48 (patch)
treee4383c3435c2dfcc6d205867bb98146176a25fab /lisp/obsolete/mailpost.el
parent3eb47077d3d9e9e90ac7b9644d13c0da26c3ede8 (diff)
downloademacs-17b3f8d56e254f8f0478ce583451f02e6034ed48.tar.gz
Delete most libraries obsolete since 24.1 and 24.3
Emacs 24.3 was released 10 years ago. * lisp/obsolete/abbrevlist.el: * lisp/obsolete/assoc.el: * lisp/obsolete/complete.el: * lisp/obsolete/cust-print.el: * lisp/obsolete/erc-hecomplete.el: * lisp/obsolete/mailpost.el: * lisp/obsolete/mouse-sel.el: * lisp/obsolete/old-emacs-lock.el: * lisp/obsolete/patcomp.el: * lisp/obsolete/pc-select.el: * lisp/obsolete/s-region.el: Delete files. These libraries have been obsolete since Emacs 24.1 or 24.3. (Bug#50999) * etc/NEWS: Announce their deletion. * lisp/minibuffer.el (minibuffer-confirm-exit-commands): * lisp/textmodes/rst.el: Remove references to above obsolete libraries.
Diffstat (limited to 'lisp/obsolete/mailpost.el')
-rw-r--r--lisp/obsolete/mailpost.el101
1 files changed, 0 insertions, 101 deletions
diff --git a/lisp/obsolete/mailpost.el b/lisp/obsolete/mailpost.el
deleted file mode 100644
index 5b3a76e2f79..00000000000
--- a/lisp/obsolete/mailpost.el
+++ /dev/null
@@ -1,101 +0,0 @@
-;;; mailpost.el --- RMAIL coupler to /usr/uci/post mailer -*- lexical-binding: t; -*-
-
-;; This is in the public domain
-;; since Delp distributed it in 1986 without a copyright notice.
-
-;; This file is part of GNU Emacs.
-
-;; Author: Gary Delp <delp@huey.Udel.Edu>
-;; Maintainer: emacs-devel@gnu.org
-;; Created: 13 Jan 1986
-;; Keywords: mail
-;; Obsolete-since: 24.3
-
-;;; Commentary:
-
-;; Yet another mail interface. this for the rmail system to provide
-;; the missing sendmail interface on systems without /usr/lib/sendmail,
-;; but with /usr/uci/post.
-
-;;; Code:
-
-(require 'mailalias)
-(require 'sendmail)
-
-;; (setq send-mail-function 'post-mail-send-it)
-
-(defun post-mail-send-it ()
- "The MH -post interface for `rmail-mail' to call.
-To use it, include \"(setq send-mail-function \\='post-mail-send-it)\" in
-site-init."
- (let ((errbuf (if mail-interactive
- (generate-new-buffer " post-mail errors")
- 0))
- temfile
- (tembuf (generate-new-buffer " post-mail temp"))
- (case-fold-search nil)
- delimline
- (mailbuf (current-buffer)))
- (unwind-protect
- (with-current-buffer tembuf
- (erase-buffer)
- (insert-buffer-substring mailbuf)
- (goto-char (point-max))
- ;; require one newline at the end.
- (or (= (preceding-char) ?\n)
- (insert ?\n))
- ;; Change header-delimiter to be what post-mail expects.
- (mail-sendmail-undelimit-header)
- (setq delimline (point-marker))
- (if mail-aliases
- (expand-mail-aliases (point-min) delimline))
- (goto-char (point-min))
- ;; ignore any blank lines in the header
- (while (and (re-search-forward "\n\n\n*" delimline t)
- (< (point) delimline))
- (replace-match "\n"))
- ;; Find and handle any Fcc fields.
- (let ((case-fold-search t))
- (goto-char (point-min))
- (if (re-search-forward "^Fcc:" delimline t)
- (mail-do-fcc delimline))
- ;; If there is a From and no Sender, put it a Sender.
- (goto-char (point-min))
- (and (re-search-forward "^From:" delimline t)
- (not (save-excursion
- (goto-char (point-min))
- (re-search-forward "^Sender:" delimline t)))
- (progn
- (forward-line 1)
- (insert "Sender: " (user-login-name) "\n")))
- ;; don't send out a blank subject line
- (goto-char (point-min))
- (if (re-search-forward "^Subject:[ \t]*\n" delimline t)
- (replace-match ""))
- (if mail-interactive
- (with-current-buffer errbuf
- (erase-buffer))))
- (with-file-modes 384 (setq temfile (make-temp-file ",rpost")))
- (apply #'call-process
- (append (list (if (boundp 'post-mail-program)
- post-mail-program
- "/usr/uci/lib/mh/post")
- nil errbuf nil
- "-nofilter" "-msgid")
- (if mail-interactive '("-watch") '("-nowatch"))
- (list temfile)))
- (if mail-interactive
- (with-current-buffer errbuf
- (goto-char (point-min))
- (while (re-search-forward "\n\n* *" nil t)
- (replace-match "; "))
- (if (not (zerop (buffer-size)))
- (error "Sending...failed to %s"
- (buffer-substring (point-min) (point-max)))))))
- (kill-buffer tembuf)
- (if (bufferp errbuf)
- (switch-to-buffer errbuf)))))
-
-(provide 'mailpost)
-
-;;; mailpost.el ends here