Changeset 3c9012b for perlglue.xs

Timestamp:

Oct 29, 2006, 6:36:56 PM (18 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, barnowl_perlaim, debian, release-1.10, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

e7ac2b6

Parents:

421c8ef7

Message:

Adding some support for distinguishing personals/private with messages generated from perl

File:

• perlglue.xs (modified) (1 diff)

perlglue.xs

@@ -135 +135 @@
                         } else if(!strcmp(key, "direction")) {
                                 owl_message_set_direction(m, owl_message_parse_direction(val));
+                        } else if(!strcmp(key, "isprivate")) {
+                                SV * v = hv_iterval(hash, ent);
+                                if(SvTRUE(v)) {
+                                        owl_message_set_isprivate(m);
+                                }
                         } else {
                                 owl_message_set_attribute(m, key, val);
                         }
                 }
-                owl_message_set_isprivate(m);
                 if(owl_message_is_type_admin(m)) {
                         if(!owl_message_get_attribute_value(m, "adminheader"))