diff options
| author | Arun Isaac <arunisaac@systemreboot.net> | 2018-09-25 12:07:43 +0530 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-11-09 20:08:47 +0100 |
| commit | f7e5156602a5c186e18153553de73a7e5ef87078 (patch) | |
| tree | 7afb2c391b0ef43a1c368e8d4ddd63aa284533fe | |
| parent | 6ecec8828628276b537915ca12c08ba7cf7029aa (diff) | |
debbugs: Discard debbugs' msg-num.
* debbugs/email.scm (<email>): Remove msg-num field.
(email): Do not pass on msg-num to make-email.
| -rw-r--r-- | debbugs/email.scm | 9 |
1 files 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 <email> - (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! <email> (lambda (record port) - (simple-format port "#<email ~s ~a>" - (email-msg-num record) + (simple-format port "#<email ~a>" (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 |