diff options
author | Stefan Kangas <stefan@marxist.se> | 2022-06-17 11:52:20 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2022-06-17 13:12:03 +0200 |
commit | 17b3f8d56e254f8f0478ce583451f02e6034ed48 (patch) | |
tree | e4383c3435c2dfcc6d205867bb98146176a25fab /lisp/obsolete/mailpost.el | |
parent | 3eb47077d3d9e9e90ac7b9644d13c0da26c3ede8 (diff) | |
download | emacs-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.el | 101 |
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 |