From: hmurata <hmurata>
Date: Sun, 16 May 2004 06:32:22 +0000 (+0000)
Subject: (wl-draft-yank-from-mail-reply-buffer): Convert to
X-Git-Tag: wl-2_11_29~7
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=3d8b4d38d75b360acc312dee1b34e26bfb1319b5;p=elisp%2Fwanderlust.git

(wl-draft-yank-from-mail-reply-buffer): Convert to
multibyte string before insert into draft buffer.
(wl-draft-create-buffer): Always enable multibyte characters for
draft buffer.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index dfd5504..23b0b00 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,5 +1,10 @@
 2004-05-16  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
+	* wl-draft.el (wl-draft-yank-from-mail-reply-buffer): Convert to
+	multibyte string before insert into draft buffer.
+	(wl-draft-create-buffer): Always enable multibyte characters for
+	draft buffer.
+
 	* Version number is increased to 2.11.28.
 
 2004-05-12  Yoichi NAKAYAMA  <yoichi@geiin.org>
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 52c3732..f376f4c 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -516,12 +516,13 @@ Reply to author if WITH-ARG is non-nil."
   (save-restriction
     (narrow-to-region (point)(point))
     (insert
-     (with-current-buffer mail-reply-buffer
-       (when decode-it
-	 (decode-mime-charset-region (point-min) (point-max)
-				     wl-mime-charset))
-       (buffer-substring-no-properties
-	(point-min) (point-max))))
+     (string-as-multibyte
+      (with-current-buffer mail-reply-buffer
+	(when decode-it
+	  (decode-mime-charset-region (point-min) (point-max)
+				      wl-mime-charset))
+	(buffer-substring-no-properties
+	 (point-min) (point-max)))))
     (when ignored-fields
       (goto-char (point-min))
       (wl-draft-delete-fields ignored-fields))
@@ -1732,6 +1733,7 @@ If KILL-WHEN-DONE is non-nil, current draft buffer is killed"
 	       (error "Invalid value for wl-draft-buffer-style"))))))
     (auto-save-mode -1)
     (wl-draft-mode)
+    (set-buffer-multibyte t)		; draft buffer is always multibyte.
     (make-local-variable 'truncate-partial-width-windows)
     (setq truncate-partial-width-windows nil)
     (setq truncate-lines wl-draft-truncate-lines)