- (let ((message-id (nth 1 matching-part))
- (part-number (nth 2 matching-part))
- (content-type (nth 3 matching-part))
- (content (nth 4 matching-part)))
+ (let* ((msg (nth 1 matching-part))
+ (part (nth 2 matching-part))
+ (content (nth 3 matching-part))
+ (message-id (plist-get msg :id))
+ (part-number (plist-get part :id))
+ (content-type (plist-get part :content-type)))