- (if (string-match ", resent," label-line) ?R ?-)
- (if (string-match ", unseen," label-line) ?\ ?-)
- (if (string-match ", stored," label-line) ?S ?-)))
+ (if (string-match ", retried," label-line) ?R ?-)
+ (if (string-match ", forwarded," label-line) ?S ?-)
+ (if (string-match ", unseen," label-line) ?U ?-)
+ (if (string-match ", resent," label-line) ?r ?-)))