[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: compose-mail-other-window
From: |
Katsumi Yamaoka |
Subject: |
Re: compose-mail-other-window |
Date: |
Mon, 28 May 2007 12:06:15 +0900 |
User-agent: |
Gnus/5.110007 (No Gnus v0.7) Emacs/22.1.50 (gnu/linux) |
>>>>> 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.