From e4e1854a4517b330cab81e716a440d21d719c13f Mon Sep 17 00:00:00 2001 From: akr Date: Mon, 19 Oct 1998 12:28:27 +0000 Subject: [PATCH] * lisp/message.el (message-make-forward-subject): Use `eword-decode-field'. * lisp/nnheader.el (make-full-mail-header): Use `eword-decode-field'. --- ChangeLog | 7 +++++++ lisp/message.el | 10 ++++++---- lisp/nnheader.el | 4 ++-- 3 files changed, 15 insertions(+), 6 deletions(-) diff --git a/ChangeLog b/ChangeLog index b024d6d..1ae3c40 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,10 @@ +1998-10-19 Tanaka Akira + + * lisp/message.el (message-make-forward-subject): Use + `eword-decode-field'. + + * lisp/nnheader.el (make-full-mail-header): Use `eword-decode-field'. + 1998-10-14 MORIOKA Tomohiko * lisp/gnus.el (gnus-version-number): Update to 6.9.5. diff --git a/lisp/message.el b/lisp/message.el index 0ca9437..4beb72c 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3914,10 +3914,12 @@ the message." (let ((funcs message-make-forward-subject-function) (subject (if message-wash-forwarded-subjects (message-wash-subject - (or (eword-decode-unstructured-field-body - (message-fetch-field "Subject")) "")) - (or (eword-decode-unstructured-field-body - (message-fetch-field "Subject")) "")))) + (or (eword-decode-field + 'Subject (message-fetch-field "Subject")) + "")) + (or (eword-decode-field + 'Subject (message-fetch-field "Subject")) + "")))) ;; Make sure funcs is a list. (and funcs (not (listp funcs)) diff --git a/lisp/nnheader.el b/lisp/nnheader.el index ca5ff54..7ae3fff 100644 --- a/lisp/nnheader.el +++ b/lisp/nnheader.el @@ -110,10 +110,10 @@ on your system, you could say something like: nil nil nil nil (if subject - (eword-decode-and-unfold-unstructured-field subject) + (eword-decode-field 'Subject subject t) ) (if from - (eword-decode-and-unfold-structured-field from) + (eword-decode-field 'From from t) ) date id references chars lines xref -- 1.7.10.4