diff options
-rw-r--r-- | mumi/messages.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/mumi/messages.scm b/mumi/messages.scm index 52d8a22..de2a30b 100644 --- a/mumi/messages.scm +++ b/mumi/messages.scm @@ -108,7 +108,8 @@ yet. Return new results alongside cached results." "Is this MESSAGE closing this bug ID?" (let ((done (string-append (number->string id) "-done"))) - (string= (header message 'x-debbugs-envelope-to) done))) + (and=> (header message 'x-debbugs-envelope-to) + (cut string= <> done)))) (define-public (bot? address) (string= "help-debbugs@gnu.org" address)) |