From: ueno Date: Thu, 21 Dec 2000 03:28:53 +0000 (+0000) Subject: * smtp.el (smtp-send-buffer): Add DOC. X-Git-Tag: flim-1_14_1-pre1~10 X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=783e426749bb5fa12f4f42da581fa76fe72bb15c;p=elisp%2Fflim.git * smtp.el (smtp-send-buffer): Add DOC. (smtp-via-smtp): Add DOC. * FLIM-API.en (QMTP): Remove section. (smtp-send-buffer): Add description. (smtp-via-smtp): Likewise. --- diff --git a/FLIM-API.en b/FLIM-API.en index 0338d5c..1705407 100644 --- a/FLIM-API.en +++ b/FLIM-API.en @@ -895,17 +895,15 @@ If BOUNDARY is not nil, it is used as message header separator. ** Features [Function] smtp-send-buffer (sender recipients buffer) - (This description will be written by Daiki Ueno ) + Send a message. + SENDER is an envelope sender address. + RECIPIENTS is a list of envelope recipient addresses. + BUFFER may be a buffer or a buffer name which contains mail message. -* QMTP - -** How to use - -(require 'qmtp) - + [Suggest] -** Features +[Function] smtp-via-smtp (sender recipients buffer) + Like `smtp-send-buffer', but sucks in any errors. -[Function] qmtp-send-buffer (sender recipients buffer) - (This description will be written by Daiki Ueno ) + [Optional] diff --git a/smtp.el b/smtp.el index 1ccc0e3..75cbae0 100644 --- a/smtp.el +++ b/smtp.el @@ -249,6 +249,7 @@ of the host to connect to. SERVICE is name of the service desired." ;;;###autoload (defun smtp-via-smtp (sender recipients buffer) + "Like `smtp-send-buffer', but sucks in any errors." (condition-case nil (progn (smtp-send-buffer sender recipients buffer) @@ -259,6 +260,10 @@ of the host to connect to. SERVICE is name of the service desired." ;;;###autoload (defun smtp-send-buffer (sender recipients buffer) + "Send a message. +SENDER is an envelope sender address. +RECIPIENTS is a list of envelope recipient addresses. +BUFFER may be a buffer or a buffer name which contains mail message." (let ((server (if (functionp smtp-server) (funcall smtp-server sender recipients)