[gnus git] branch master updated: n0-17-102-g1cb4480 =1= Tweak the function to default to saying that we're not in the headers if there is no separator at all.

       via  1cb44808e86adccc433b6858c32449176587a713 (commit)
      from  17c65cf24575f42d02f89f807375148e9a7af365 (commit)


- Log -----------------------------------------------------------------
commit 1cb44808e86adccc433b6858c32449176587a713
Author: Lars Magne Ingebrigtsen <[email protected]>
Date:   Thu Jun 30 02:35:03 2011 +0200

    Tweak the function to default 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).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 257b7e0..b632751 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2011-06-30  Lars Magne Ingebrigtsen  <[email protected]>
 
+	* message.el (message-point-in-header-p): Tweak the function to default
+	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).
+
 	* 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 ff5f619..a1823aa 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -3469,8 +3469,8 @@ 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
-    (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)))
 
 (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  |    5 +++++
 lisp/message.el |    4 ++--
 2 files changed, 7 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