From: teranisi <teranisi>
Date: Tue, 2 Sep 2003 14:28:30 +0000 (+0000)
Subject: * wl-mime.el (wl-draft-preview-message): Use actual value for attributes;
X-Git-Tag: wl-2_11_10~4
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=077f1c10570faafe809a16da7d28f488d9ea3d56;p=elisp%2Fwanderlust.git

* wl-mime.el (wl-draft-preview-message): Use actual value for attributes;
Fix for small window.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 8b03a16..42f578a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2003-09-02  Yuuichi Teranishi  <teranisi@gohome.org>
+
+	* wl-mime.el (wl-draft-preview-message): Use actual value for
+	attributes; Fix for small window.
+
 2003-08-28  Hiroya Murata  <lapis-lazuli@pop06.odn.ne.jp>
 
 	* wl-refile.el (wl-refile-get-field-value): Call
diff --git a/wl/wl-mime.el b/wl/wl-mime.el
index ef80d00..f20d965 100644
--- a/wl/wl-mime.el
+++ b/wl/wl-mime.el
@@ -148,6 +148,12 @@ It calls following-method selected from variable
   (interactive)
   (let* (wl-recipients
 	 (orig-buffer (current-buffer))
+	 (wl-envelope-from (or wl-envelope-from
+			       (wl-address-header-extract-address wl-from)))
+	 (wl-smtp-posting-server
+	  (or wl-smtp-posting-server (progn (require 'smtp) smtp-server)
+	      "localhost"))
+	 (wl-smtp-posting-port (or wl-smtp-posting-port smtp-service))
 	 (current-point (point))
 	 (config-exec-flag wl-draft-config-exec-flag)
 	 (parent-folder wl-draft-parent-folder)
@@ -207,7 +213,7 @@ It calls following-method selected from variable
 				wl-draft-preview-attributes-buffer-name)))))
     (if (not wl-draft-preview-attributes)
 	(message (concat "Recipients: " wl-recipients))
-;      (ignore-errors ; in case when the window is too small
+      (ignore-errors ; in case when the window is too small
 	(let* ((cur-win (selected-window))
 	       (size (min
 		      (- (window-height cur-win)
@@ -238,7 +244,7 @@ It calls following-method selected from variable
 			"\n"))
 	      (goto-char (point-min))
 	      (wl-highlight-headers)))
-	  (select-window cur-win)))));)
+	  (select-window cur-win))))))
 
 (defalias 'wl-draft-caesar-region  'mule-caesar-region)