summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKyle Meyer <kyle@kyleam.com>2020-11-22 15:46:07 -0500
committerKyle Meyer <kyle@kyleam.com>2020-11-22 19:50:56 -0500
commit72640c7b22f599369d799ce11d8bb55e10c78eeb (patch)
tree5e2f6f95bf07ab7ec17683dd12bb594f2f9d3235
parent19c46db99b89acd8496392c7cfcf9e6cd9214659 (diff)
downloadpiem-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.el4
-rw-r--r--piem-notmuch.el4
-rw-r--r--piem.el5
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
diff --git a/piem.el b/piem.el
index 784d0b3..9cc6a88 100644
--- a/piem.el
+++ b/piem.el
@@ -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