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)
-   (let ((result
+   (if #t
-	  (get-mailman-output-lines
+       (print "Add " email " to " listname ".")
-	   "add_members" "-r" "-" listname
+       (let ((result
-	   (sprintf "<<<\"~A\"" email))))
+	      (get-mailman-output-lines
-     (print result)))
+	       "add_members" "-r" "-" listname
+	       (sprintf "<<<\"~A\"" email))))
+	 (print result))))
 
  ;; Removes given email from given listname
  (define (remove-email-from-mailman-list listname email)
-   (let ((result
+   (if #t
-	  (get-mailman-output-lines
+       (print "Remove " email " from " listname ".")
-	   "remove_members" (car listname)
+       (let ((result
-	   (sprintf "\"~A\"" email))))
+	      (get-mailman-output-lines
-     (print result)))
+	       "remove_members" (car listname)
+	       (sprintf "\"~A\"" email))))
+	 (print result))))
 
  ;; Ensures given email is in given ML
  (define (mailman-ensure-member ml email)