comparison lisp/mail/sendmail.el @ 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 03c03462bca3
children 14c24d764568
comparison
equal deleted inserted replaced
5730:5810e7311c05 5731:d53870d31221
1 ;;; sendmail.el --- mail sending commands for Emacs. 1 ;;; sendmail.el --- mail sending commands for Emacs.
2 2
3 ;; Copyright (C) 1985, 1986, 1992, 1993 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc.
4 4
5 ;; Maintainer: FSF 5 ;; Maintainer: FSF
6 ;; Keywords: mail 6 ;; Keywords: mail
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
127 so you can edit or delete these lines.") 127 so you can edit or delete these lines.")
128 128
129 ;; Note: could use /usr/ucb/mail instead of sendmail; 129 ;; Note: could use /usr/ucb/mail instead of sendmail;
130 ;; options -t, and -v if not interactive. 130 ;; options -t, and -v if not interactive.
131 (defvar mail-mailer-swallows-blank-line 131 (defvar mail-mailer-swallows-blank-line
132 (if (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration) 132 (if (and (string-match "sparc-sun-sunos\\(\\'\\|[^5]\\)" system-configuration)
133 '(looking-at " \t") 133 (let ((buffer (get-buffer-create " *temp*")))
134 (unwind-protect
135 (save-excursion
136 (set-buffer buffer)
137 (insert-file-contents "/etc/sendmail.cf")
138 (goto-char (point-min))
139 (let ((case-fold-search nil))
140 (re-search-forward "^OR\>" nil t)))
141 (kill-buffer buffer))))
142 '(looking-at " \t"))
134 "Set this non-nil if the system's mailer runs the header and body together. 143 "Set this non-nil if the system's mailer runs the header and body together.
135 \(This problem exists on Sunos 4 when sendmail is run in remote mode.) 144 \(This problem exists on Sunos 4 when sendmail is run in remote mode.)
136 The value should be an expression to test whether the problem will 145 The value should be an expression to test whether the problem will
137 actually occur.") 146 actually occur.")
138 147