From: yamaoka <yamaoka>
Date: Fri, 14 Jun 2002 07:34:47 +0000 (+0000)
Subject: Synch with Oort Gnus.
X-Git-Tag: t-gnus-6_15_8-00-quimby~56
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=79fd3fa80029b41d2abb840277e238a39b5b24d3;p=elisp%2Fgnus.git-

Synch with Oort Gnus.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6072d35..9391f1d 100644
--- 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
--- 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)))