diff options
| -rw-r--r-- | piem-gnus.el | 4 | ||||
| -rw-r--r-- | 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))))))) @@ -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 () |