Changeset 3c9012b

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

Files:

• perlglue.xs (modified) (1 diff)
• perlwrap.pm (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"))

perlwrap.pm

@@ -102 +102 @@
 sub is_ping     { return 0; }
 sub is_mail     { return 0; }
-sub is_personal { return undef; }
+sub is_personal { return shift->is_private; }
 sub class       { return undef; }
 sub instance    { return undef; }