From: Jesper Harder <harder@ifa.au.dk>
Date: Sat, 7 Jun 2003 00:03:45 +0000 (+0000)
Subject: (message-beginning-of-line): Docstring improvement.
X-Git-Url: http://cgit.sxemacs.org/?a=commitdiff_plain;h=31685eecad3a4f01de35487469af0826c0d4b292;p=gnus

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f8a6f3e90..c6fec2144 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2003-06-07  Jesper Harder  <harder@ifa.au.dk>
+
+	* message.el (message-beginning-of-line): Docstring improvement.
+
 2003-06-06  Jesper Harder  <harder@ifa.au.dk>
 
 	* gnus-srvr.el (gnus-browse-foreign-server): Parse garbage NNTP
diff --git a/lisp/message.el b/lisp/message.el
index ac4d563c2..2a077e1c9 100644
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -5079,12 +5079,15 @@ than 988 characters long, and if they are not, trim them until they are."
    (sit-for 0)))
 
 (defcustom message-beginning-of-line t
-  "Whether C-a goes to beginning of header values."
+  "Whether \\<message-mode-map>\\[message-beginning-of-line]\
+ goes to beginning of header values."
   :group 'message-buffers
   :type 'boolean)
 
 (defun message-beginning-of-line (&optional n)
-  "Move point to beginning of header value or to beginning of line."
+  "Move point to beginning of header value.
+If the option `message-beginning-of-line' is non-nil move to
+beginning of line."
   (interactive "p")
   (let ((zrs 'zmacs-region-stays))
     (when (and (interactive-p) (boundp zrs))