X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Faway-tpope;fp=perl%2Faway-tpope;h=e4e7adbad435bfcdee5d168e74d5ac9f0659b671;hp=c5bf12ce6ccc7dab9db02b89f79da044b858058e;hb=48457d80032cf5c9dfe03c3e28b53b55b6117ad3;hpb=4d090af17bfa476efbfddb0257c21d1c13a47b14

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);