Transliterate keyword (not strip from hardcoded list).

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);