From: kaoru <kaoru>
Date: Fri, 14 Jun 2002 03:07:59 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-beginning-of-line): Keep the region
X-Git-Tag: elmo-mark-root~85
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=92e98af938b3b9c83e285af8e10eb899d916deab;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-beginning-of-line): Keep the region
active in XEmacs.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 1820fe3..4dd899d 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-06-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
+
+	* wl-draft.el (wl-draft-beginning-of-line): Keep the region
+	active in XEmacs.
+
 2002-06-13  KAMO Tomoyuki  <kamo@i-manage.co.jp>
 
 	* wl-draft.el (wl-draft-beginning-of-line): Treat the header with
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index b74d455..11f02da 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -788,6 +788,8 @@ text was killed."
 (defun wl-draft-beginning-of-line (&optional n)
   "Move point to beginning of header value or to beginning of line."
   (interactive "p")
+  (when (boundp 'zmacs-region-stays)
+    (setq zmacs-region-stays t))
   (if (wl-draft-point-in-header-p)
       (let* ((here (point))
 	     (bol (progn (beginning-of-line n) (point)))