From 0ff276d789ee83b09faadbe6deeceb205431a258 Mon Sep 17 00:00:00 2001 From: shuhei-k Date: Thu, 25 Jun 1998 19:13:42 +0000 Subject: [PATCH] Back to use smtp.el. --- lisp/message.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/lisp/message.el b/lisp/message.el index fa713c0..f1b6f5d 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -33,7 +33,7 @@ (eval-when-compile (require 'cl) - (require 'std10) + (require 'smtp) ) (require 'mailheader) @@ -2242,8 +2242,8 @@ to find out how to use this." (message-narrow-to-headers) (setq recipients ;; XXX: Should be replaced by better one. - (std10-deduce-address-list (current-buffer) - (point-min) (point-max))) + (smtp-deduce-address-list (current-buffer) + (point-min) (point-max))) ;; Remove BCC lines. (message-remove-header "bcc")) ;; replace the header delimiter with a blank line. @@ -2254,8 +2254,9 @@ to find out how to use this." (backward-char 1) (run-hooks 'message-send-mail-hook) (if recipients - (let ((result (std10-send-buffer user-mail-address recipients - nil t))) + (let ((result (smtp-via-smtp user-mail-address + recipients + (current-buffer)))) (unless (eq result t) (error "Sending failed; " result))) (error "Sending failed; no recipients")))) -- 1.7.10.4