Bugfix: some FAMILY: 1 OPCODE: f packets have extra information. (if snac flags ...

diff --git a/contrib/aim/aim.factor b/contrib/aim/aim.factor
index c636b3e6338b967e27701849ba4b8e5ec4e26d49..c9fb1893bf21413d64751776457cb4b161807f5e 100644 (file)
--- a/contrib/aim/aim.factor
+++ b/contrib/aim/aim.factor
@@ -373,6 +373,12 @@ M: object get-banned ( name -- <buddy> )
     ] unless ;
 
 : handle-online-info
+    snac-flags get 32768 = [
+        head-short drop
+        head-short drop
+        head-short drop
+        head-short drop
+    ] when
     (handle-online-info)
     ; FAMILY: 1 OPCODE: f