# $Id: tkremind-no_null_reminders.diff,v 1.1 2001/11/13 14:15:37 jcs Exp $
#
# make tkremind not popup the daily reminders if there are none
#
# by joshua stein <jcs@rt.fm>
#

--- tkremind.orig	Tue Apr  3 15:01:43 2001
+++ tkremind	Sat Aug 11 22:14:31 2001
@@ -3614,6 +3614,14 @@
 	return
     }
 
+    # Grab the reminders
+    set stuff [exec -keepnewline $Remind -q -a -r $ReminderFile 2>/dev/null]
+
+    if {$stuff == "No reminders.\n"} {
+        # No reminders, just exit
+        return
+    }
+
     set w .today
     catch { destroy $w }
     toplevel $w
@@ -3629,8 +3637,6 @@
 
     CenterWindow $w
 
-    # Grab the reminders
-    set stuff [exec -keepnewline $Remind -q -a -r $ReminderFile 2>/dev/null]
     $w.text insert end $stuff
     $w.text configure -state disabled
 }