Skip to content
Snippets Groups Projects
Commit 2260ecf3 authored by Kilian M. Haemmerle's avatar Kilian M. Haemmerle :speech_balloon:
Browse files

Fix: subsitute rfc5321 with rfc5322

Now it is write-rfc5322-message instead of
write-rfc5321-message.
parent f24bf9eb
Branches master
No related tags found
No related merge requests found
# CL-SMTP - A simple common lisp smtp client.
## Features
* It should comply with [RFC 5321](https://datatracker.ietf.org/doc/html/rfc5321) and [RFC 7504](https://datatracker.ietf.org/doc/html/rfc7504). All non-conforming behaviour is considered a bug.
* It should comply with [RFC 5321](https://datatracker.ietf.org/doc/html/rfc5321), [RFC 5322](https://datatracker.ietf.org/doc/html/rfc5322), and [RFC 7504](https://datatracker.ietf.org/doc/html/rfc7504). All non-conforming behaviour is considered a bug.
* Works on *ACL*, *SBCL*, *CMUCL*, *OPENMCL*, *LISPWORKS*, *CLISP* and *ECL*.
* support for send attachments, thanks Brian Sorg for the implementation
* authentication support for PLAIN and LOGIN authentication method
......@@ -90,16 +90,16 @@ arguments:
keywords:
* `external-format` (Symbol): default :utf-8
### write-rfc5321-message
### write-rfc5322-message
```common-lisp
(write-rfc5321-message stream from to subject message
(write-rfc5322-message stream from to subject message
&key cc reply-to extra-headers
html-message display-name
attachments buffer-size
external-format)
```
Writes a [RFC 5321](https://datatracker.ietf.org/doc/html/rfc5321) compatible email to the stream.
Writes a [RFC 5322](https://datatracker.ietf.org/doc/html/rfc5322) compatible email to the stream.
For arguments see the `cl-smtp:send-email` documentation.
......
......@@ -274,7 +274,7 @@ header is generated at all.")
:ssl ssl
:local-hostname local-hostname
:external-format external-format)
(write-rfc5321-message stream from to subject message
(write-rfc5322-message stream from to subject message
:cc cc :reply-to reply-to
:extra-headers extra-headers
:html-message html-message
......@@ -464,7 +464,7 @@ header is generated at all.")
:multipart-type "alternative"))
(t nil)))
(defun write-rfc5321-message (stream from to subject message
(defun write-rfc5322-message (stream from to subject message
&key cc reply-to extra-headers html-message
display-name attachments buffer-size
(external-format :utf-8))
......@@ -563,9 +563,9 @@ header is generated at all.")
&key cc reply-to extra-headers html-message
display-name attachments buffer-size
(external-format :utf-8))
"Deprecated function. Please change to write-rfc5321-message."
(warn "Please use `write-rfc5321-message` instead of `write-rfc8822-message`.")
(write-rfc5321-message stream from to subject message
"Deprecated function. Please change to write-rfc5322-message."
(warn "Please use `write-rfc5322-message` instead of `write-rfc8822-message`.")
(write-rfc5322-message stream from to subject message
:cc cc :reply-to reply-to :extra-headers extra-headers
:html-message html-message :display-name display-name
:attachments attachments :buffer-size buffer-size
......
......@@ -52,7 +52,7 @@
#:attachment-mime-type
#:rfc2045-q-encode-string
#:rfc2231-encode-string
#:write-rfc5321-message
#:write-rfc5322-message
#:write-rfc8822-message ;; deprecated
))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment