diff options
| -rwxr-xr-x | localmarkdown2sms | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/localmarkdown2sms b/localmarkdown2sms index 9b227e5..bee8c74 100755 --- a/localmarkdown2sms +++ b/localmarkdown2sms @@ -81,8 +81,10 @@ if ($stripprefix) { $sms_errto2 =~ s/^\+//g; } -# strip non-word chars from keyword (and use only first chunk of word chars) -$key =~ s/^.*?([a-zæøåÆØÅ!@\/][a-zæøåÆØÅ0-9-]+).*?$/$1/; +# strip non-word chars from keyword +$key = transliterate($sms_cp, $key); +# use only first chunk of word chars as keyword +$key =~ s/^(\S+).*?$/$1/; if ($debug) { Log::Log4perl->easy_init($DEBUG); |