diff options
| author | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-10-23 22:31:52 +0000 |
|---|---|---|
| committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-10-23 22:31:52 +0000 |
| commit | b63f31095db2d2578cf7587b358dc77597b3894e (patch) | |
| tree | e6d351fbd7e166ecf0c2fadd8c12490246628396 /guimb/scm | |
| parent | bd59b97448b7a76a13fa9dd154d41ede0578b658 (diff) | |
| download | mailutils-b63f31095db2d2578cf7587b358dc77597b3894e.tar.gz mailutils-b63f31095db2d2578cf7587b358dc77597b3894e.tar.bz2 | |
Use close-pipe instead of close-output-port.
Use mu-message-destroy for temporary messages.
Diffstat (limited to 'guimb/scm')
| -rw-r--r-- | guimb/scm/redirect.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guimb/scm/redirect.scm b/guimb/scm/redirect.scm index a178ff2d7..b04f898b3 100644 --- a/guimb/scm/redirect.scm +++ b/guimb/scm/redirect.scm @@ -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 |