Add members expiring soon to the summary email.

src/notifications.scm

@@ -158,6 +158,23 @@
 		(list ""
 		      "Unpaired transactions:")
 		(unpaired-table mb #:border-style 'ascii))))
+	  (soonexps (sort
+		     (find-members-by-predicate
+		      mb
+		      (brmember-suspended-for 21 24))
+		     brmember<?))
+	  (soonexps-lst
+	   (if (null? soonexps)
+	       #f
+	       (list ""
+		     (format "Expiring members (~A): ~A"
+			     (length soonexps)
+			     (string-intersperse
+			      (map
+			       (lambda (mr)
+				 (brmember-format "~N (~S)" mr))
+			       soonexps)
+			      ",")))))
 	  (debtors (sort
 		    (members-to-notify mb 1)
 		    brmember<?))
@@ -254,6 +271,7 @@
 		       ", "))))))
      (append income-lst
 	     unpaired-lst
+	     soonexps-lst
 	     debtors-lst
 	     boring-lst
 	     dw-lst