* 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 (file)
--- 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 <ueno@unixuser.org>)
+  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 <ueno@unixuser.org>)
+  [Optional]<Not Suggest>

diff --git a/smtp.el b/smtp.el
index 1ccc0e3..75cbae0 100644 (file)
--- 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)