Changeset 15418 in project for release/3/smtp/smtp.scm


Ignore:
Timestamp:
08/12/09 08:10:56 (10 years ago)
Author:
daishi
Message:

a workaround for a possible bug in fprintf (handling ~?)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/3/smtp/smtp.scm

    r8250 r15418  
    6565(define (send smtp fstr . args)
    6666  (when (smtp-verbose smtp) (fprintf (current-error-port) "SMTP: ~?~%" fstr args))
    67   (fprintf (smtp-out smtp) "~?\r\n" fstr args)
     67  (apply fprintf (smtp-out smtp) fstr args)
     68  (display "\r\n" (smtp-out smtp))
    6869  (flush-output (smtp-out smtp) ) )
    6970
Note: See TracChangeset for help on using the changeset viewer.