Changeset 30e7ffd for perl


Ignore:
Timestamp:
Jun 18, 2009, 6:30:39 PM (12 years ago)
Author:
Alex Dehnert <adehnert@mit.edu>
Branches:
master, release-1.4, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9
Children:
94af438
Parents:
5550eb0
Message:
Don't zcrypt shift-R replies to zcrypted messages

In particular, if we've set $sender to force a
recipient, and the original message was not
private, then we won't use zcrypt.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/lib/BarnOwl/Message/Zephyr.pm

    rbc8275e r30e7ffd  
    179179
    180180    my $cmd;
    181     if(lc $self->opcode eq 'crypt') {
     181    if(lc $self->opcode eq 'crypt' and ( not $sender or $self->is_private)) {
     182        # Responses to zcrypted messages should be zcrypted, so long as we
     183        # aren't switching to personals
    182184        $cmd = 'zcrypt';
    183185    } else {
Note: See TracChangeset for help on using the changeset viewer.