From 48457d80032cf5c9dfe03c3e28b53b55b6117ad3 Mon Sep 17 00:00:00 2001
From: Tim Pope <code@tpope.net>
Date: Sun, 9 Jul 2006 22:33:12 +0000
Subject: [PATCH 1/1] New logic for work

---
 perl/away-tpope | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/perl/away-tpope b/perl/away-tpope
index c5bf12c..e4e7adb 100755
--- a/perl/away-tpope
+++ b/perl/away-tpope
@@ -195,7 +195,7 @@ sub do_chat {
 }
 
 sub eval_chat {
-    if(($state{'chat'}||'') eq "jmwaller") {
+    if(($state{'chat'}||'') eq "jmwaller" || ($state{'chat'}||'') eq "arwen") {
 	internal_out("Work",3*60*60);
     } elsif(($state{'chat'}||'') =~ /^tpope-\d+$/) {
 	internal_out("Work",3*60*60);
-- 
2.30.2