From 12fe2782a1c7aa060dd03a1b786d944136ae5023 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 23 Sep 2010 13:05:05 +0200
Subject: Transliterate keyword (not strip from hardcoded list).

---
 localmarkdown2sms | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'localmarkdown2sms')

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);
-- 
cgit v1.2.3