Mercurial > emacs
changeset 10624:ec7ba4fd36f0
mail-mailer-swallows-blank-line: Handle full range of legal header names as
specified by RFC822.
| author | Noah Friedman <friedman@splode.com> |
|---|---|
| date | Wed, 01 Feb 1995 21:21:29 +0000 |
| parents | 8a73e71a55e3 |
| children | 4d93473e25b9 |
| files | lisp/mail/sendmail.el |
| diffstat | 1 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mail/sendmail.el Wed Feb 01 11:08:17 1995 +0000 +++ b/lisp/mail/sendmail.el Wed Feb 01 21:21:29 1995 +0000 @@ -1,6 +1,6 @@ ;;; sendmail.el --- mail sending commands for Emacs. -;; Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1985, 1986, 1992, 1993, 1994, 1995 Free Software Foundation, Inc. ;; Maintainer: FSF ;; Keywords: mail @@ -170,7 +170,11 @@ (let ((case-fold-search nil)) (re-search-forward "^OR\\>" nil t))) (kill-buffer buffer)))) - '(looking-at "[ \t]\\|[-a-zA-Z]+:")) + ;; According to RFC822, "The field-name must be composed of printable + ;; ASCII characters (i.e. characters that have decimal values between + ;; 33 and 126, except colon)", i.e. any chars except ctl chars, + ;; space, or colon. + '(looking-at "[ \t]\\|[][!\"#$%&'()*+,-./0-9;<=>?@A-Z\\\\^_`a-z{|}~]+:")) "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