emacs
/
mu
mirror of https://github.com/djcb/mu.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Fix #2006 by using cl-loop in mu4e-action-view-in-browser instead of seq 

Using cl-loop is much simpler and readable, than using mapconcat+seq+seq.
Also it avoids requiring seq (which is not done actually).
This commit is contained in:
Thierry Volpiatto 2021-05-02 18:32:07 +02:00
parent 008ab08737
commit b5656a7991
No known key found for this signature in database
GPG Key ID: 08FDB07A7433A7F2
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
mu4e/mu4e-view-gnus.el
View File

@ -79,12 +79,9 @@ etc."
(insert-file-contents-literally
(mu4e-message-field msg :path) nil nil nil t)
(run-hooks 'gnus-article-decode-hook)
(let ((header (mapconcat 'identity
(seq-filter (lambda(hdr) hdr)
(seq-map (lambda(field)
(when-let ((val (message-fetch-field field)))
(format "%s: %s" (capitalize field) val)))
'("from" "to" "cc" "date" "subject"))) "\n"))
(let ((header (cl-loop for field in '("from" "to" "cc" "date" "subject")
when (message-fetch-field field)
concat (format "%s: %s\n" (capitalize field) it)))
(parts (mm-dissect-buffer t t)))
;; If singlepart, enforce a list.
(when (and (bufferp (car parts))