[Commit-womb] gnumaint Makefile gnumaint testaddrcase.msg

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/04/30 01:00:16

Modified files:
        .              : Makefile gnumaint 
Added files:
        .              : testaddrcase.msg 

Log message:
        case-insensitive match, angle brackets first

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/Makefile?cvsroot=womb&r1=1.10&r2=1.11
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.37&r2=1.38
http://cvs.savannah.gnu.org/viewcvs/gnumaint/testaddrcase.msg?cvsroot=womb&rev=1.1

Patches:
Index: Makefile
===================================================================
RCS file: /sources/womb/gnumaint/Makefile,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- Makefile    21 Mar 2007 18:14:58 -0000      1.10
+++ Makefile    30 Apr 2007 01:00:15 -0000      1.11
@@ -7,9 +7,10 @@
 test-rece:
 #      gnumaint recemail </etc/issue
 #      gnumaint recemail <testjunk1.msg
-       gnumaint recemail <testgood1.msg
+#      gnumaint recemail <testgood1.msg
 #      gnumaint recemail <testaddr+real.msg
 #      gnumaint recemail <testaddrangle.msg
+#      gnumaint recemail <testaddrcase.msg
 #      gnumaint recemail <testaddrcomment.msg
 
 sep = 2>&1 | dos2unix; true ------------------------------

Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -b -r1.37 -r1.38
--- gnumaint    30 Apr 2007 00:20:56 -0000      1.37
+++ gnumaint    30 Apr 2007 01:00:15 -0000      1.38
@@ -1,6 +1,6 @@
 #!/usr/bin/env tclsh
 # gnumaint - GNU maintainers file maintenance (/gd/gnuorg/maintainers)
-# $Id: gnumaint,v 1.37 2007/04/30 00:20:56 karl Exp $
+# $Id: gnumaint,v 1.38 2007/04/30 01:00:15 karl Exp $
 #
 # Copyright 2007 Free Software Foundation Inc.
 # 
@@ -282,23 +282,24 @@
           ;#   address@hidden (J User)
           ;# We don't attempt to do this perfectly.
           ;#
-          if { [regexp {^[^ ]*$} $maintainer_email] } then {
-            ;# no spaces, take the whole thing
-          } elseif { [regexp {<([^>]+)>} $from "" maintainer_email] } then {
+          if { [regexp {<([^>]+)>} $from match maintainer_email] } then {
             ;# take whatever is inside <...>
+          } elseif { [regexp {^[^ ]*$} $maintainer_email] } then {
+            ;# no spaces, take the whole thing
           } elseif { [regsub {\(.*\)}  $from "" maintainer_email] } then {
             ;# (Real Name) removed, now remove space.  regsub won't do it.
             set maintainer_email [string trim $maintainer_email]
           } else {
             puts "could not find email in $from"
           }
-         # always lowercase in maintainers file.
-          set $maintainer_email tolower ($maintainer_email)
+          set maintainer_email [string tolower $maintainer_email]
+          #puts "got email $maintainer_email"
           
           ;# See if this maintainer is in the database
           set maintainer_found false
           foreach maintainer $maintainersdb {
-              if {[lindex $maintainer 1] == $maintainer_email} then {
+              if { [string tolower [lindex $maintainer 1]] 
+                   == $maintainer_email } then {
                   set maintainer_found true
               }
           }

Index: testaddrcase.msg
===================================================================
RCS file: testaddrcase.msg
diff -N testaddrcase.msg
--- /dev/null   1 Jan 1970 00:00:00 -0000
+++ testaddrcase.msg    30 Apr 2007 01:00:15 -0000      1.1
@@ -0,0 +1,14 @@
+From address@hidden Sun Feb 11 14:48:08 2007
+Return-path: <address@hidden>
+Envelope-to: address@hidden
+Delivery-date: Sun, 11 Feb 2007 14:48:08 -0500
+Received: from karl by fencepost.gnu.org with local (Exim 4.60)
+       (envelope-from <address@hidden>)
+       id 1HGKgC-0000P9-M8
+       for address@hidden; Sun, 11 Feb 2007 14:48:08 -0500
+To: address@hidden
+Message-Id: <address@hidden>
+From: address@hidden
+Date: Sun, 11 Feb 2007 14:48:08 -0500
+Subject: GNU package maintenance
+