diff options
| author | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-08-23 19:58:13 -0700 |
|---|---|---|
| committer | Stephen Gildea <stepheng+emacs@gildea.com> | 2021-08-23 19:59:39 -0700 |
| commit | 120b2bb67b6186427ca1a007f1a11ddf3e220c5b (patch) | |
| tree | 6f05778501766dd77d03e384b51867de6df1b7ef /lisp/mh-e/mh-junk.el | |
| parent | a849b5641044c19ee3d8a4206c7c827e2620c325 (diff) | |
| download | emacs-120b2bb67b6186427ca1a007f1a11ddf3e220c5b.tar.gz emacs-120b2bb67b6186427ca1a007f1a11ddf3e220c5b.tar.bz2 emacs-120b2bb67b6186427ca1a007f1a11ddf3e220c5b.zip | |
; migrate MH-E to mail-parse library
Move MH-E from low-level libraries to the high-level mail-parse library.
* lisp/mh-e/mh-comp.el: replace ietf-drums-parse-address with
mail-header-parse-address.
* lisp/mh-e/mh-junk.el: replace ietf-drums-parse-address with
mail-header-parse-address; remove mh-funcall-if-exists wrapper.
* lisp/mh-e/mh-xface.el: replace ietf-drums-parse-address with
mail-header-parse-address; remove fboundp wrapper.
* lisp/mh-e/mh-mime.el: replace rfc2047-decode-region with
mail-decode-encoded-word-region.
Diffstat (limited to 'lisp/mh-e/mh-junk.el')
| -rw-r--r-- | lisp/mh-e/mh-junk.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/mh-e/mh-junk.el b/lisp/mh-e/mh-junk.el index 6c3674811b0..467667f5afd 100644 --- a/lisp/mh-e/mh-junk.el +++ b/lisp/mh-e/mh-junk.el @@ -31,6 +31,8 @@ (require 'mh-e) (require 'mh-scan) +(autoload 'mail-header-parse-address "mail-parse") + ;;;###mh-autoload (defun mh-junk-blocklist (range) "Blocklist RANGE as spam. @@ -312,8 +314,7 @@ See `mh-spamassassin-blocklist' for more information." "--ham" "--local" "--no-sync"))) (message "Allowlisting sender of message %d..." msg) (setq from - (car (mh-funcall-if-exists - ietf-drums-parse-address (mh-get-header-field "From:")))) + (car (mail-header-parse-address (mh-get-header-field "From:")))) (kill-buffer nil) (if (or (null from) (equal from "")) (message "Allowlisting sender of message %d...%s" |