[TWiki-Dev] [SVN] PeterThoeny r17788 - twiki/branches/TWikiRelease04x02/lib/TWiki

[<de...@de...>]

Author: PeterThoeny
Date: 2009-01-19 18:30:03 -0600 (Mon, 19 Jan 2009)
New Revision: 17788
Trac url: http://develop.twiki.org/trac/changeset/17788

Modified:
   twiki/branches/TWikiRelease04x02/lib/TWiki/Render.pm
Log:
Item6171: Per RFC 5321, single quote is allwed in e-mail addresses

Modified: twiki/branches/TWikiRelease04x02/lib/TWiki/Render.pm
===================================================================
--- twiki/branches/TWikiRelease04x02/lib/TWiki/Render.pm	2009-01-20 00:26:50 UTC (rev 17787)
+++ twiki/branches/TWikiRelease04x02/lib/TWiki/Render.pm	2009-01-20 00:30:03 UTC (rev 17788)
@@ -1173,7 +1173,7 @@
     # Email addresses must always be 7-bit, even within I18N sites
 
     # Normal mailto:fo...@ex... ('mailto:' part optional)
-    $text =~ s/$STARTWW((mailto\:)?[a-zA-Z0-9-_.+]+@[a-zA-Z0-9-_.]+\.[a-zA-Z0-9-_]+)$ENDWW/_mailLink( $this, $1 )/gem;
+    $text =~ s/$STARTWW((mailto\:)?$TWiki::regex{emailAddrRegex})$ENDWW/_mailLink( $this, $1 )/gem;
 
     # Handle [[][] and [[]] links
     # Escape rendering: Change ' ![[...' to ' [<nop>[...', for final unrendered ' [[...' output