From: Glenn Morris Date: Thu, 12 Apr 2012 23:47:13 +0000 (-0400) Subject: Obsolete lisp/mail/mailpost.el X-Git-Tag: emacs-24.2.90~471^2~364^2~18 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=82f289a4efd29a38d6fa185dffa95663a432bf56;p=emacs.git Obsolete lisp/mail/mailpost.el --- diff --git a/etc/NEWS b/etc/NEWS index 31201b3135a..e2013cdb16f 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -43,7 +43,9 @@ been adding them there, put them somewhere else, eg site-lisp. ** erc will look up server/channel names via auth-source and use the channel keys found, if any. -** Obsolete modes +** Obsolete packages: + +*** mailpost.el *** mouse-sel.el diff --git a/lisp/ChangeLog b/lisp/ChangeLog index adddc5cd1f0..35caa29f7e1 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-04-12 Glenn Morris + + * mail/mailpost.el: Move to obsolete/. + 2012-04-12 Drew Adams * imenu.el (imenu--generic-function): Ignore invisible definitions diff --git a/lisp/mail/mailpost.el b/lisp/mail/mailpost.el deleted file mode 100644 index 7c4bea830d8..00000000000 --- a/lisp/mail/mailpost.el +++ /dev/null @@ -1,105 +0,0 @@ -;;; mailpost.el --- RMAIL coupler to /usr/uci/post mailer - -;; 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 -;; Maintainer: FSF -;; Created: 13 Jan 1986 -;; Keywords: mail - -;;; 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)))) - (let ((m (default-file-modes))) - (unwind-protect - (progn - (set-default-file-modes 384) - (setq temfile (make-temp-file ",rpost"))) - (set-default-file-modes m))) - (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 diff --git a/lisp/obsolete/mailpost.el b/lisp/obsolete/mailpost.el new file mode 100644 index 00000000000..158523e8ef2 --- /dev/null +++ b/lisp/obsolete/mailpost.el @@ -0,0 +1,106 @@ +;;; mailpost.el --- RMAIL coupler to /usr/uci/post mailer + +;; 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 +;; Maintainer: FSF +;; Created: 13 Jan 1986 +;; Keywords: mail +;; Obsolete-since: 24.2 + +;;; 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)))) + (let ((m (default-file-modes))) + (unwind-protect + (progn + (set-default-file-modes 384) + (setq temfile (make-temp-file ",rpost"))) + (set-default-file-modes m))) + (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