[Commit-womb] gnumaint gnumaint

[Karl Berry]

CVSROOT:        /sources/womb
Module name:    gnumaint
Changes by:     Karl Berry <karl>       07/03/21 18:14:32

Modified files:
        .              : gnumaint 

Log message:
        recognize only-email addresses.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnumaint/gnumaint?cvsroot=womb&r1=1.34&r2=1.35

Patches:
Index: gnumaint
===================================================================
RCS file: /sources/womb/gnumaint/gnumaint,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- gnumaint    21 Mar 2007 17:30:49 -0000      1.34
+++ gnumaint    21 Mar 2007 18:14:32 -0000      1.35
@@ -1,6 +1,6 @@
 #!/usr/bin/env tclsh
 # gnumaint - GNU maintainers file maintenance (/gd/gnuorg/maintainers)
-# $Id: gnumaint,v 1.34 2007/03/21 17:30:49 karl Exp $
+# $Id: gnumaint,v 1.35 2007/03/21 18:14:32 karl Exp $
 #
 # Copyright 2007 Free Software Foundation Inc.
 # 
@@ -282,8 +282,8 @@
           ;#   address@hidden (J User)
           ;# We don't attempt to do this perfectly.
           ;#
-          if { [regexp {^[^ ]*$} $from] } then {
-            set maintainer_email $from  ;# no spaces, take the whole thing
+          if { [regexp {^[^ ]*$} $maintainer_email] } then {
+            ;# no spaces, take the whole thing
           } elseif { [regexp {<([^>]+)>} $from "" maintainer_email] } then {
             ;# take whatever is inside <...>
           } elseif { [regsub {\(.*\)}  $from "" maintainer_email] } then {