Re: mail-header-separator starting with whitespace fails

[Russ Allbery <eagle@eyrie.org>]

Katsumi Yamaoka <yamaoka@jpl.org> writes:
> 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?)

> (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))))

> 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'.

Sorry about the delay in verifying this.  That change does indeed fix my
problem.  Thank you!

> 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?

> .                                       .

No, the mail-header-separator setting I was using had been unchanged since
I started using Gnus back in 1994.

I was previously using the Gnus included in Emacs 23.4.  Something must
have changed from that version to Emacs 24.3 that caused this corruption,
although I'm not sure what.

-- 
Russ Allbery (eagle@eyrie.org)              <http://www.eyrie.org/~eagle/>