[Emacs-diffs] Changes to emacs/lisp/mail/sendmail.el,v

[Chong Yidong]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      06/06/15 18:34:27

Index: mail/sendmail.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/mail/sendmail.el,v
retrieving revision 1.302
retrieving revision 1.303
diff -u -b -r1.302 -r1.303
--- mail/sendmail.el    6 Feb 2006 12:31:40 -0000       1.302
+++ mail/sendmail.el    15 Jun 2006 18:34:26 -0000      1.303
@@ -863,11 +863,14 @@
                (error "Message contains non-ASCII characters"))))
        ;; Complain about any invalid line.
        (goto-char (point-min))
-       (while (< (point) (mail-header-end))
+       (re-search-forward (regexp-quote mail-header-separator) (point-max) t)
+       (let ((header-end (or (match-beginning 0) (point-max))))
+         (goto-char (point-min))
+         (while (< (point) header-end)
          (unless (looking-at "[ \t]\\|.*:\\|$")
            (push-mark opoint)
            (error "Invalid header line (maybe a continuation line lacks 
initial whitespace)"))
-         (forward-line 1))
+           (forward-line 1)))
        (goto-char opoint)
        (run-hooks 'mail-send-hook)
        (message "Sending...")