Changeset 2807

Show
Ignore:
Timestamp:
03/27/08 09:14:36 (10 months ago)
Author:
hans
Message:

update to cl-mime-0.5.3

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/thirdparty/cl-mime/classes.lisp

    r2045 r2807  
    108108    :accessor prologue 
    109109    :initform nil 
    110     :initarg :prologue) 
     110    :initarg :prologue 
     111    :type (or null string)) 
    111112   (epilogue 
    112113    :accessor epilogue 
    113114    :initform nil 
    114     :initarg :epilogue)) 
     115    :initarg :epilogue 
     116    :type (or null string))) 
    115117  (:documentation "Multipart Mime Object Representation")) 
    116118     

  • trunk/thirdparty/cl-mime/encoding.lisp

    r2045 r2807  
    3636             ((array (unsigned-byte 8)) 
    3737              (usb8-array-to-base64-string content :columns 75)))) 
    38           (:quoted-printable (qprint:encode content)))))) 
     38          (:quoted-printable (qprint:encode content :columns 75)))))) 
    3939 
    4040 

  • trunk/thirdparty/cl-mime/parse-mime.lisp

    r2045 r2807  
    5656      (if (equal mime-version "1.0") 
    5757         
    58           (let* ((encoding (intern (or (string-upcase  
    59                                        (cdr (assoc :content-transfer-encoding 
    60                                                     headers))) 
    61                                        "7BIT") 
     58          (let* ((encoding (intern (string-upcase 
     59                                    (or (cdr (assoc :content-transfer-encoding 
     60                                                    headers)) 
     61                                       "7BIT")) 
    6262                                   :keyword)) 
    6363                 (mime-obj-gen 

  • trunk/thirdparty/cl-mime/utilities.lisp

    r2045 r2807  
    2323(in-package :mime) 
    2424 
     25;;; This function reads a line from the given input stream that 
     26;;; is either terminated by LF or by CRLF. 
     27(defun read-line/strip-cr (&rest args) 
     28  (multiple-value-bind (line missing-newline-p) 
     29      (apply #'read-line args) 
     30    (if (not missing-newline-p) 
     31        (let ((l (length line))) 
     32          (if (and (>= l 1) (char= (char line (1- l)) #\Return)) 
     33              (values (subseq line 0 (1- l)) missing-newline-p) 
     34              (values line missing-newline-p))) 
     35        (values line missing-newline-p)))) 
    2536 
    2637;;; This macro does very little other than tidy up the do-loops I tend to do 
    …… 
    3041reached or EXIT-CLAUSE is true where upon EXIT-BODY is executed. 
    3142Executes BODY for every line in the file" 
    32   `(do ((,line-var (read-line ,stream nil 'eof) 
    33                    (read-line ,stream nil 'eof))) 
     43  `(do ((,line-var (read-line/strip-cr ,stream nil 'eof) 
     44                   (read-line/strip-cr ,stream nil 'eof))) 
    3445       ((or (eql ,line-var 'eof) 
    3546            ,exit-clause)