[Mew-dist 07827] Re: mew wishes :-)

SAKAI Kiyotaka ksakai at example.com
1999年 3月 1日 (月) 18:02:22 JST


>> In article <19990220162603A.sen_ml at example.com>, sen_ml at example.com writes:

>   -ability to configure mew settings using some kind of interface
>    (may be forms-mode based, customize-based, etc.) -- i know this is
>    low priority, and i am currently thinking of possible designs.

多分、Emacs-20.x, XEmacs-20.x に標準の M-x customize を利用するのが一
番いいでしょうね。(使い方は M-x customize を実行してみれば予想がつくと
思います。)

作業方法をしては以下のパッチのような感じで、カスタマイズ可能な変数宣言
を defvar から defcustom にひたすら置き換えていくだけですが、数が多い
上に階層化も必要だと思いますので、ちょっと大変そうですね。

あと、Emacs-19.x/Mule-2.x では使えませんが、それは仕方がないですね。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-vars.el,v
retrieving revision 1.1
diff -u -r1.1 mew-vars.el
--- mew-vars.el	1999/03/01 08:28:41	1.1
+++ mew-vars.el	1999/03/01 08:42:36
@@ -10,6 +10,12 @@
 
 (require 'mew-env)
 
+(require 'custom)
+
+(defgroup mew nil
+  "Mew mail reader"
+  :group 'mail)
+
 ;;;
 ;;; Global Constants
 ;;;
@@ -214,34 +220,62 @@
 ;; Hooks
 ;;
 
-(defvar mew-init-hook nil
-  "*Hook called at initialize time.")
-(defvar mew-summary-mode-hook nil
-  "*Hook called in Summary mode.")
-(defvar mew-virtual-mode-hook nil
-  "*Hook called in Virtual mode.")
-(defvar mew-draft-mode-hook nil
-  "*Hook called in Draft mode.")
-(defvar mew-message-mode-hook nil
-  "*Hook called in Message mode.")
-(defvar mew-message-hook nil
-  "*Hook called whenever message displayed.")
-(defvar mew-send-hook nil
-  "*Hook called before sending a message")
-(defvar mew-real-send-hook nil
-  "*Hook called before really sending a message")  
-(defvar mew-suspend-hook nil
-  "*Hook called on suspend.")
-(defvar mew-quit-hook nil
-  "*Hook called on quit.")
-(defvar mew-summary-inc-sentinel-hook nil
-  "*Hook called when inc finished.")
-(defvar mew-summary-scan-sentinel-hook nil
-  "*Hook called when scan finished.")
-(defvar mew-summary-exec-hook nil
-  "*Hook called when mew-summary-exec finished.")
-(defvar mew-syntax-format-hook nil
-  "*Hook called when mew-syntax-format is called.")
+(defcustom mew-init-hook nil
+  "*Hook called at initialize time."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-summary-mode-hook nil
+  "*Hook called in Summary mode."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-virtual-mode-hook nil
+  "*Hook called in Virtual mode."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-draft-mode-hook nil
+  "*Hook called in Draft mode."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-message-mode-hook nil
+  "*Hook called in Message mode."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-message-hook nil
+  "*Hook called whenever message displayed."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-send-hook nil
+  "*Hook called before sending a message"
+  :group 'mew
+  :type 'hook)
+(defcustom mew-real-send-hook nil
+  "*Hook called before really sending a message"
+  :group 'mew
+  :type 'hook)
+(defcustom mew-suspend-hook nil
+  "*Hook called on suspend."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-quit-hook nil
+  "*Hook called on quit."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-summary-inc-sentinel-hook nil
+  "*Hook called when inc finished."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-summary-scan-sentinel-hook nil
+  "*Hook called when scan finished."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-summary-exec-hook nil
+  "*Hook called when mew-summary-exec finished."
+  :group 'mew
+  :type 'hook)
+(defcustom mew-syntax-format-hook nil
+  "*Hook called when mew-syntax-format is called."
+  :group 'mew
+  :type 'hook)
 
 ;;
 ;;
@@ -343,23 +377,31 @@
 ;; Limits
 ;;
 
-(defvar mew-file-max-size 100000
+(defcustom mew-file-max-size 100000
   "*The max size of messages. If the size of a message is greater
-than mew-file-max-size, Mew skips MIME analysis.")
+than mew-file-max-size, Mew skips MIME analysis."
+  :group 'mew
+  :type 'integer)
 
-(defvar mew-header-max-length 100
+(defcustom mew-header-max-length 100
   "*If the length of a header exceeds this value, 
 it is not arranged nor MIME decoded.
-See also mew-header-max-depth.")
+See also mew-header-max-depth."
+  :group 'mew
+  :type 'integer)
 
-(defvar mew-header-max-depth 50
+(defcustom mew-header-max-depth 50
   "*A value to decide loop depth for header field syntax analysis.
 It was known as mew-loop-depth.
-See also mew-header-max-length.")
+See also mew-header-max-length."
+  :group 'mew
+  :type 'integer)
 
-(defvar mew-references-max-count 3
+(defcustom mew-references-max-count 3
   "*A value to the max number of message IDs in References: when reply.
-Non-integer means no limit.")
+Non-integer means no limit."
+  :group 'mew
+  :type 'integer)
 
 ;; 
 ;; Mail Addresses


Mew-dist メーリングリストの案内