* wl-draft.el (wl-draft-yank-from-mail-reply-buffer): Push mark

with third argument t.

* wl-vars.el (wl-biff-state-indicator-off): Changed default value
definition.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 487e974..bc5e3c3 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,11 @@
+2001-09-26  Yuuichi Teranishi  <teranisi@gohome.org>
+
+       * wl-draft.el (wl-draft-yank-from-mail-reply-buffer): Push mark
+       with third argument t.
+
+       * wl-vars.el (wl-biff-state-indicator-off): Changed default value
+       definition.
+
 2001-09-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-vars.el (wl-biff-notify-hook): Use `ding' instead of `beep'.

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 3461483..7aaf45e 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -436,7 +436,7 @@ Reply to author if WITH-ARG is non-nil."
       (goto-char (point-min))
       (wl-draft-delete-fields ignored-fields))
     (goto-char (point-max))
-    (push-mark)
+    (push-mark (point) nil t)
     (goto-char (point-min)))
   (let ((beg (point)))
     (cond (mail-citation-hook (run-hooks 'mail-citation-hook))
@@ -1288,7 +1288,8 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
   (unless (featurep 'wl)
     (require 'wl))
   (unless wl-init
-    (wl-load-profile))
+    (wl-load-profile)
+    (wl-plugged-init t))
   (wl-init 'wl-draft) ;; returns immediately if already initialized.
   (if (interactive-p)
       (setq summary-buf (wl-summary-get-buffer wl-summary-buffer-folder-name)))

diff --git a/wl/wl-vars.el b/wl/wl-vars.el
index 7c15cfd..7ce7e80 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1474,12 +1474,8 @@ every intervals specified by wl-biff-check-interval."
 (defcustom wl-biff-state-indicator-off (if (and (featurep 'xemacs)
                                                (not (featurep 'mule)))
                                           "[--]"
-                                        (decode-coding-string
-                                         ;; Japanese short hyphen
-                                         (read "\"[\e$B!>\e(B]\"")
-                                         (if (boundp 'MULE)
-                                             '*iso-2022-jp*
-                                           'iso-2022-jp)))
+                                        ;; Japanese short hyphen
+                                        "\"[\e$B!>\e(B]\"")
   "String used to show biff status OFF."
   :type 'string
   :group 'wl-highlight)