Make all mailman operations a no-op.

src/mailman.scm

@@ -123,19 +123,23 @@
 
  ;; Adds given email to given listname
  (define (add-email-to-mailman-list listname email)
+   (if #t
+       (print "Add " email " to " listname ".")
        (let ((result
 	      (get-mailman-output-lines
 	       "add_members" "-r" "-" listname
 	       (sprintf "<<<\"~A\"" email))))
-     (print result)))
+	 (print result))))
 
  ;; Removes given email from given listname
  (define (remove-email-from-mailman-list listname email)
+   (if #t
+       (print "Remove " email " from " listname ".")
        (let ((result
 	      (get-mailman-output-lines
 	       "remove_members" (car listname)
 	       (sprintf "\"~A\"" email))))
-     (print result)))
+	 (print result))))
 
  ;; Ensures given email is in given ML
  (define (mailman-ensure-member ml email)