* message.el (message-beginning-of-line): New variable.

(message-beginning-of-line): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d3fb30..64faee8 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,11 +1,16 @@
+2002-10-12  Simon Josefsson  <jas@extundo.com>
+
+       * message.el (message-beginning-of-line): New variable.
+       (message-beginning-of-line): Use it.
+
 2002-10-11  Ted Zlatanov <tzz@lifelogs.com>
 
        * spam.el: more compilation fixes for BBDB
 
-        * spam-stat.el added code from Alex Schroeder <alex@gnu.org>
-        (spam-stat-reduce-size): Interactive.
-        (spam-stat-reset): New function.
-        (spam-stat-save): Interactive.
+       * spam-stat.el added code from Alex Schroeder <alex@gnu.org>
+       (spam-stat-reduce-size): Interactive.
+       (spam-stat-reset): New function.
+       (spam-stat-save): Interactive.
 
 2002-10-11  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/message.el b/lisp/message.el
index 510c46f..c79c2f0 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4728,13 +4728,19 @@ than 988 characters long, and if they are not, trim them until they are."
       (forward-line 2)))
    (sit-for 0)))
 
+(defcustom message-beginning-of-line t
+  "Whether C-a 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."
   (interactive "p")
   (let ((zrs 'zmacs-region-stays))
     (when (and (interactive-p) (boundp zrs))
       (set zrs t)))
-  (if (message-point-in-header-p)
+  (if (and message-beginning-of-line
+          (message-point-in-header-p))
       (let* ((here (point))
             (bol (progn (beginning-of-line n) (point)))
             (eol (gnus-point-at-eol))