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