summaryrefslogtreecommitdiff
path: root/examples/reply.scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2001-08-05 13:54:57 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2001-08-05 13:54:57 +0000
commitb1990c2d1c897e0cb85f388d2a2af084ed1d94ef (patch)
treefa3d828b6fa9112a3fdbe5d5d0dd4840d256e7cc /examples/reply.scm
parent724d1f5cb8773c506393de12620cba65cde5da45 (diff)
downloadmailutils-b1990c2d1c897e0cb85f388d2a2af084ed1d94ef.tar.gz
mailutils-b1990c2d1c897e0cb85f388d2a2af084ed1d94ef.tar.bz2
Use ports instead of mu-body- interface.
Diffstat (limited to 'examples/reply.scm')
-rw-r--r--examples/reply.scm22
1 files changed, 13 insertions, 9 deletions
diff --git a/examples/reply.scm b/examples/reply.scm
index 432611b4a..dcd05e027 100644
--- a/examples/reply.scm
+++ b/examples/reply.scm
@@ -36,8 +36,8 @@ Kind regards\n")
;; Reply to the incoming message
(define (reply in-msg)
(let* ((out-msg (mu-message-create))
- (inbody (mu-message-get-body in-msg))
- (outbody (mu-message-get-body out-msg)))
+ (in-port (mu-message-get-port in-msg "r"))
+ (out-port (mu-message-get-port out-msg "w")))
(mu-message-set-header out-msg "To"
(mu-message-get-header in-msg "From"))
(mu-message-set-header out-msg "Cc"
@@ -47,18 +47,22 @@ Kind regards\n")
"Re: "
(mu-message-get-header in-msg "Subject")))
- (mu-body-write outbody reply-text)
+ (display reply-text out-port)
- (mu-body-write outbody "\n\nOriginal message:\n")
+ (display "\n\nOriginal message:\n" out-port)
(do ((hdr (mu-message-get-header-fields in-msg) (cdr hdr)))
((null? hdr) #f)
(let ((s (car hdr)))
- (mu-body-write outbody (string-append indent-prefix
- (car s) ": " (cdr s) "\n"))))
- (mu-body-write outbody (string-append indent-prefix "\n"))
- (do ((line (mu-body-read-line inbody) (mu-body-read-line inbody)))
+ (display (string-append
+ indent-prefix
+ (car s) ": " (cdr s) "\n") out-port)))
+ (display (string-append indent-prefix "\n") out-port)
+ (do ((line (read-line in-port) (read-line in-port)))
((eof-object? line) #f)
- (mu-body-write outbody (string-append indent-prefix line)))
+ (display (string-append indent-prefix line "\n") out-port))
+
+ (close-input-port in-port)
+ (close-output-port out-port)
(mu-message-send out-msg)))

Return to:

Send suggestions and report system problems to the System administrator.