Re: compose-mail-other-window

[Katsumi Yamaoka]

>>>>> In <address@hidden> Chong Yidong wrote:

> Katsumi Yamaoka <address@hidden> writes:

>> 2007-03-15  Katsumi Yamaoka  <address@hidden>
>>
>>      * 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  <address@hidden>

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