* wl-draft.el (wl-user-agent-compose): Set wl-draft-buffer-style

as `keep' unless switch-function.

diff --git a/wl/ChangeLog b/wl/ChangeLog
index d0f38de..051c7ce 100644 (file)
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-11-08  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+       * wl-draft.el (wl-user-agent-compose): Set wl-draft-buffer-style
+       as `keep' unless switch-function.
+
 2002-11-07  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
 
        * wl-draft.el (wl-draft-create-buffer): Rewrite the part to hide

diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index 38f691b..77de35a 100644 (file)
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -2400,6 +2400,8 @@ been implemented yet.  Partial support for SWITCH-FUNCTION now supported."
 
   (unless (featurep 'wl)
     (require 'wl))
+  (or switch-function
+      (setq switch-function 'keep))
   ;; protect these -- to and subject get bound at some point, so it looks
   ;; to be necessary to protect the values used w/in
   (let ((wl-user-agent-headers-and-body-alist other-headers)