Synch with Oort Gnus.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6072d35..9391f1d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-14  Katsumi Yamaoka <yamaoka@jpl.org>
+
+       * message.el (message-beginning-of-line): Keep the region active
+       in XEmacs.  Suggested by TAKAHASHI Kaoru <kaoru@kaisei.org>.
+
 2002-06-13  Josh Huber  <huber@alum.wpi.edu>
 
        * gnus-msg.el (gnus-summary-followup): Use g-s-handle-replysign.

diff --git a/lisp/message.el b/lisp/message.el
index 8492680..0f54a4e 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -4931,6 +4931,9 @@ than 988 characters long, and if they are not, trim them until they are."
 (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)
       (let* ((here (point))
             (bol (progn (beginning-of-line n) (point)))