[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Commit-womb] gnumaint gnumaint
From: |
Karl Berry |
Subject: |
[Commit-womb] gnumaint gnumaint |
Date: |
Wed, 21 Mar 2007 18:14:32 +0000 |
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 {