From f7e5156602a5c186e18153553de73a7e5ef87078 Mon Sep 17 00:00:00 2001 From: Arun Isaac Date: Tue, 25 Sep 2018 12:07:43 +0530 Subject: debbugs: Discard debbugs' msg-num. * debbugs/email.scm (): Remove msg-num field. (email): Do not pass on msg-num to make-email. --- debbugs/email.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/debbugs/email.scm b/debbugs/email.scm index 640b0a3..739a9ff 100644 --- a/debbugs/email.scm +++ b/debbugs/email.scm @@ -27,23 +27,20 @@ #:export (email? email-headers email-body - email-msg-num email-attachments soap-email->email)) (define-record-type - (make-email headers body msg-num attachments) + (make-email headers body attachments) email? (headers email-headers) (body email-body) - (msg-num email-msg-num) (attachments email-attachments)) (set-record-type-printer! (lambda (record port) - (simple-format port "#" - (email-msg-num record) + (simple-format port "#" (number->string (object-address record) 16)))) (define (parse-headers header-text) @@ -52,7 +49,7 @@ (lambda () (rfc822-header->list (current-input-port))))) (define* (email #:key header body msg-num (attachments '())) - (make-email (parse-headers header) body msg-num attachments)) + (make-email (parse-headers header) body attachments)) (define (soap-email->email email-item) "Convert an SXML expression representing an email item from a SOAP -- cgit v1.2.3