From: teranisi <teranisi>
Date: Wed, 26 Sep 2001 04:46:12 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-yank-from-mail-reply-buffer): Push mark
X-Git-Tag: wl-2_7_5~40
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=77fd7cb0a2615169f6ecfbcdb6a767c11d94abea;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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
--- 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 "\"[‐]\"")
-					  (if (boundp 'MULE)
-					      '*iso-2022-jp*
-					    'iso-2022-jp)))
+					 "\"[‐]\"")
   "String used to show biff status OFF."
   :type 'string
   :group 'wl-highlight)