From: Santiago Vila <sanvila@debian.org>
Subject: Deal with domain names starting with numbers
X-Debian-version: 3.15-22

--- a/SmartList/bin/confirm_del
+++ b/SmartList/bin/confirm_del
@@ -63,11 +63,11 @@
 $sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
   -e '/^[ 	]*[^ 	a-z]/ q' \
   -e 's/^[^@]*del[ 	]*'\
-'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z][^ 	]*\).*/\1/p' \
+'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z0-9][^ 	]*\).*/\1/p' \
   -e 's/^[^@]*unsub[ 	]*'\
-'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z][^ 	]*\).*/\1/p' \
+'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z0-9][^ 	]*\).*/\1/p' \
   -e 's/^[^@]*unsubscribe[ 	]*'\
-'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z][^ 	]*\).*/\1/p' `
+'[^      ]*[ 	]\([^ 	]*[-a-z0-9_][@!][a-z0-9][^ 	]*\).*/\1/p' `
 
 
 # create an cookie...this is u for unsubscribe, the date plus the pid
--- a/SmartList/bin/extraddr
+++ b/SmartList/bin/extraddr
@@ -61,13 +61,13 @@
  $sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
   -e '/^[	 ]*[^	 a-z]/ q' \
   -e 's/^[^@]*add[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*address[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*sub[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*subscribe[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' `
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' `
 
 fromaddr=`$cat $tmpfrom`
 
--- a/SmartList/bin/subscribe
+++ b/SmartList/bin/subscribe
@@ -41,13 +41,13 @@
  $sed -n -e 'y/ABCDEFGHIJKLMNOPQRSTUVWXYZ/abcdefghijklmnopqrstuvwxyz/' \
   -e '/^[	 ]*[^	 a-z]/ q' \
   -e 's/^[^@]*add[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*address[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*sub[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' \
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' \
   -e 's/^[^@]*subscribe[	 ]*'\
-'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z][^	 ]*\).*/\1/p' `
+'[^	 ]*[	 ]\([^	 ]*[-a-z0-9_][@!][a-z0-9][^	 ]*\).*/\1/p' `
 
 fromaddr=`$cat $tmpfrom`
 
