From fe8ea12043e23b58417d8fbf56937113d1410fe8 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@trifocus.net>
Date: Mon, 17 Oct 2005 23:35:51 +0000
Subject: [PATCH] Bugfix: some FAMILY: 1 OPCODE: f packets have extra
 information. (if snac flags > 0?)

---
 contrib/aim/aim.factor | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/contrib/aim/aim.factor b/contrib/aim/aim.factor
index c636b3e633..c9fb1893bf 100644
--- 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