[Commits] [SCM] claws branch, gtk3, updated. 4.0.0-420-g075e9a3da

[wwp at claws-mail.org]

The branch, gtk3 has been updated
       via  075e9a3da19a29e264248acdffc41c07f4fc90a5 (commit)
      from  fc475e5920fbff0135f422bc204550bf7d7997e3 (commit)

Summary of changes:
 src/plugins/perl/perl_plugin.c | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)


- Log -----------------------------------------------------------------
commit 075e9a3da19a29e264248acdffc41c07f4fc90a5
Author: wwp <subscript at free.fr>
Date:   Wed Mar 9 11:39:40 2022 +0100

    Make more strings translatable in the Perl plugin.

diff --git a/src/plugins/perl/perl_plugin.c b/src/plugins/perl/perl_plugin.c
index 57571fe4f..9b212ca90 100644
--- 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 at gmx.de> is welcome.";
+  return _("This plugin provides a Perl scripting interface for mail filters.\n"
+    "Feedback to <berndth at gmx.de> is welcome.\n");
 }
 
 const gchar *plugin_type(void)

-----------------------------------------------------------------------


hooks/post-receive
-- 
Claws Mail