[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 メーリングリストの案内