From ec75f44566f633e5ace569c0532ecf453e619db6 Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@net-a-porter.com>
Date: Tue, 12 Jan 2010 14:39:01 +0000
Subject: avoid clobbering non-away statuses

---
 broad_away.pl | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/broad_away.pl b/broad_away.pl
index 208f4c5..77b0efb 100644
--- a/broad_away.pl
+++ b/broad_away.pl
@@ -1,6 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
+use lib '/home/dakkar/perl5/lib/perl5';
 use Net::DBus;
 
 {my $pidgin;
@@ -41,6 +42,12 @@ sub set_away {
 sub set_back {
     my $pidgin=pidgin or return Xchat::EAT_NONE;
 
+    if ($pidgin->PurpleSavedstatusGetType(
+        $pidgin->PurpleSavedstatusGetCurrent()) != 5) {
+        # if pidgin is not "away", don't touch it
+        return Xchat::EAT_NONE;
+    }
+
     my $status;
     if (!defined $prev_status) {
         $status=$pidgin->PurpleSavedstatusFindTransientByTypeAndMessage(2,undef);
-- 
cgit v1.2.3