[gnus git] branch master updated: n0-17-103-gbe37540 =1= (message-point-in-header-p): Fix last checkin to work with an empty mail-header-separator, too.

       via  be3754037e405c741b7467005f9c11a8de3314f6 (commit)
      from  1cb44808e86adccc433b6858c32449176587a713 (commit)


- Log -----------------------------------------------------------------
commit be3754037e405c741b7467005f9c11a8de3314f6
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jun 30 02:40:19 2011 +0200

    (message-point-in-header-p): Fix last checkin to work with an empty mail-header-separator, too.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b632751..4a8589f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,8 @@
 	to saying that we're not in the headers if there is no separator at
 	all.  This makes it possible to use the Message version of `M-q' in
 	buffers with no headers (bug#7987).
+	(message-point-in-header-p): Fix last checkin to work with an empty
+	mail-header-separator, too.
 
 	* auth-source.el (auth-source-netrc-saver): If the user says "don't ask
 	again, save the choice via customize.
diff --git a/lisp/message.el b/lisp/message.el
index a1823aa..0a45376 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3469,8 +3469,12 @@ Message buffers and is not meant to be called directly."
 (defun message-point-in-header-p ()
   "Return t if point is in the header."
   (save-excursion
+    (and
+     (not
+      (re-search-backward
+       (concat "^" (regexp-quote mail-header-separator) "\n") nil t))
     (re-search-forward
-     (concat "^" (regexp-quote mail-header-separator) "\n") nil t)))
+      (concat "^" (regexp-quote mail-header-separator) "\n") nil t))))
 
 (defun message-do-auto-fill ()
   "Like `do-auto-fill', but don't fill in message header."

-----------------------------------------------------------------------
Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we listed those
revisions in full, above.

Summary of changes:
 lisp/ChangeLog  |    2 ++
 lisp/message.el |    8 ++++++--
 2 files changed, 8 insertions(+), 2 deletions(-)

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "Gnus Project".

The branch, master has been updated


hooks/post-receive
-- 
Gnus Project