talons

commit 075e9a3da19a29e264248acdffc41c07f4fc90a5
parent fc475e5920fbff0135f422bc204550bf7d7997e3
Author: wwp <subscript@free.fr>
Date:   Wed,  9 Mar 2022 11:39:40 +0100

Make more strings translatable in the Perl plugin.

Diffstat:
M
src/plugins/perl/perl_plugin.c
 | 
13
++++++-------

1 file changed, 6 insertions(+), 7 deletions(-)
diff --git a/src/plugins/perl/perl_plugin.c b/src/plugins/perl/perl_plugin.c
@@ -1609,11 +1609,11 @@ static int perl_load_file(void)
       return 0;
 
     debug_print("%s", SvPV(ERRSV,n_a));
-    message = g_strdup_printf("Error processing Perl script file: "
-            "(line numbers may not be valid)\n%s",
+    message = g_strdup_printf(_("Error processing Perl script file: "
+            "(line numbers may not be valid)\n%s"),
             SvPV(ERRSV,n_a));
-    val = alertpanel("Perl Plugin error",message,NULL,"Retry",NULL,
-		     "Abort",NULL,"Edit", ALERTFOCUS_FIRST);
+    val = alertpanel(_("Perl Plugin error"), message, NULL, _("Retry"), NULL,
+		     _("Abort"), NULL, _("Edit"), ALERTFOCUS_FIRST);
     g_free(message);
 
     if(val == G_ALERTOTHER) {
@@ -2389,9 +2389,8 @@ const gchar *plugin_name(void)
 
 const gchar *plugin_desc(void)
 {
-  return "This plugin provides a Perl scripting "
-    "interface for mail filters.\nFeedback "
-    "to <berndth@gmx.de> is welcome.";
+  return _("This plugin provides a Perl scripting interface for mail filters.\n"
+    "Feedback to <berndth@gmx.de> is welcome.\n");
 }
 
 const gchar *plugin_type(void)