diff options
| -rw-r--r-- | debbugs/email.scm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/debbugs/email.scm b/debbugs/email.scm index 8666645..640b0a3 100644 --- a/debbugs/email.scm +++ b/debbugs/email.scm @@ -55,6 +55,8 @@ (make-email (parse-headers header) body msg-num attachments)) (define (soap-email->email email-item) + "Convert an SXML expression representing an email item from a SOAP +response to an <email> object." (let ((email-properties (map soap->scheme (cdr email-item)))) (apply email (append-map (match-lambda |