Improve mailman analysis.

src/bbstool.scm

@@ -140,6 +140,8 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-unpaired () "Show latest unpaired bank transactions"
 	    (-needs-bank- #t)
 	    (-action- 'unpaired))
+ (-mlcheck () "Check internal ML"
+	   (-action- 'mlcheck))
  (-mlsync () "Synchronize internal ML"
 	  (-action- 'mlsync))
  )
@@ -282,6 +284,19 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
    (if (-normal-month-)
        (mailman-sync-members internal-ml (members-base-active-emails MB))
        (print "Mailman synchronization disabled with manually specified current month.")))
+  ((mlcheck)
+   (define-values (missing surplus)
+     (mailman-compare-members internal-ml
+			      (membars-base-active-emails MB)))
+   (if (and (null? missing)
+	    (null? surplus))
+       (print "Internal mailing list membership in sync.")
+       (let ()
+	 (print "Internal mailing list:")
+	 (when (not (null? missing))
+	   (print "  Missing: " missing))
+	 (when (not (null? surplus))
+	   (print "  Outsiders: " surplus)))))
   (else
    (print "Nothing to do."))