--- writeback.orig	2003-07-04 17:00:49.000000000 +0900
+++ writeback	2003-07-04 17:02:19.000000000 +0900
@@ -57,6 +57,7 @@
 
 use CGI qw/:standard/;
 use FileHandle;
+use Email::Valid::Loose;
 
 my $fh = new FileHandle;
 
@@ -168,6 +169,9 @@
 
         my $writeback = &$blosxom::template($path,'writeback',$blosxom::flavour) || '<p><b>Name/Blog:</b> $writeback::name$writeback::blog_name<br /><b>URL:</b> $writeback::url<br /><b>Title:</b> $writeback::title<br /><b>Comment/Excerpt:</b> $writeback::comment$writeback::excerpt</p>';
 
+        if(Email::Valid::Loose->address($param{url})){
+          $param{url} = 'mailto:' . $param{url};
+        }
         $writeback =~ s/\$writeback::(\w+)/$param{$1}/ge;
         $writebacks .= $writeback;
         $count++;