# HG changeset patch
# User Noah Friedman <friedman@splode.com>
# Date 791673689 0
# Node ID ec7ba4fd36f0f2c073dde28398e89477db6603da
# Parent  8a73e71a55e30b044fe6aeadde52bd4537293164
mail-mailer-swallows-blank-line: Handle full range of legal header names as
specified by RFC822.

diff -r 8a73e71a55e3 -r ec7ba4fd36f0 lisp/mail/sendmail.el
--- 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