Index: openacs-4/packages/notifications/tcl/notification-email-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/notifications/tcl/notification-email-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/notifications/tcl/notification-email-procs.tcl	28 Jun 2002 20:21:50 -0000	1.2
+++ openacs-4/packages/notifications/tcl/notification-email-procs.tcl	29 Jun 2002 00:21:11 -0000	1.3
@@ -78,8 +78,10 @@
         @param queue_dir The location of the qmail mail queue in
         the file-system.
     } {
-        if [catch {set messages [glob "$queue_dir/new/*"]} ] {
-            ns_log Notice "queue dir = [glob $queue_dir/new/*]"
+        if {[catch {
+            set messages [glob "$queue_dir/new/*"]
+        } errmsg]} {
+            ns_log Notice "queue dir = $queue_dir/new/*, no messages"
             return [list]
         }
 
@@ -143,7 +145,8 @@
             }
 
             set from [parse_email_address $from]
-            
+            set to [parse_email_address $to]
+
             # Find the from user
             set from_user [cc_lookup_email_user $from]