diff --git a/src/mailman.scm b/src/mailman.scm
index b1a22f5..ae18bc5 100644
--- a/src/mailman.scm
+++ b/src/mailman.scm
@@ -139,23 +139,21 @@
 
  ;; 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 "Add " email " to " listname ".")
+   (let ((result
+	  (get-mailman-output-lines
+	   "add_members" "-r" "-" listname
+	   (sprintf "<<<\"~A\"" email))))
+     (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 "Remove " email " from " listname ".")
+   (let ((result
+	  (get-mailman-output-lines
+	   "remove_members" (car listname)
+	   (sprintf "\"~A\"" email))))
+     (print result)))
 
  ;; Ensures given email is in given ML
  (define (mailman-ensure-member ml email)