diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-30 13:40:33 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 2002-11-30 13:40:33 +0000 |
commit | 00ec258ec6437eaa3330db07eb08f2f5846f0f0f (patch) | |
tree | e6ccfb61bd9c2a18c8f00ef980a4fcd0e6a6c10a /guimb | |
parent | dbe217d798f12d91aa4d9619ff5b3b25c6605bc0 (diff) | |
download | mailutils-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.scm | 3 |
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) |