alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mu-scm: add filename procedure for mime-part

Browse Source
This commit is contained in:
Dirk-Jan C. Binnema
2025-07-08 19:04:31 +03:00
parent 5fdb13fd72
commit 7b4aea432e
3 changed files with 33 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
scm/mu-scm-test.scm
View File

@ -121,10 +121,14 @@
((index . 2) (content-type . "image/jpeg") (size . 21566) (filename . "custer.jpg")))
(map (lambda (part) (mime-part->alist part)) (mime-parts msg)))
(test-equal "mime-part-0" (filename (list-ref (mime-parts msg) 0)))
(test-equal "sittingbull.jpg" (filename (list-ref (mime-parts msg) 1)))
(test-equal "custer.jpg" (filename (list-ref (mime-parts msg) 2)))
(let* ((part (list-ref (mime-parts msg) 1))
(alist (mime-part->alist part))
(fname (format #f "~a/~a" tmpdir (assoc-ref alist 'filename))))
(write-to-file part #:filename fname)
(write-to-file part #:path fname)
(test-assert (access? fname R_OK))
;; note, the 23881 is the _encoded_ size.
(test-equal 17674 (stat:size (stat fname))))