Changeset 2788

Show
Ignore:
Timestamp:
03/23/08 22:51:51 (8 months ago)
Author:
hans
Message:

Change lisp-ecoop mail interface to use revised cl-smtp API

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/mail.lisp

    r1828 r2788  
    2222    (when cc 
    2323      (push cc recipients)) 
    24     (send-smtp *smtp-server* 
    25                (mail-address-address from) 
    26                recipients 
    27                (with-output-to-string (*standard-output*) 
    28                  (format t "Date: ~A~%" (format-date-time (get-universal-time) :mail-style t)) 
    29                  (format t "From: ~A~%" from) 
    30                  (format t "To: ~A <~A>~%" (user-full-name user) (user-email user)) 
    31                  (when cc 
    32                    (format t "Cc: ~A~%" cc)) 
    33                  (format t "Subject: ~A~%" subject) 
    34                  (format t "Content-Type: ~A; charset=utf-8~%" content-type) 
    35                  (format t "X-Mailer: BKNR Mail Version 1.0~%") 
    36                  (princ #\Newline) 
    37                  (princ text))))) 
     24    (cl-smtp:with-smtp-mail (smtp *smtp-server* (mail-address-address from) recipients) 
     25      (format smtp "Date: ~A~%" (format-date-time (get-universal-time) :mail-style t)) 
     26      (format smtp "From: ~A~%" from) 
     27      (format smtp "To: ~A <~A>~%" (user-full-name user) (user-email user)) 
     28      (when cc 
     29        (format smtp "Cc: ~A~%" cc)) 
     30      (format smtp "Subject: ~A~%" subject) 
     31      (format smtp "Content-Type: ~A; charset=utf-8~%" content-type) 
     32      (format smtp "X-Mailer: BKNR Mail Version 1.1~%") 
     33      (princ #\Newline smtp) 
     34      (princ text smtp))))