From 0ce70c3c72211106be19d48edc286a58721a8e03 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 22 Sep 2021 21:23:53 -0400 Subject: Prefer mail-decode-encoded-word-string to rfc2047-decode-string mail-parse.el defines mail-decode-encoded-word-string as an alias for rfc2047-decode-string. Use the higher-level wrapper for the reasons described in (emacs-mime)Interface. Message-Id: <20210923012353.256964-1-kyle@kyleam.com> --- piem-gnus.el | 4 ++-- piem.el | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/piem-gnus.el b/piem-gnus.el index 3fb8c7d..98e67c9 100644 --- a/piem-gnus.el +++ b/piem-gnus.el @@ -30,9 +30,9 @@ (require 'gnus) (require 'gnus-art) (require 'gnus-sum) +(require 'mail-parse) (require 'message) (require 'piem) -(require 'rfc2047) (defgroup piem-gnus nil "Gnus integration for piem." @@ -109,7 +109,7 @@ message itself if it looks like a patch." (widen) (and (string-match-p piem-patch-subject-re - (rfc2047-decode-string + (mail-decode-encoded-word-string (message-field-value "subject"))) (buffer-substring-no-properties (point-min) (point-max))))))) diff --git a/piem.el b/piem.el index 0c5f9cf..16ccdfc 100644 --- a/piem.el +++ b/piem.el @@ -40,10 +40,10 @@ (require 'browse-url) (require 'cl-lib) (require 'mail-extr) +(require 'mail-parse) (require 'message) (require 'mm-decode) (require 'piem-maildir) -(require 'rfc2047) (require 'subr-x) (require 'transient) (require 'url) @@ -472,7 +472,7 @@ non-nil, make the match specific for that message." (message-narrow-to-head) (mapcar (lambda (header) (when-let ((val (message-fetch-field header))) - (rfc2047-decode-string val))) + (mail-decode-encoded-word-string val))) headers)))) (defun piem-inbox-by-header-match () -- cgit v1.2.3