summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-11-20 22:47:24 +0100
committerRicardo Wurmus <rekado@elephly.net>2017-11-20 22:47:24 +0100
commit791c2e242702823c932c99960bce4f6675dff8c6 (patch)
treeb047931db34cc622d48bdfb9ac61c4203b20d0fc
parent3a6a2b535962ef4a8682121f5c901e2172f5e04d (diff)
debbugs: soap-email->email: Add docstring.
* debbugs/email.scm (soap-email->email): Add docstring.
-rw-r--r--debbugs/email.scm2
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