Duck util-mail.

This commit is contained in:
Dominik Pantůček 2023-07-06 20:06:15 +02:00
parent 23db356dec
commit b9a563d4ac
5 changed files with 73 additions and 49 deletions

View file

@ -405,3 +405,35 @@ quoted-printable sequences.
Returns the ```str``` with all characters converted to upper case
using ```char-upcase```. Does not work with UTF-8.
## util-mail [module]
(import util-mail)
A simple wrapper module to send emails from UNIX system.
### *mailto-override* [parameter]
(define *mailto-override* (make-parameter #f))
(*mailto-override*)
(*mailto-override* email)
* ```email``` - email address string
If this parameter is non-```#f```, all outgoing emails are actually
sent to the address stored within.
### send-mail [procedure]
(send-mail body-lines
#:from (from #f)
#:to to
#:subject subject)
* ```body-lines``` - lines of the email
* ```from``` - email address from string
* ```to``` - email address to string
* ```subject``` - email subject string
Sends email using mail(1) command. The arguments ```#:to``` and
```#:subject``` are mandatory. Argument ```#:from``` is optional.

View file

@ -125,29 +125,6 @@ Returns ```#t``` if both dictionaries contain the same keys and their
values are equal according to the provided ```equality?``` predicate
which defaults to ```equal?```.
### Mail
(import util-mail)
A simple wrapper module to send emails from UNIX system.
(*mailto-override* [email])
* ```email``` - email address string
If this parameter is non-```#f```, all outgoing emails are actually
sent to the address stored within.
(send-mail body-lines [#:from from] [#:to to] [#:subject subject])
* ```body-lines``` - lines of the email
* ```from``` - email address from string
* ```to``` - email address to string
* ```subject``` - email subject string
Sends email using mail(1) command. The arguments ```#:to``` and
```#:subject``` are mandatory. Argument ```#:from``` is optional.
### Set (List)
(import util-set-list)