[elpa] 230/255: optionally ignore IGS shouts

[Eric Schulte]

eschulte pushed a commit to branch go
in repository elpa.

commit 3861405e5226c2821c0b3971c30a457deabf4842
Author: Eric Schulte <address@hidden>
Date:   Thu Aug 8 12:00:49 2013 -0600

    optionally ignore IGS shouts
---
 back-ends/igs.el |    5 ++++-
 1 files changed, 4 insertions(+), 1 deletions(-)

diff --git a/back-ends/igs.el b/back-ends/igs.el
index b149d11..02387e2 100644
--- a/back-ends/igs.el
+++ b/back-ends/igs.el
@@ -33,6 +33,9 @@
 (require 'go-api)
 (require 'list-buffer)
 
+(defvar igs-ignore-shouts t
+  "Ignore shouts on the IGS server.")
+
 (defvar igs-telnet-command "telnet"
   "Telnet command used by igs.")
 
@@ -146,7 +149,7 @@ This is used to re-send messages to keep the IGS server 
from timing out.")
         (:kibitz (message "igs-kibitz: %s" content))
         (:tell   (igs-handle-tell content))
         (:beep   nil)
-        (:shout  (igs-handle-shout content))
+        (:shout  (unless igs-ignore-shouts (igs-handle-shout content)))
         (t       (message "igs-unknown: [%s]%s" type content)))
       (when (and *igs-time-last-sent*
                  (> (time-to-seconds (time-since *igs-time-last-sent*))