diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-10-23 22:42:30 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2001-10-23 22:42:30 +0000 |
commit | 9751f971ce1e7eac43b56b14206a484f567e8e33 (patch) | |
tree | f9ec8cee9e13bc95cd4bc0cb687c5320e1208f5c /guimb/scm | |
parent | f56eccc1cad984eb8c345194eddea02ec8b98ed1 (diff) | |
download | mailutils-9751f971ce1e7eac43b56b14206a484f567e8e33.tar.gz mailutils-9751f971ce1e7eac43b56b14206a484f567e8e33.tar.bz2 |
Delete message after sending reject notification.
Diffstat (limited to 'guimb/scm')
-rw-r--r-- | guimb/scm/reject.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guimb/scm/reject.scm b/guimb/scm/reject.scm index 062af807f..16e64ecf9 100644 --- a/guimb/scm/reject.scm +++ b/guimb/scm/reject.scm @@ -80,7 +80,8 @@ (mu-mime-add-part mime mesg)) (let ((mesg (mu-mime-get-message mime))) - (sieve-message-bounce mesg (list sender))))) + (sieve-message-bounce mesg (list sender))) + (mu-message-delete sieve-current-message))) ;;; Register action (if sieve-parser |