<div dir="ltr">Hello,<br><br>I've found another small issue:<br>in READ-FROM-SMTP the last line  should read ...(append lines (list response))<br>otherwise the lines are lost on multiline replies<br><br>Here's the diff for this fix together with the previous one (with encodings)<br>
<br>? .clbuild-skip-update<br>? ~cl-smtp.diff<br>Index: cl-smtp.lisp<br>===================================================================<br>RCS file: /project/cl-smtp/cvsroot/cl-smtp/cl-smtp.lisp,v<br>retrieving revision 1.20<br>
diff -r1.20 cl-smtp.lisp<br>289,301c289,300<br><            (setf stream <br><                  #+allegro (socket:make-ssl-client-stream stream)<br><                  #-allegro<br><                  (let ((s (flexi-streams:flexi-stream-stream stream)))<br>
<                    (cl+ssl:make-ssl-client-stream <br><                     (cl+ssl:stream-fd s)<br><                     :close-callback (lambda () (close s)))))<br><            #-allegro<br><            (setf stream (flexi-streams:make-flexi-stream <br>
<                          stream<br><                          :external-format <br><                          (flexi-streams:make-external-format <br><                           :latin-1 :eol-style :lf)))))<br>
---<br>>            (let ((external-format (flexi-streams:flexi-stream-external-format stream)))<br>>              (setf stream <br>>                    #+allegro (socket:make-ssl-client-stream stream)<br>>                    #-allegro<br>
>                    (let ((s (flexi-streams:flexi-stream-stream stream)))<br>>                      (cl+ssl:make-ssl-client-stream <br>>                       (cl+ssl:stream-fd s)<br>>                       :close-callback (lambda () (close s)))))<br>
>              #-allegro<br>>              (setf stream (flexi-streams:make-flexi-stream <br>>                            stream<br>>                            :external-format external-format)))))<br>490c489<br>
<     (values response-code response lines))))<br>---<br>>     (values response-code response (append lines (list response))))))<br><br></div>