Fix error in mu4e-view-gnus-save-mime-parts

where `handle' may not be a list (here a marker when I had error).

So ensure it is a list.
This commit is contained in:
Thierry Volpiatto 2021-02-23 21:24:44 +01:00
parent 775498937d
commit 117f438e10
No known key found for this signature in database
GPG Key ID: 08FDB07A7433A7F2
1 changed files with 1 additions and 1 deletions

View File

@ -1435,7 +1435,7 @@ attachments is done with `completing-read-multiple', in this case use
(goto-char (point-min))
(while (not (eobp))
(let ((handle (get-text-property (point) 'gnus-data)))
(when handle
(when (consp handle)
(let ((fname (cdr (assoc 'filename (assoc "attachment" (cdr handle))))))
(when fname
(push `(,fname . ,handle) handles)