From: morioka <morioka>
Date: Mon, 31 Aug 1998 13:11:06 +0000 (+0000)
Subject: (eword-encode): New group.
X-Git-Tag: flim-1_9_1~6
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=3f338bb3b4885bbf2de5fdf76a6c5efce9d16353;p=elisp%2Fflim.git

(eword-encode): New group.
(eword-field-encoding-method-alist): Now a user option (was:
variable).
---

diff --git a/eword-encode.el b/eword-encode.el
index 9528a9d..2c7017d 100644
--- a/eword-encode.el
+++ b/eword-encode.el
@@ -34,7 +34,11 @@
 ;;; @ variables
 ;;;
 
-(defvar eword-field-encoding-method-alist
+(defgroup eword-encode nil
+  "Encoded-word encoding"
+  :group 'mime)
+
+(defcustom eword-field-encoding-method-alist
   '(("X-Nsubject" . iso-2022-jp-2)
     ("Newsgroups" . nil)
     ("Message-ID" . nil)
@@ -52,7 +56,15 @@ If method is `default-mime-charset', this field will be encoded as
 variable `default-mime-charset' when it must be convert into
 network-code.
 
-If method is nil, this field will not be encoded.")
+If method is nil, this field will not be encoded."
+  :group 'eword-encode
+  :type '(repeat (cons (choice :tag "Field"
+			       (string :tag "Name")
+			       (const :tag "Default" t))
+		       (choice :tag "Method"
+			       (const :tag "MIME conversion" mime)
+			       (symbol :tag "non-MIME conversion")
+			       (const :tag "no-conversion" nil)))))
 
 (defvar eword-charset-encoding-alist
   '((us-ascii		. nil)