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

2005-10-17 23:35:51 +00:00 · 2005-10-17 23:35:51 +00:00 · fe8ea12043
parent e638d7abe9
commit fe8ea12043
1 changed files with 6 additions and 0 deletions
--- 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