From: yamaoka <yamaoka>
Date: Sat, 29 Jan 2005 00:51:25 +0000 (+0000)
Subject: Synch to No Gnus 200501282354.
X-Git-Tag: t-gnus-6_17_4-quimby-~579
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3934ea48b580e53906a84a91147132a2570ccedb;p=elisp%2Fgnus.git-

Synch to No Gnus 200501282354.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4cc60a3..28ced87 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-28  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* message.el (message-beginning-of-line): Change the behavior when
+	invoked between BOL and : so that it first moves backward.
+
 2005-01-28  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus-art.el (gnus-article-setup-buffer): Kill and re-create the
@@ -159,8 +164,7 @@
 
 	* mm-bodies.el (mm-body-encoding): Don't permit 7-bit to be used
 	when mm-use-ultra-safe-encoding is enabled (e.g., for PGP/MIME)
-	and we have trailing white space.  Reported by Werner Koch
-	<wk@gnupg.org>.
+	and we have trailing white space.  Reported by Werner Koch <wk@gnupg.org>.
 
 2004-12-17  Kim F. Storm  <storm@cua.dk>
 
@@ -309,8 +313,8 @@
 
 2004-12-13  Katsumi Yamaoka  <yamaoka@jpl.org>
 
-	* gnus-group.el (gnus-group-make-rss-group): Use
-	gnus-group-make-group instead of gnus-group-unsubscribe-group.
+	* gnus-group.el (gnus-group-make-rss-group):
+	Use gnus-group-make-group instead of gnus-group-unsubscribe-group.
 
 	* gnus-start.el (gnus-setup-news): Honor user's setting to
 	gnus-message-archive-method.  Suggested by Lute Kamstra
diff --git a/lisp/message.el b/lisp/message.el
index 2d6a8ae..7cc3a31 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5970,10 +5970,10 @@ outside the message header or if the option `message-beginning-of-line'
 is nil.
 
 If point is in the message header and on a (non-continued) header
-line, move point to the beginning of the header value.  If point
-is already there, move point to beginning of line.  Therefore,
-repeated calls will toggle point between beginning of field and
-beginning of line."
+line, move point to the beginning of the header value or the beginning of line,
+whichever is closer.  If point is already at beginning of line, move point to
+beginning of header value.  Therefore, repeated calls will toggle point
+between beginning of field and beginning of line."
   (interactive "p")
   (let ((zrs 'zmacs-region-stays))
     (when (and (interactive-p) (boundp zrs))
@@ -5984,9 +5984,9 @@ beginning of line."
 	     (bol (progn (beginning-of-line n) (point)))
 	     (eol (point-at-eol))
 	     (eoh (re-search-forward ": *" eol t)))
-	(if (or (not eoh) (equal here eoh))
-	    (goto-char bol)
-	  (goto-char eoh)))
+	(goto-char
+	 (if (and eoh (or (< eoh here) (= bol here)))
+	     eoh bol)))
     (beginning-of-line n)))
 
 (defun message-buffer-name (type &optional to group)
diff --git a/texi/ChangeLog b/texi/ChangeLog
index de3b244..0cc3e59 100644
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,3 +1,8 @@
+2005-01-27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+	* gnus.texi: Some edits based on comments from David Abrahams.
+	Bump version numbers.
+
 2005-01-24  Katsumi Yamaoka  <yamaoka@jpl.org>
 
 	* gnus.texi (RSS): Fix the keystroke.