summaryrefslogtreecommitdiff
path: root/guimb
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2002-11-30 13:40:33 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2002-11-30 13:40:33 +0000
commit00ec258ec6437eaa3330db07eb08f2f5846f0f0f (patch)
treee6ccfb61bd9c2a18c8f00ef980a4fcd0e6a6c10a /guimb
parentdbe217d798f12d91aa4d9619ff5b3b25c6605bc0 (diff)
downloadmailutils-00ec258ec6437eaa3330db07eb08f2f5846f0f0f.tar.gz
mailutils-00ec258ec6437eaa3330db07eb08f2f5846f0f0f.tar.bz2
(action-keep): Remove the delete mark from the message.
Diffstat (limited to 'guimb')
-rw-r--r--guimb/scm/sieve-core.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guimb/scm/sieve-core.scm b/guimb/scm/sieve-core.scm
index cd769dd02..23e7434ca 100644
--- a/guimb/scm/sieve-core.scm
+++ b/guimb/scm/sieve-core.scm
@@ -110,7 +110,7 @@
;;; keep -- does nothing worth mentioning :^)
(define (action-keep)
- #f)
+ (mu-message-delete sieve-current-message #f))
;;; discard
@@ -412,6 +412,7 @@
(if (not sieve-my-email)
(set! sieve-my-email (mu-username->email)))
; (DEBUG 1 "Mailbox: " sieve-mailbox)
+
(let ((count (mu-mailbox-messages-count sieve-mailbox)))
(do ((n 1 (1+ n)))
((> n count) #f)

Return to:

Send suggestions and report system problems to the System administrator.