From ce73d56d39a58396156feb972890b3d1e01fb533 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Dominik=20Pant=C5=AF=C4=8Dek?= Date: Thu, 6 Apr 2023 19:59:05 +0200 Subject: [PATCH] Load all if requested inverted. --- src/bbstool.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/bbstool.scm b/src/bbstool.scm index f62ec7d..ca5e82c 100644 --- a/src/bbstool.scm +++ b/src/bbstool.scm @@ -167,15 +167,15 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. ;; Load ML(s) and merge them (define MB (if (-ml-all-) - (let () - (define internal-ml (load-mailman-list "internal")) - (members-base-merge-mailman MB0 internal-ml)) (let () (define mls (load-mailman-lists)) (foldl (lambda (mb ml) (members-base-merge-mailman mb ml)) MB0 - mls)))) + mls)) + (let () + (define internal-ml (load-mailman-list "internal")) + (members-base-merge-mailman MB0 internal-ml)))) ;; If a member is specified by either id or nick, get its record (define mr