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

View File

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