From: morioka <morioka>
Date: Sat, 15 Nov 1997 15:37:34 +0000 (+0000)
Subject: (emh): New group.
X-Git-Tag: emh-0_22~1
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8587e847733f7b7b80474b2d0471a06f0b346fd8;p=elisp%2Femh.git

(emh): New group.
(emh-automatic-mime-preview): Use `defcustom'.
(emh-decode-encoded-word): Use `defcustom'.
---

diff --git a/emh.el b/emh.el
index c6187a8..1996c2f 100644
--- a/emh.el
+++ b/emh.el
@@ -8,7 +8,7 @@
 ;; Created: 1993/11/21
 ;;	Renamed: 1993/11/27 from mh-e-mime.el
 ;;	Renamed: 1997/02/21 from tm-mh-e.el
-;; Version: $Revision: 0.21 $
+;; Version: $Revision: 0.22 $
 ;; Keywords: MH, MIME, multimedia, encoded-word, multilingual, mail
 
 ;; This file is part of emh.
@@ -38,7 +38,7 @@
 ;;;
 
 (defconst emh-RCS-ID
-  "$Id: emh.el,v 0.21 1997-08-05 09:10:22 morioka Exp $")
+  "$Id: emh.el,v 0.22 1997-11-15 15:37:34 morioka Exp $")
 
 (defconst emh-version (get-version-string emh-RCS-ID))
 
@@ -46,11 +46,20 @@
 ;;; @ variable
 ;;;
 
-(defvar emh-automatic-mime-preview t
-  "*If non-nil, show MIME processed message.")
+(defgroup emh nil
+  "MIME Extension for mh-e"
+  :group 'mime
+  :group 'mh)
 
-(defvar emh-decode-encoded-word t
-  "*If non-nil, decode encoded-word when it is not MIME preview mode.")
+(defcustom emh-automatic-mime-preview t
+  "*If non-nil, show MIME processed message."
+  :group 'emh
+  :type 'boolean)
+
+(defcustom emh-decode-encoded-word t
+  "*If non-nil, decode encoded-word when it is not MIME preview mode."
+  :group 'emh
+  :type 'boolean)
 
 
 ;;; @ functions