Re: mail-header-separator starting with whitespace fails

[Katsumi Yamaoka <yamaoka@jpl.org>]

On Tue, 13 May 2014 09:31:04 -0700, Russ Allbery wrote:
> (setq mail-header-separator (concat (make-string 39 ? ) "."))

I tried this, confirmed it causes a mail corruption, and found
at least one cause.  Could you try replacing the function definition
of `rfc822-goto-eoh' with this?  (I.e., eval this form?)

--8<---------------cut here---------------start------------->8---
(defun rfc822-goto-eoh ()
  "If the buffer starts with a mail header, move point to the header's end.
Otherwise, moves to `point-min'.
The end of the header is the start of the next line, if there is one,
else the end of the last line.  This function obeys RFC822."
  (goto-char (point-min))
  (when (re-search-forward
	 (concat "^" (regexp-quote mail-header-separator) "\n\\|"
		 "^\\([:\n]\\|[^: \t\n]+[ \t\n]\\)")
	 nil 'move)
    (goto-char (match-beginning 0))))
--8<---------------cut here---------------end--------------->8---

This function is used by `smtpmail-send-it' by way of
`mail-sendmail-undelimit-header' to delete the separator, but
the original one doesn't respect `mail-header-separator'.

But I'm not quite sure that it is a cause of your problem, since
those functions seem not to have been modified for years.  Didn't
you use a separator that does not begin with a SPC, like this?

.                                       .