Mercurial > emacs
changeset 5731:d53870d31221
(mail-mailer-swallows-blank-line): New variable.
(sendmail-send-it): Add extra newline if appropriate.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 02 Feb 1994 00:06:43 +0000 |
| parents | 5810e7311c05 |
| children | d97df1629181 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 12 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Feb 02 00:05:42 1994 +0000 +++ b/lisp/mail/sendmail.el Wed Feb 02 00:06:43 1994 +0000 @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -;; Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -129,8 +129,17 @@ ;; Note: could use /usr/ucb/mail instead of sendmail; ;; options -t, and -v if not interactive. (defvar mail-mailer-swallows-blank-line - (if (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) - '(looking-at " \t") + (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) + (let ((buffer (get-buffer-create " *temp*"))) + (unwind-protect + (save-excursion + (set-buffer buffer) + (insert-file-contents "/etc/sendmail.cf") + (goto-char (point-min)) + (let ((case-fold-search nil)) + (re-search-forward "^OR\>" nil t))) + (kill-buffer buffer)))) + '(looking-at " \t")) "Set this non-nil if the system's mailer runs the header and body together. \(This problem exists on Sunos 4 when sendmail is run in remote mode.) The value should be an expression to test whether the problem will