Show nicks to notify.

src/bbstool.scm

@@ -146,10 +146,12 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
  (-mlsync () "Synchronize internal ML"
 	  (-action- 'mlsync))
  (-notify () "Members with debt for more than 1 month"
-	   (-notify-months- 1)
-	   (-action- 'notify))
+	  (-notify-months- 1)
+	  (-needs-bank- #t)
+	  (-action- 'notify))
  (-notify3 () "Members with debt for more than 3 month"
 	   (-notify-months- 3)
+	   (-needs-bank- #t)
 	   (-action- 'notify))
  )
 
@@ -305,7 +307,13 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 	   (when (not (null? surplus))
 	     (print "  Outsiders: " surplus))))))
   ((notify)
-   (print "Notify" (-notify-months-)))
+   (let ((nmembers (members-to-notify MB (-notify-months-))))
+     (newline)
+     (if (null? nmembers)
+	 (print "Everyone paid on time.")
+	 (let ()
+	   (print "Notify" (-notify-months-))
+	   (print (map member-nick nmembers))))))
   (else
    (print "Nothing to do."))
   

src/members-payments.scm

@@ -222,7 +222,8 @@
 	    (fee (lookup-member-fee (if (member-student? mr)
 					'student
 					'regular))))
-	(and (< total 0)
+	(and (member-active? mr)
+	     (< total 0)
 	     (< total (- (* months fee))))))))
 
  )