--- pidgin-openpgp-0.1.orig/XEP-0027.pl
+++ pidgin-openpgp-0.1/XEP-0027.pl
@@ -32,7 +32,7 @@
 use File::Temp qw /tempfile tmpnam/;
 use Purple;
 use File::Touch;
-use Config::INI::Simple;
+use Config::Tiny;
 #use Pidgin;
 
 use constant TRUE => 1  ;
@@ -298,7 +298,7 @@
     $x->insert_data($crypted, length($crypted));
 
     # remove plain data
-    $msg = "This is a protected copy.";
+    $msg = "[This message is *encrypted* (See :XEP:`27`] ([This message is *encrypted* (See :XEP:`27`])";
     $bnode->free();
     $node->new_child("body")->insert_data($msg, length($msg));
 
@@ -383,7 +383,7 @@
     info_err_savecfg($cfgfile);
     return;
   }
-  my $conf = new Config::INI::Simple;
+  my $conf = Config::Tiny->new();
   foreach my $key (keys(%GPGMAP)) {
     $conf->{default}->{$key} = $GPGMAP{$key};
   }
@@ -393,14 +393,13 @@
 # file content:
 # JID=key
 sub LoadCfg {
-  my $conf = new Config::INI::Simple;
   my $cfgfile = Purple::Prefs::get_string("/plugins/core/openpgp/configfile");
   if (not -r $cfgfile) {
    %GPGMAP = ();
    return;
   }
 
-  $conf->read($cfgfile);
+  my $conf = Config::Tiny->read($cfgfile);
   use Data::Dumper;
   Purple::Debug::misc("openpgpplugin", Dumper($conf->{default})."\n");
   %GPGMAP = ();