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