Commit b63f3109 b63f31095db2d2578cf7587b358dc77597b3894e by Sergey Poznyakoff

Use close-pipe instead of close-output-port.

Use mu-message-destroy for temporary messages.
1 parent bd59b974
......@@ -44,8 +44,9 @@
(else
(let ((out-msg (mu-message-copy sieve-current-message)))
(mu-message-set-header out-msg "X-Sender" sieve-my-email)
(sieve-message-bounce out-msg (list address)))))
(sieve-message-bounce out-msg (list address))))
(sieve-message-bounce out-msg (list address))
(mu-message-destroy out-msg))
(mu-message-delete sieve-current-message)))))
;;; Register action
(if sieve-parser
......