(message-beginning-of-line): Docstring improvement.

Suggested by Michael R. Wolf <MichaelRunningWolf@att.net>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c855c35..c21cf43 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2003-06-08  Jesper Harder  <harder@ifa.au.dk>
+
+       * message.el (message-beginning-of-line): Docstring improvement.
+       Suggested by Michael R. Wolf <MichaelRunningWolf@att.net>
+

 2003-06-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-make-menu-bar): Removed ["Add buttons"
 2003-06-07  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus-sum.el (gnus-summary-make-menu-bar): Removed ["Add buttons"

diff --git a/lisp/message.el b/lisp/message.el
index 2a077e1..3938599 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5085,8 +5085,17 @@ than 988 characters long, and if they are not, trim them until they are."
   :type 'boolean)
 
 (defun message-beginning-of-line (&optional n)
   :type 'boolean)
 
 (defun message-beginning-of-line (&optional n)

-  "Move point to beginning of header value.
-If the option `message-beginning-of-line' is non-nil move to
+  "Move point to beginning of header value or to beginning of line.
+The prefix argument N is passed directly to `beginning-of-line'.
+
+This command is identical to `beginning-of-line' if point is
+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."
   (interactive "p")
   (let ((zrs 'zmacs-region-stays))
 beginning of line."
   (interactive "p")
   (let ((zrs 'zmacs-region-stays))