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

 with third argument t.
(wl-draft): Set first argument for wl-plugged-init as t.

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

diff --git a/wl/ChangeLog b/wl/ChangeLog
index c4d5c36..81a5715 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,8 +1,17 @@
+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-draft): Set first argument for wl-plugged-init as t.
+
+       * wl-vars.el (wl-biff-state-indicator-off): Fixed default value
+       definition.
+
 2001-09-26  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * wl-vars.el: Tabify.
        (wl-biff-notify-hook): Use `ding' instead of `beep'.
- 
+
        * wl-draft.el (wl-draft-send): Fixed docstring and confirm
        message.
 

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 3eb007a..c2bf23e 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -437,7 +437,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))
@@ -1318,7 +1318,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
     (wl-load-profile)
     (wl-folder-init)
     (elmo-init)
-    (wl-plugged-init))
+    (wl-plugged-init t))
   (wl-init) ; 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 6dc7de3..83bcb39 100644 (file)
--- a/wl/wl-vars.el
+++ b/wl/wl-vars.el
@@ -1520,12 +1520,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)))
+                                        "\"[\e$B!>\e(B]\"")
   "String used to show biff status OFF."
   :type 'string
   :group 'wl-highlight)