From: yamaoka <yamaoka>
Date: Fri, 14 Jun 2002 07:35:07 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays only when
X-Git-Tag: elmo-mark-root~84
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cf68a6f34b0890e01448dcd716a216448eb4402a;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays only when
 this command is called interactively; silence the byte-compiler.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 4dd899d..626a136 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-14  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+	* wl-draft.el (wl-draft-beginning-of-line): Set zmacs-region-stays
+	only when this command is called interactively; silence the byte-
+	compiler.
+
 2002-06-14  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
 	* wl-draft.el (wl-draft-beginning-of-line): Keep the region
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 11f02da..d5c9614 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -788,8 +788,9 @@ 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))
+  (let ((zrs 'zmacs-region-stays))
+    (when (and (interactive-p) (boundp zrs))
+      (set zrs t)))
   (if (wl-draft-point-in-header-p)
       (let* ((here (point))
 	     (bol (progn (beginning-of-line n) (point)))