Delete message after sending reject notification.
Showing
1 changed file
with
2 additions
and
1 deletions
... | @@ -80,7 +80,8 @@ | ... | @@ -80,7 +80,8 @@ |
80 | (mu-mime-add-part mime mesg)) | 80 | (mu-mime-add-part mime mesg)) |
81 | 81 | ||
82 | (let ((mesg (mu-mime-get-message mime))) | 82 | (let ((mesg (mu-mime-get-message mime))) |
83 | (sieve-message-bounce mesg (list sender))))) | 83 | (sieve-message-bounce mesg (list sender))) |
84 | (mu-message-delete sieve-current-message))) | ||
84 | 85 | ||
85 | ;;; Register action | 86 | ;;; Register action |
86 | (if sieve-parser | 87 | (if sieve-parser | ... | ... |
-
Please register or sign in to post a comment