From 47685d7343c1bd3c9c6c0989f9c0630079aa275d Mon Sep 17 00:00:00 2001 From: morioka Date: Sun, 25 Oct 1998 12:49:46 +0000 Subject: [PATCH] (eword-encode-field-body): fix typo. --- eword-encode.el | 40 ++++++++++++++++++++-------------------- 1 file changed, 20 insertions(+), 20 deletions(-) diff --git a/eword-encode.el b/eword-encode.el index fb068f1..3de6231 100644 --- a/eword-encode.el +++ b/eword-encode.el @@ -603,26 +603,26 @@ encoded-word. ASCII token is not encoded." (if (symbolp field-name) (setq start (+ (length (symbol-name field-name)) 2)) (setq start (+ (length field-name) 2) - field-name (intern (capitalize field-name))) - (cond ((memq field-name - '(Reply-To - From Sender - Resent-Reply-To Resent-From - Resent-Sender To Resent-To - Cc Resent-Cc Bcc Resent-Bcc - Dcc)) - (eword-encode-address-list field-body start) - ) - ((eq field-name 'In-Reply-To) - (eword-encode-in-reply-to field-body start) - ) - ((memq field-name '(Mime-Version User-Agent)) - (eword-encode-structured-field-body field-body start) - ) - (t - (eword-encode-unstructured-field-body field-body start) - )) - )))) + field-name (intern (capitalize field-name)))) + (cond ((memq field-name + '(Reply-To + From Sender + Resent-Reply-To Resent-From + Resent-Sender To Resent-To + Cc Resent-Cc Bcc Resent-Bcc + Dcc)) + (eword-encode-address-list field-body start) + ) + ((eq field-name 'In-Reply-To) + (eword-encode-in-reply-to field-body start) + ) + ((memq field-name '(Mime-Version User-Agent)) + (eword-encode-structured-field-body field-body start) + ) + (t + (eword-encode-unstructured-field-body field-body start) + )) + ))) (defun eword-in-subject-p () (let ((str (std11-field-body "Subject"))) -- 1.7.10.4