- (string-match "\\`\\([^ ]+\\) \\(.*\\)" string))
- (let* ((key-id (match-string 1 string))
- (user-id (match-string 2 string))
+ (string-match "\\`\\([^ ]+\\) \\(.*\\)"
+ (cdr epg-last-status)))
+ (let* ((key-id (match-string 1 (cdr epg-last-status)))
+ (user-id (match-string 2 (cdr epg-last-status)))