Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.91 -r1.92
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	29 Dec 2017 10:46:39 -0000	1.91
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	29 Dec 2017 11:22:07 -0000	1.92
@@ -152,8 +152,7 @@
 }
 
 ad_proc -public auth::UseEmailForLoginP {} {
-    Do we use email address for login? code wrapped in a catch, so the
-    proc will not break regardless of what the parameter value is.
+    Do we use email address for login?
 } {
     return [parameter::get -boolean -parameter UseEmailForLoginP -package_id [ad_acs_kernel_id] -default 1]
 }
@@ -214,7 +213,7 @@
             return [array get result]
         }
         set user_id [party::get_by_email -email $email]
-        if { $user_id eq "" || ![acs_user::registered_user_p -user_id $user_id] } {            
+        if { $user_id eq "" || ![acs_user::registered_user_p -user_id $user_id] } {
             set result(auth_status) "no_account"
             set result(auth_message) [_ acs-subsite.Unknown_email]
             return [array get result]
@@ -842,7 +841,7 @@
 
             # Help Text
             lappend form_element [list help_text $help_text($element)]
-            
+
             # The form element is finished - add it to the list
             lappend form_elements $form_element
         } else {