From dd05f92100001e6c18ebf2a22fa2c8a026526bef Mon Sep 17 00:00:00 2001 From: morioka Date: Thu, 29 Oct 1998 10:53:03 +0000 Subject: [PATCH] (nnheader-decode-subject): New alias. (nnheader-decode-from): New alias. (make-full-mail-header): Use `nnheader-decode-subject' and `nnheader-decode-from' instead of `eword-decode-and-unfold-unstructured-field' and `eword-decode-and-unfold-structured-field'. --- lisp/nnheader.el | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index 934f727..80e0b95 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -102,6 +102,11 @@ on your system, you could say something like: (defalias 'mail-header-xref 'mime-entity-xref-internal) (defalias 'mail-header-set-xref 'mime-entity-set-xref-internal) +(defalias 'nnheader-decode-subject + (mime-find-field-decoder 'Subject 'unfolding)) +(defalias 'nnheader-decode-from + (mime-find-field-decoder 'From 'unfolding)) + (defsubst make-full-mail-header (&optional number subject from date id references chars lines xref) "Create a new mail header structure initialized with the parameters given." @@ -110,10 +115,10 @@ on your system, you could say something like: nil nil nil nil (if subject - (eword-decode-and-unfold-unstructured-field subject) + (nnheader-decode-subject subject) ) (if from - (eword-decode-and-unfold-structured-field from) + (nnheader-decode-from from) ) date id references chars lines xref -- 1.7.10.4