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

Merge pull request #2007 from thierryvolpiatto/Fix_mu4e-action-view-in-browser 

Fix #2006 by using cl-loop in mu4e-action-view-in-browser instead of seq
This commit is contained in:
Dirk-Jan C. Binnema 2021-05-02 23:25:04 +03:00 committed by GitHub
parent 008ab08737 b5656a7991
commit 067c8f5cd8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
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))