--- loncom/interface/loncommon.pm	2007/07/17 18:07:18	1.550
+++ loncom/interface/loncommon.pm	2007/07/17 21:11:49	1.551
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.550 2007/07/17 18:07:18 albertel Exp $
+# $Id: loncommon.pm,v 1.551 2007/07/17 21:11:49 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2156,6 +2156,15 @@ sub getemails {
     }
 }
 
+sub flush_email_cache {
+    my ($uname,$udom)=@_;
+    if (!$udom)  { $udom =$env{'user.domain'}; }
+    if (!$uname) { $uname=$env{'user.name'};   }
+    return if ($udom eq 'public' && $uname eq 'public');
+    my $id=$uname.':'.$udom;
+    &Apache::lonnet::devalidate_cache_new('emailscache',$id);
+}
+
 # ------------------------------------------------------------------ Screenname
 
 =pod