summaryrefslogtreecommitdiff
path: root/guimb/scm
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2001-10-23 22:42:30 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2001-10-23 22:42:30 +0000
commit9751f971ce1e7eac43b56b14206a484f567e8e33 (patch)
treef9ec8cee9e13bc95cd4bc0cb687c5320e1208f5c /guimb/scm
parentf56eccc1cad984eb8c345194eddea02ec8b98ed1 (diff)
downloadmailutils-9751f971ce1e7eac43b56b14206a484f567e8e33.tar.gz
mailutils-9751f971ce1e7eac43b56b14206a484f567e8e33.tar.bz2
Delete message after sending reject notification.
Diffstat (limited to 'guimb/scm')
-rw-r--r--guimb/scm/reject.scm3
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

Return to:

Send suggestions and report system problems to the System administrator.