New email code wasn't sending to people who had voted for a bug.

CGI.pl

@@ -846,6 +846,12 @@ sub GetCommandMenu {
         my $mybugstemplate = Param("mybugstemplate");
         my %substs;
         $substs{'userid'} = $::COOKIE{"Bugzilla_login"};
+        if (!defined $::anyvotesallowed) {
+            GetVersionTable();
+        }
+        if ($::anyvotesallowed) {
+            $html .= qq{ | <A HREF="showvotes.cgi">My votes</A>};
+        }
         my $mybugsurl = PerformSubsts($mybugstemplate, \%substs);
         $html = $html . " | <a href='$mybugsurl'>My bugs</a>";
     }

changepassword.cgi

@@ -22,10 +22,18 @@
 
 require "CGI.pl";
 
+
+sub sillyness {
+    my $zz;
+    $zz = $::anyvotesallowed;
+}
+
 confirm_login();
 
 print "Content-type: text/html\n\n";
 
+GetVersionTable();
+
 if (! defined $::FORM{'pwd1'}) {
     PutHeader("Preferences", "Change your password and<br>other preferences",
               $::COOKIE{'Bugzilla_login'});
@@ -98,10 +106,10 @@ risk any bugs), check here.</td>
 <hr>
 <input type=submit value=Submit>
 </form>
-<hr>
-<a href=\"showvotes.cgi\">Review your votes</a>
-<hr>
-";
+<hr>";
+    if ($::anyvotesallowed) {
+        print qq{<a href="showvotes.cgi">Review your votes</a><hr>\n};
+    }
     PutFooter();
     exit;
 }

editproducts.cgi

@@ -689,9 +689,9 @@ if ($action eq 'update') {
                  SET program='$product'
                  WHERE program=" . SqlQuote($productold));
 
-        unlink "data/versioncache";
         print "Updated product name.<BR>\n";
     }
+    unlink "data/versioncache";
     SendSQL("UNLOCK TABLES");
 
     PutTrailer($localtrailer);

globals.pl

@@ -280,6 +280,7 @@ sub GenerateVersionTable {
 
     my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
     SendSQL("select product, description, votesperuser, disallownew$mpart from products");
+    $::anyvotesallowed = 0;
     while (@line = FetchSQLData()) {
         my ($p, $d, $votesperuser, $dis, $u) = (@line);
         $::proddesc{$p} = $d;
@@ -293,6 +294,9 @@ sub GenerateVersionTable {
             $::milestoneurl{$p} = $u;
         }
         $::prodmaxvotes{$p} = $votesperuser;
+        if ($votesperuser > 0) {
+            $::anyvotesallowed = 1;
+        }
     }
             
 
@@ -345,6 +349,7 @@ sub GenerateVersionTable {
     }
     print FID GenerateCode('%::proddesc');
     print FID GenerateCode('%::prodmaxvotes');
+    print FID GenerateCode('$::anyvotesallowed');
 
     if ($dotargetmilestone) {
         my $last = Param("nummilestones");

processmail

@@ -358,6 +358,12 @@ sub NewProcessOneBug {
     my ($start, $end) = (@row);
     $values{'cc'} = ShowCcList($id);
     
+    my @voterlist;
+    SendSQL("SELECT profiles.login_name FROM votes, profiles " .
+            "WHERE votes.bug_id = $id AND profiles.userid = votes.who");
+    while (MoreSQLData()) {
+        push(@voterlist, FetchOneColumn());
+    }
 
     $values{'assigned_to'} = DBID_to_name($values{'assigned_to'});
     $values{'reporter'} = DBID_to_name($values{'reporter'});
@@ -453,6 +459,7 @@ sub NewProcessOneBug {
     my $count = 0;
     for my $person ($values{'assigned_to'}, $values{'reporter'},
                     split(/,/, $values{'cc'}),
+                    @voterlist,
                     @forcecc) {
         $count++;
         if ($seen{$person}) {