Pass on unpaired table arguments to table->list.

src/members-print.scm

@@ -391,8 +391,9 @@
        )
      ))
 
- (define (unpaired-table mb)
-   (table->list
+ (define (unpaired-table mb . args)
+   (apply
+    table->list
     (cons
      (list "Id" "Date" "Amount" "" "VS" "Type" "Message" "Account" "Bank")
      (map
@@ -409,7 +410,8 @@
 	      ))
       (mbase-unpaired mb)))
     #:row0-border #t
-    #:col-border #t))
+    #:col-border #t
+    args))
 
  ;; Prints all transactions which the members base considers unpaired.
  (define (print-unpaired-table mb)

src/notifications.scm

@@ -131,8 +131,7 @@
 	       (append
 		(list ""
 		      "Unpaired transactions:")
-		(parameterize ((*table-border-style* 'ascii))
-		  (unpaired-table mb))))))
+		(unpaired-table mb #:border-style 'ascii)))))
      (append income-lst
 	     unpaired-lst)))