From cfa4d2e7460c1758da177d45631352a5b95eeeb1 Mon Sep 17 00:00:00 2001
From: morioka <morioka>
Date: Mon, 16 Feb 1998 20:40:19 +0000
Subject: [PATCH] (eword-decode-ignored-field-list): New variable.
 (eword-decode-structured-field-list): New variable.
 (eword-decode-header): Refer them.

---
 eword-decode.el |   38 ++++++++++++++++++++++++++++----------
 1 file changed, 28 insertions(+), 10 deletions(-)

diff --git a/eword-decode.el b/eword-decode.el
index fdba1c8..0ad99ae 100644
--- a/eword-decode.el
+++ b/eword-decode.el
@@ -10,7 +10,7 @@
 ;;	Renamed: 1993/06/03 to tiny-mime.el
 ;;	Renamed: 1995/10/03 from tiny-mime.el (split off encoder)
 ;;	Renamed: 1997/02/22 from tm-ew-d.el
-;; Version: $Revision: 1.2 $
+;; Version: $Revision: 1.3 $
 ;; Keywords: encoded-word, MIME, multilingual, header, mail, news
 
 ;; This file is part of SEMI (SEMI is Emacs MIME Interfaces).
@@ -36,12 +36,16 @@
 (require 'mel)
 (require 'mime-def)
 
+(defgroup eword-decode nil
+  "Encoded-word decoding"
+  :group 'mime)
+
 
 ;;; @ version
 ;;;
 
 (defconst eword-decode-RCS-ID
-  "$Id: eword-decode.el,v 1.2 1998-02-16 20:21:52 morioka Exp $")
+  "$Id: eword-decode.el,v 1.3 1998-02-16 20:40:19 morioka Exp $")
 (defconst eword-decode-version (get-version-string eword-decode-RCS-ID))
 
 
@@ -180,6 +184,23 @@ such as a version of Net$cape)."
 ;;; @ for message header
 ;;;
 
+(defcustom eword-decode-ignored-field-list
+  '(newsgroups message-id path)
+  "*List of field-names to be ignored when decoding.
+Each field name must be symbol."
+  :group 'eword-decode
+  :type '(repeat symbol))
+
+(defcustom eword-decode-structured-field-list
+  '(reply-to resent-reply-to from resent-from sender resent-sender
+	     to resent-to cc resent-cc bcc resent-bcc dcc
+	     mime-version content-type content-transfer-encoding
+	     content-disposition)
+  "*List of field-names to decode as structured field.
+Each field name must be symbol."
+  :group 'eword-decode
+  :type '(repeat symbol))
+
 (defun eword-decode-header (&optional code-conversion separator)
   "Decode MIME encoded-words in header fields.
 If CODE-CONVERSION is nil, it decodes only encoded-words.  If it is
@@ -205,21 +226,18 @@ If SEPARATOR is not nil, it is used as header separator."
 		      field-name (intern
 				  (downcase (buffer-substring beg (1- p))))
 		      end (std11-field-end))
-		(cond ((memq field-name '(newsgroups message-id path))
+		(cond ((memq field-name eword-decode-ignored-field-list)
+		       ;; Don't decode
 		       )
-		      ((memq field-name '(reply-to
-					  from sender
-					  resent-reply-to resent-from
-					  resent-sender to resent-to
-					  cc resent-cc
-					  bcc resent-bcc dcc
-					  mime-version content-type))
+		      ((memq field-name eword-decode-structured-field-list)
+		       ;; Decode as structured field
 		       (let ((body (buffer-substring p end))
 			     (default-mime-charset default-charset))
 			 (delete-region p end)
 			 (insert (eword-decode-structured-field-body body))
 			 ))
 		      (t
+		       ;; Decode as unstructured field
 		       (save-restriction
 			 (narrow-to-region p end)
 			 (decode-mime-charset-region p end default-charset)
-- 
1.7.10.4