diff --git a/src/common.h b/src/common.h
index c9c4e545..73de4b78 100644
--- a/src/common.h
+++ b/src/common.h
@@ -6,7 +6,7 @@
 #define IRSSI_GLOBAL_CONFIG "irssi.conf" /* config file name in /etc/ */
 #define IRSSI_HOME_CONFIG "config" /* config file name in ~/.irssi/ */
 
-#define IRSSI_ABI_VERSION 29
+#define IRSSI_ABI_VERSION 30
 
 #define DEFAULT_SERVER_ADD_PORT 6667
 #define DEFAULT_SERVER_ADD_TLS_PORT 6697
diff --git a/src/perl/ui/Formats.xs b/src/perl/ui/Formats.xs
index 8e34b7b9..9e5ce0c2 100644
--- a/src/perl/ui/Formats.xs
+++ b/src/perl/ui/Formats.xs
@@ -137,3 +137,11 @@ print(dest, str)
 	char *str
 CODE:
 	printtext_dest(dest, "%s", str);
+
+void
+set_level(dest, level)
+	Irssi::UI::TextDest dest
+	int level
+CODE:
+	dest->level = level;
+