[orca] Fix for bgo#618484 - Heuristic method of handling Thunderbird's flooded text insertions.

[Alejandro Leiva <aleiva src gnome org>]

commit fa871a38dbe8c5f66b2df52887faa8517799e4af
Author: Joanmarie Diggs <joanmarie diggs gmail com>
Date:   Sun Jun 13 06:02:29 2010 +0200

    Fix for bgo#618484 - Heuristic method of handling Thunderbird's flooded text insertions.

 src/orca/scripts/apps/Thunderbird/script.py |    8 ++++++++
 1 files changed, 8 insertions(+), 0 deletions(-)
---
diff --git a/src/orca/scripts/apps/Thunderbird/script.py b/src/orca/scripts/apps/Thunderbird/script.py
index b5be328..f0e5923 100644
--- a/src/orca/scripts/apps/Thunderbird/script.py
+++ b/src/orca/scripts/apps/Thunderbird/script.py
@@ -464,6 +464,14 @@ class Script(Gecko.Script):
         obj = event.source
         parent = obj.parent
 
+        # Try to stop unwanted chatter when a new message is being
+        # replied to. See bgo#618484.
+        #
+        if event.source.getRole() == pyatspi.ROLE_DOCUMENT_FRAME \
+           and event.source.getState().contains(pyatspi.STATE_EDITABLE) \
+           and event.type.endswith("system"):
+            return
+
         # Speak the autocompleted text, but only if it is different
         # address so that we're not too "chatty." See bug #533042.
         #