* 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 (file)
--- 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 (file)
--- 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)))