[commit-womb] gnumaint gm

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       08/02/12 18:55:29

Modified files:
        .              : gm 

Log message:
        (list_packages_bymaintainer): prefer privateemail
        to email for the maintainers.bypkg file.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gm?cvsroot=womb&r1=1.6&r2=1.7

Patches:
Index: gm
===================================================================
RCS file: /sources/womb/gnumaint/gm,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- gm  21 Aug 2007 23:16:16 -0000      1.6
+++ gm  12 Feb 2008 18:55:29 -0000      1.7
@@ -1,5 +1,5 @@
 #!/usr/bin/env perl
-# $Id: gm,v 1.6 2007/08/21 23:16:16 karl Exp $
+# $Id: gm,v 1.7 2008/02/12 18:55:29 karl Exp $
 # More gnumaint-related stuff, since I think better in Perl than TCL.
 # 
 # Copyright 2007 Free Software Foundation Inc.
@@ -66,7 +66,13 @@
       my $name = $m->{"name"};
       my $entry = $name;
       $entry .= " " if $entry;
+      if (exists $m->{"privateemail"}) {
+        # prefer private email addresses when we need to communicate.
+        $entry .= "<$m->{privateemail}>";
+      } else {
       $entry .= "<$m->{email}>" if exists $m->{"email"};
+      }
+
 
       if ($name =~ /^[a-z]/ && $name ne "unmaintained") {
         # Assume that if a name starts with a lowercase letter, it is