Use mu-message-send instead of sieve-message-bounce.

@@ -44,7 +44,7 @@
        (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))
+	  (mu-message-send out-msg #f sender address)
 	  (mu-message-destroy out-msg))
 	(mu-message-delete sieve-current-message)))))
 

@@ -79,8 +79,7 @@
       (close-output-port port)
       (mu-mime-add-part mime mesg))
 
-    (let ((mesg (mu-mime-get-message mime)))
-      (sieve-message-bounce mesg (list sender)))
+    (mu-message-send (mu-mime-get-message mime) #f sieve-daemon-email sender)
     (mu-message-delete sieve-current-message)))
 
 ;;; Register action