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.58 -r1.58.2.1
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	6 Nov 2003 09:44:13 -0000	1.58
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	19 Nov 2003 00:46:22 -0000	1.58.2.1
@@ -413,6 +413,9 @@
         }
     }
 
+    set email [string trim $email]
+    set username [string trim $username]
+
     foreach elm [get_all_registration_elements] {
         if { [info exists $elm] } {
             set user_info($elm) [set $elm]
@@ -1359,6 +1362,13 @@
         }
     }
 
+    if { [info exists user(email)] } {
+        set user(email) [string trim $user(email)]
+    }
+    if { [info exists user(username)] } {
+        set user(username) [string trim $user(username)]
+    }
+
     if { $update_p } {
         set user(user_id) [acs_user::get_by_username \
                                -authority_id $authority_id \
Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -r1.19 -r1.19.2.1
--- openacs-4/packages/acs-subsite/lib/login.tcl	10 Nov 2003 16:51:01 -0000	1.19
+++ openacs-4/packages/acs-subsite/lib/login.tcl	19 Nov 2003 00:45:58 -0000	1.19.2.1
@@ -171,8 +171,8 @@
     array set auth_info [auth::authenticate \
                              -return_url $return_url \
                              -authority_id $authority_id \
-                             -email $email \
-                             -username $username \
+                             -email [string trim $email] \
+                             -username [string trim $username] \
                              -password $password \
                              -persistent=[expr $allow_persistent_login_p && [template::util::is_true $persistent_p]]]
     
Index: openacs-4/packages/acs-subsite/www/members/user-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/members/user-new.tcl,v
diff -u -r1.5 -r1.5.2.1
--- openacs-4/packages/acs-subsite/www/members/user-new.tcl	10 Nov 2003 12:36:20 -0000	1.5
+++ openacs-4/packages/acs-subsite/www/members/user-new.tcl	19 Nov 2003 00:45:58 -0000	1.5.2.1
@@ -5,7 +5,7 @@
     @creation-date 2003-06-02
     @cvs-id $Id$
 } {
-    email
+    email:trim
 }
 
 auth::require_login