From 300ef312d905c90da9381325acf5ab213e6e66b5 Mon Sep 17 00:00:00 2001 From: yoichi Date: Fri, 17 May 2002 07:40:08 +0000 Subject: [PATCH] * wl-draft.el (wl-draft-send-mail-with-smtp): Remove staff for older FLIM. --- wl/ChangeLog | 5 +++++ wl/wl-draft.el | 13 +------------ 2 files changed, 6 insertions(+), 12 deletions(-) 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 + + * wl-draft.el (wl-draft-send-mail-with-smtp): Remove staff for older + FLIM. + 2002-05-16 Tatsuya Kinoshita * 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")) -- 1.7.10.4