CVS: sylpheedclaws/plugins/perl/src perl_plugin.c,1.19.2.19,1.19.2.20

[email protected] Fri, 15 Dec 2006 20:13:02 +0000
Newsgroups gmane.mail.sylpheed.claws.cvs
Message-ID <[email protected]>
Update of /pack/anoncvs/sylpheedclaws/plugins/perl/src
In directory sunsite.dk:/tmp/cvs-serv2566/src

Modified Files:
      Tag: gtk2
	perl_plugin.c 
Log Message:
2006-12-15 [ticho]	0.9.6cvs1

	* configure.ac
	* src/perl_plugin.c
		Use check_plugin_version() for version check. 

Index: perl_plugin.c
===================================================================
RCS file: /pack/anoncvs/sylpheedclaws/plugins/perl/src/perl_plugin.c,v
retrieving revision 1.19.2.19
retrieving revision 1.19.2.20
diff -u -d -r1.19.2.19 -r1.19.2.20
--- perl_plugin.c	2006/11/27 08:20:53	1.19.2.19
+++ perl_plugin.c	2006/12/15 20:12:58	1.19.2.20
@@ -2031,15 +2031,9 @@
   *env  = NULL;
 
   /* version check */
-  if((claws_get_version() > VERSION_NUMERIC)) {
-    *error = g_strdup("Your Claws Mail version is newer than the version "
-		      "the Perl plugin was built with");
-    return -1;
-  }
-  if((claws_get_version() < MAKE_NUMERIC_VERSION(2, 4, 0, 81))) {
-    *error = g_strdup("Your Claws Mail version is too old for the Perl plugin");
-    return -1;
-  }
+	if(!check_plugin_version(MAKE_NUMERIC_VERSION(2, 6, 1, 41),
+				VERSION_NUMERIC, "Perl", error))
+		return -1;
 
   /* register hook for automatic and manual filtering */
   filtering_hook_id = hooks_register_hook(MAIL_FILTERING_HOOKLIST,