summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--piem-gnus.el4
-rw-r--r--piem.el4
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 ()