mirror of https://github.com/djcb/mu.git
Merge pull request #2118 from danielfleischer/attachment
Attachments Saving Improvement
This commit is contained in:
commit
b349b24689
|
@ -491,7 +491,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