Detect only Claws Mail 3.9.1 or greater

diff --git a/clawsker b/clawsker
index 497b42aed8277b3de5b3fee6c9db7c93de865cf3..1d65e246a714e3c1493f7533f62bff4627fa268b 100755 (executable)
--- a/clawsker
+++ b/clawsker
@@ -386,16 +386,12 @@ sub claws_is_running {
 sub check_claws_not_running {
     my $tmpdir = (defined $ENV{TMPDIR})? $ENV{TMPDIR}: '/tmp';
     $tmpdir = '/tmp' if ($tmpdir eq '');
 sub check_claws_not_running {
     my $tmpdir = (defined $ENV{TMPDIR})? $ENV{TMPDIR}: '/tmp';
     $tmpdir = '/tmp' if ($tmpdir eq '');

-    my $socket = (not $ALTCONFIGDIR)? $tmpdir: $CONFIGDIR;
-    $socket .= "/claws-mail-$<";
-    -S $socket and return claws_is_running ();
-    # since 3.9.0cvs36

     my $lockdir = "$tmpdir/claws-mail-$<";
     -d $lockdir and do { 
     my $lockdir = "$tmpdir/claws-mail-$<";
     -d $lockdir and do { 

-       $_ = $CONFIGDIR;
-       s/\/$//;
-        $socket = "$lockdir/" . md5_hex ($_);
-       -S $socket and return claws_is_running ();
+        $_ = $CONFIGDIR;
+        s/\/$//;
+        my $socket = "$lockdir/" . md5_hex ($_);
+        -S $socket and return claws_is_running ();

     };
     return TRUE;
 }
     };
     return TRUE;
 }