diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2021-01-04 01:54:48 +0000 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2021-01-03 22:44:19 -0500 |
| commit | 57f802b2a43ac64c28a5a9ddb9da0afaf910975e (patch) | |
| tree | e9b2d38b28c3846fa405c95619ebfca9bf19757f /piem-gnus.el | |
| parent | f5d67001ed706407b8fcda5447da64a4c215f0c2 (diff) | |
| download | piem-57f802b2a43ac64c28a5a9ddb9da0afaf910975e.tar.gz | |
gnus, notmuch: Absorb now-shared bits into patch attachment helper
With the previous commit, -notmuch more closely follows -gnus in its
handling of attachments (e.g., getting the content with
mm-display-inline). Replace piem-am-patch-attachment-p with a helper
that has this shared logic.
Message-Id: <20210104015435.18397-4-kyle@kyleam.com>
Diffstat (limited to 'piem-gnus.el')
| -rw-r--r-- | piem-gnus.el | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/piem-gnus.el b/piem-gnus.el index c6b9d0c..5f10be8 100644 --- a/piem-gnus.el +++ b/piem-gnus.el @@ -66,18 +66,8 @@ message itself if it looks like a patch." (when (derived-mode-p 'gnus-article-mode 'gnus-summary-mode) (cond (gnus-article-mime-handles - (when-let ((patches - (delq nil - (mapcar (lambda (handle) - (and (listp handle) - (piem-am-patch-attachment-p - (mm-handle-media-type handle) - (mm-handle-filename handle)) - (with-temp-buffer - (mm-display-inline handle) - (buffer-substring-no-properties - (point-min) (point-max))))) - gnus-article-mime-handles)))) + (when-let ((patches (delq nil (mapcar #'piem-am-extract-attached-patch + gnus-article-mime-handles)))) (cons (lambda () (dolist (patch patches) (insert patch))) |