Limit the number of transactions shown.

src/hackerbase.scm

@@ -101,6 +101,8 @@
 	   (*checked-file* file))
  (-dokuwiki (dir) "Base directory of DokuWiki"
 	    (*doku-base* dir))
+ (-count (count) "Maximum number of transactions shown"
+	 (*show-payments-count* (string->number pcount)))
  ""
  "Email options:"
  (-from (email) "Sender email address"
@@ -358,7 +360,7 @@
        (print "Mailman synchronization disabled with manually specified current month.")))
   ((notify)
    (let ((nmembers (members-to-notify MB (-notify-months-))))
-     (newline)
+/     (newline)
      (if (null? nmembers)
 	 (print "Everyone paid on time.")
 	 (let ()