From: yoichi <yoichi>
Date: Fri, 8 Nov 2002 05:34:11 +0000 (+0000)
Subject: * wl-draft.el (wl-user-agent-compose): Set wl-draft-buffer-style
X-Git-Tag: wl-2_11_1~61
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=6ae98c975663506c74c2fc9d04e0a37faa7d8bae;p=elisp%2Fwanderlust.git

* 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
--- 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
--- 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)