From: yoichi <yoichi>
Date: Fri, 17 May 2002 07:40:08 +0000 (+0000)
Subject: * wl-draft.el (wl-draft-send-mail-with-smtp): Remove staff for older FLIM.
X-Git-Tag: elmo-mark-root~115
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=300ef312d905c90da9381325acf5ab213e6e66b5;p=elisp%2Fwanderlust.git

* wl-draft.el (wl-draft-send-mail-with-smtp): Remove staff for older FLIM.
---

diff --git a/wl/ChangeLog b/wl/ChangeLog
index 3178303..be5cc7a 100644
--- a/wl/ChangeLog
+++ b/wl/ChangeLog
@@ -1,3 +1,8 @@
+2002-05-17  Yoichi NAKAYAMA  <yoichi@eken.phys.nagoya-u.ac.jp>
+
+	* wl-draft.el (wl-draft-send-mail-with-smtp): Remove staff for older
+	FLIM.
+
 2002-05-16  Tatsuya Kinoshita  <tats@iris.ne.jp>
 
 	* wl-summary.el (wl-summary-target-mark-refile-sub):
diff --git a/wl/wl-draft.el b/wl/wl-draft.el
index a132de9..a87e6af 100644
--- a/wl/wl-draft.el
+++ b/wl/wl-draft.el
@@ -1018,18 +1018,7 @@ non-nil."
 			       "$\\|^$") nil t)
 		      (point-marker)))
 	 (smtp-server
-	  (or wl-smtp-posting-server
-	      ;; Compatibility stuff for FLIM 1.12.5 or earlier.
-	      ;; They don't accept a function as the value of `smtp-server'.
-	      (if (functionp smtp-server)
-		  (funcall
-		   smtp-server
-		   sender
-		   ;; no harm..
-		   (let (wl-draft-remove-group-list-contents)
-		     (wl-draft-deduce-address-list
-		      (current-buffer) (point-min) delimline)))
-		(or smtp-server "localhost"))))
+	  (or wl-smtp-posting-server smtp-server "localhost"))
 	 (smtp-service (or wl-smtp-posting-port smtp-service))
 	 (smtp-local-domain (or smtp-local-domain wl-local-domain))
 	 (id (std11-field-body "message-id"))