Re: compose-mail-other-window

[Katsumi Yamaoka <yamaoka@jpl.org>]

>>>>> In <87wsytekd0.fsf@stupidchicken.com> Chong Yidong wrote:

> Katsumi Yamaoka <yamaoka@jpl.org> writes:

>> 2007-03-15  Katsumi Yamaoka  <yamaoka@jpl.org>
>>
>> 	* message.el (message-generate-new-buffers):
>> [...]
>> 	(message-mail): Prefer `switch-function' if it is given;
>>
>> It requires running `message-mode' further.  I've fixed it in
>> both the trunk and the v5-10 branch of the Gnus CVS repository.
>> I think this change is worth merging to not only the Emacs trunk
>> but also the EMACS_22_BASE branch.

> I checked it, and it looks good.  I checked it into the EMACS_22_BASE
> branch.  Thanks.

> (I assumed the automagic syncing between Gnus CVS and Emacs CVS HEAD
> will take care of the trunk; is that right?)

Thank you very much for this.  Could you merge another fix that
I made recently to the EMACS_22_BASE branch, too?   The discussion
is here:

http://news.gmane.org/group/gmane.emacs.gnus.general/thread=64667/force_load=t

And this is the patch:

2007-05-24  Katsumi Yamaoka  <yamaoka@jpl.org>

	* message.el (message-narrow-to-headers-or-head): Ignore
	mail-header-separator in the body.

--8<---------------cut here---------------start------------->8---
*** message.el~	Mon May 28 03:03:46 2007
--- message.el	Mon May 28 03:05:06 2007
***************
*** 2225,2238 ****
    (widen)
    (narrow-to-region
     (goto-char (point-min))
!    (cond
!     ((re-search-forward
!       (concat "^" (regexp-quote mail-header-separator) "\n") nil t)
!      (match-beginning 0))
!     ((search-forward "\n\n" nil t)
!      (1- (point)))
!     (t
!      (point-max))))
    (goto-char (point-min)))
  
  (defun message-news-p ()
--- 2225,2236 ----
    (widen)
    (narrow-to-region
     (goto-char (point-min))
!    (if (re-search-forward (concat "\\(\n\\)\n\\|^\\("
! 				  (regexp-quote mail-header-separator)
! 				  "\n\\)")
! 			  nil t)
!        (or (match-end 1) (match-beginning 2))
!      (point-max)))
    (goto-char (point-min)))
  
  (defun message-news-p ()
--8<---------------cut here---------------end--------------->8---

Thanks in advance.