+ (let (answer short-opponent short-file)
+ (setq short-file
+ (if (> (length file) 22)
+ (concat "..." (substring file (- (length file) 22)))
+ file))
+ (setq short-opponent
+ (if (> (length opponent) 25)
+ (save-match-data
+ (string-match " (pid [0-9]+)" opponent)
+ (concat (substring opponent 0 13) "..."
+ (match-string 0 opponent)))
+ opponent))