diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2020-11-22 15:46:07 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2020-11-22 19:50:56 -0500 |
| commit | 72640c7b22f599369d799ce11d8bb55e10c78eeb (patch) | |
| tree | 5e2f6f95bf07ab7ec17683dd12bb594f2f9d3235 | |
| parent | 19c46db99b89acd8496392c7cfcf9e6cd9214659 (diff) | |
| download | piem-72640c7b22f599369d799ce11d8bb55e10c78eeb.tar.gz | |
gnus, notmuch: Share "attachment is patch?" logic
This will gain another condition. Avoid repeating it across two
spots.
Message-Id: <20201122204609.12604-3-kyle@kyleam.com>
| -rw-r--r-- | piem-gnus.el | 4 | ||||
| -rw-r--r-- | piem-notmuch.el | 4 | ||||
| -rw-r--r-- | piem.el | 5 |
3 files changed, 9 insertions, 4 deletions
diff --git a/piem-gnus.el b/piem-gnus.el index 237eeb1..c1551ce 100644 --- a/piem-gnus.el +++ b/piem-gnus.el @@ -69,8 +69,8 @@ message itself if it looks like a patch." (delq nil (mapcar (lambda (handle) (and (listp handle) - (member (mm-handle-media-type handle) - '("text/x-diff" "text/x-patch")) + (piem-am-patch-attachment-p + (mm-handle-media-type handle)) (with-temp-buffer (mm-display-inline handle) (buffer-substring-no-properties diff --git a/piem-notmuch.el b/piem-notmuch.el index cd3153a..ccfae75 100644 --- a/piem-notmuch.el +++ b/piem-notmuch.el @@ -91,8 +91,8 @@ message itself if it looks like a patch." (let ((patches (delq nil (mapcar (lambda (part) - (and (member (plist-get part :content-type) - '("text/x-diff" "text/x-patch")) + (and (piem-am-patch-attachment-p + (plist-get part :content-type)) (plist-get part :content))) (plist-get body :content))))) (when patches @@ -561,6 +561,11 @@ This function depends on :url being configured for entries in ;;;; Patch handling +(defun piem-am-patch-attachment-p (type) + "Return non-nil if an attachment should be treated as a patch. +TYPE is a media type such as \"text/x-patch\"." + (member type '("text/x-diff" "text/x-patch"))) + (defun piem-extract-mbox-info (&optional buffer) "Collect information from message in BUFFER. If BUFFER is nil, the current buffer is used. Any message after |