+} elsif ($cmd =~ /^re/i) {
+ $m = 'Msg Type';
+ $old = $ref->read ? 'Read' : 'Unread';
+ $new = 'Read';
+ $ref->read(1);
+} elsif ($cmd =~ /^(nore|unre)/i) {
+ $m = 'Msg Type';
+ $old = $ref->read ? 'Read' : 'Unread';
+ $new = 'Unread';
+ $ref->read(0);