[Rt-commit] r9017 - in rt/branches/3.7-EXPERIMENTAL: .

[sartak at bestpractical.com]

Author: sartak
Date: Wed Sep 12 12:26:14 2007
New Revision: 9017

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html

Log:


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Update.html	Wed Sep 12 12:26:14 2007
@@ -272,10 +272,19 @@
 my @gnupg_keys_issues;
 if ( $ARGS{'SubmitTicket'} && $ARGS{'Encrypt'} ) {
 
-    my @recipients = $m->comp(
+    # skip any email addresses that we won't be sending mail to
+    my @non_recipients = $m->comp(
+                            '/Ticket/Elements/PreviewScrips:SquelchRecipients',
+                            %ARGS, TicketObj => $TicketObj
+                        );
+    shift @non_recipients;
+    my %seen = map { lc($_) => 1 } @non_recipients;
+
+    my @recipients = grep {!$seen{lc $_}} $m->comp(
         '/Ticket/Elements/PreviewScrips:GetRecipients',
         %ARGS, TicketObj => $TicketObj
     );
+
     RT::Crypt::GnuPG::UseKeyForEncryption(
         map { (/^UseKey-(.*)$/)[0] => $ARGS{ $_ } }
         grep $ARGS{$_} && /^UseKey-/,