(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 (file)
--- 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 (file)
--- 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)