diff options
| author | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2021-05-02 23:25:04 +0300 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-05-02 23:25:04 +0300 |
| commit | 067c8f5cd857b43e0c66cbee4d05b3ebf8ec4b43 (patch) | |
| tree | 3718e5b02d7cf6cdba6b05ff40fc443f6337d4ca | |
| parent | 008ab087372fdfa0078fb7b2cacb3bb8481228fa (diff) | |
| parent | b5656a7991ee7435f72a358dd1b315482206ccf4 (diff) | |
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
| -rw-r--r-- | mu4e/mu4e-view-gnus.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/mu4e/mu4e-view-gnus.el b/mu4e/mu4e-view-gnus.el index d919e1e..6cd064f 100644 --- a/mu4e/mu4e-view-gnus.el +++ b/mu4e/mu4e-view-gnus.el @@ -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)) |