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

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