From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp2 ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms12 with LMTPS id OGcQADfXS2FDCQAAsNZ9tg (envelope-from ); Thu, 23 Sep 2021 01:24:07 +0000 Received: from out1.migadu.com ([2001:41d0:2:863f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp2 with LMTPS id qLubNzbXS2H2KAAAB5/wlQ (envelope-from ); Thu, 23 Sep 2021 01:24:06 +0000 X-Report-Abuse: Please report any abuse attempt to abuse@migadu.com and include these headers. DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=kyleam.com; s=key1; t=1632360246; h=from:from:reply-to:subject:subject:date:date:message-id:message-id: to:to:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding; bh=PK3Py4AcfDLFREohpalDUOXmOsGiRt6iX12ktYzjkQI=; b=ZtVUKfM5vEk6J+Wx/f44NlSE/6GYwpN1nylseR7GVElmsAqRMdsJOWAo6v2Nvyhh6yEzt5 QqksprC5cuhOnMai3JhAD4zGO9gxqsFvML9AxLFbFg/dj+4ax8jEqiWu9NYVF47Lzv3l/B JRcO2fCXsXwVmPSm2YlprNLiwRmI47qWKCOEgKdjHKGaaA3r0yeHTdQfYy0uuF3NkhrUHE /HDhASQQ7ZDL3F1i/bMlhAO5L1tVmTwfYtG7LcuMeOIC4ubTGufvaBC/ptVcCPm0885be+ YiKaxlgSiQfxQq0wnVWz0HaiBHls2clhvE53A5L9hp5lslIYsONQVfToFuZ5Og== From: Kyle Meyer To: piem@inbox.kyleam.com Subject: [PATCH] Prefer mail-decode-encoded-word-string to rfc2047-decode-string Date: Wed, 22 Sep 2021 21:23:53 -0400 Message-Id: <20210923012353.256964-1-kyle@kyleam.com> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit X-Migadu-Flow: FLOW_OUT X-Migadu-Auth-User: kyle@kyleam.com X-TUID: RKBK65xeOmlg 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. --- 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 3fb8c7d5..98e67c92 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 @@ (defun piem-gnus-am-ready-mbox () (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 0c5f9cf3..16ccdfc5 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 @@ (defun piem--message-fetch-decoded-fields (headers) (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 () base-commit: c901d3ec025773c8eae04257099fcdfe704085ac -- 2.33.0