mirror of https://github.com/djcb/mu.git
mu4e-view: port of save-attachment fix
Port of #b349b24 (courtesy of danielfleischer) to not fail to detect attachments in certain messages.
This commit is contained in:
parent
128bc731a6
commit
162f5896ae
|
@ -1045,7 +1045,10 @@ containing commas."
|
|||
#'completing-read-multiple))
|
||||
dir)
|
||||
(dolist (part parts)
|
||||
(let ((fname (cdr (assoc 'filename (assoc "attachment" (cdr part))))))
|
||||
(let ((fname (or (cdr (assoc 'filename (assoc "attachment" (cdr part))))
|
||||
(cl-loop for item in part
|
||||
for name = (and (listp item) (assoc-default 'name item))
|
||||
thereis (and (stringp name) name)))))
|
||||
(when fname
|
||||
(push `(,fname . ,(cdr part)) handles)
|
||||
(push fname files))))
|
||||
|
|
Loading…
Reference in New Issue