(cons (epg--make-sub-key-1 (car lines))
(epg-key-sub-key-list (car keys)))))
((equal (aref (car lines) 0) "uid")
- (setq string (copy-sequence (aref (car lines) 9)))
+ (setq string (copy-sequence (aref (car lines) 9))
+ index 0)
(while (string-match "\"" string index)
(setq string (replace-match "\\\"" t t string)
index (1+ (match-end 0))))