Changeset 3306

Show
Ignore:
Timestamp:
06/24/08 08:36:34 (7 months ago)
Author:
hans
Message:

Encode #\= if in qp-mode.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3305 r3306  
    1717        (format s "=?~A?Q?" (flex:external-format-name external-format)) 
    1818        (loop for char across string 
    19            do (if (< 127 (char-code char)) 
     19           do (if (or (eql #\= char) 
     20                      (< 127 (char-code char))) 
    2021                  (loop for byte across (flex:string-to-octets (make-string 1 :initial-element char) 
    2122                                                               :external-format external-format)