[Commits] [SCM] claws branch, master, updated. 3.18.0-339-g442e9ad9b

[wwp at claws-mail.org]

The branch, master has been updated
       via  442e9ad9b51bc912341969462827f1131bc5aeda (commit)
      from  115af738f9fd722de946c8afd8d3c29989fcc44b (commit)

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


- Log -----------------------------------------------------------------
commit 442e9ad9b51bc912341969462827f1131bc5aeda
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 57ea28403..f9597b342 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,"Retry","Abort","Edit",
-				ALERTFOCUS_FIRST);
+    val = alertpanel(_("Perl Plugin error"), message, _("Retry"),
+		     _("Abort"), _("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