Changeset 4346 for trunk/thirdparty/cl-smtp

Timestamp:

04/01/09 17:21:11 (17 months ago)

Author:

hans

Message:

Somewhat obscure fix for sending attachments in certain firewalled
environment. Supplied by Russ Tyndall.

Files:

• trunk/thirdparty/cl-smtp/attachments.lisp (modified) (2 diffs)

trunk/thirdparty/cl-smtp/attachments.lisp

@@ -77 +77 @@
    :content-type (format nil "~a;~%~tname=\"~a\"" (lookup-mime-type name) name)
    :content-transfer-encoding "base64"
-   :content-disposition (format nil "attachment; filename=\"~a\"" name)))
+   :content-disposition (format nil "inline; filename=\"~a\"" name)))
 
 (defun send-end-marker (sock boundary)
@@ -92 +92 @@
                                    &key 
                                    (buffer-size 256) ;; in KB
-                                   (wrap-at-column 70))
+                                   (wrap-at-column 72))
   "Encodes the file contents given by file-in, which can be of any form appropriate to with-open-file, and write the base-64 encoded version to sock, which is a socket.
 
 Buffer-size, given in KB, controls how much of the file is processed and written to the socket at one time. A buffer-size of 0, processes the file all at once, regardless of its size. One will have to weigh the speed vs, memory consuption risks when chosing which way is best. 
 
-Wrap-at-column controls where the encode string is divided for line breaks." 
+Wrap-at-column controls where the encode string is divided for line breaks."
     (when (probe-file file-in)
       ;;-- open filein ---------