Changeset 1b6b2f3 for perlglue.xs


Ignore:
Timestamp:
Oct 27, 2006, 1:17:18 PM (14 years ago)
Author:
Nelson Elhage <nelhage@mit.edu>
Branches:
master, barnowl_perlaim, debian, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
e74c01c
Parents:
dd16bdd
Message:
Refactoring the editwin code somewhat, and adding the ability to hang
arbitrary reply commands off of messages.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perlglue.xs

    rdd16bdd r1b6b2f3  
    100100                owl_cmddict_add_cmd(owl_global_get_cmddict(&g), &cmd);
    101101
    102 void queue_message(msg)
     102void queue_message(msg) 
    103103        SV *msg
    104104        PREINIT:
     
    111111                I32 len;
    112112        CODE:
     113        {
    113114                if(!SvROK(msg) || SvTYPE(SvRV(msg)) != SVt_PVHV) {
    114115                        croak("Usage: owl::queue_message($message)");
     
    131132                        }
    132133                }
     134                owl_message_set_isprivate(m);
     135                if(owl_message_is_type_admin(m)) {
     136                        if(!owl_message_get_attribute_value(m, "adminheader"))
     137                                owl_message_set_attribute(m, "adminheader", "");
     138                }
    133139
    134140                owl_global_messagequeue_addmsg(&g, m);
     141        }
Note: See TracChangeset for help on using the changeset viewer.