44 |
(else |
(else |
45 |
(let ((out-msg (mu-message-copy sieve-current-message))) |
(let ((out-msg (mu-message-copy sieve-current-message))) |
46 |
(mu-message-set-header out-msg "X-Sender" sieve-my-email) |
(mu-message-set-header out-msg "X-Sender" sieve-my-email) |
47 |
(sieve-message-bounce out-msg (list address)) |
(mu-message-send out-msg #f sender address) |
48 |
(mu-message-destroy out-msg)) |
(mu-message-destroy out-msg)) |
49 |
(mu-message-delete sieve-current-message))))) |
(mu-message-delete sieve-current-message))))) |
50 |
|
|