--- loncom/auth/checkauthen.pm	2007/10/02 01:09:59	1.12
+++ loncom/auth/checkauthen.pm	2012/04/18 18:55:06	1.13
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # checks for a cokkie to authenticate a user
 #
-# $Id: checkauthen.pm,v 1.12 2007/10/02 01:09:59 albertel Exp $
+# $Id: checkauthen.pm,v 1.13 2012/04/18 18:55:06 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -69,7 +69,9 @@ sub handler {
     if ($handle ne '') {
         return OK;
     }
-
+    if (($fail == FORBIDDEN) && ($r->uri eq '/adm/email')) {
+        $env{'form.firsturl'} = $r->uri;
+    }
     return $fail;
 }