[Mew-dist 15730] fix: defcustom type mismatch

NINOMIYA Hideyuki nin at example.com
2001年 1月 5日 (金) 14:53:19 JST


こんにちは	二宮@お四国 です

以前からちょっと気になってたのですが...

choice を使って type mismatch を一掃しようキャンペーンです。

# defcustom についてはいじりたいとこ他にもありますがそれはおいヽ...
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html

Index: mew-vars.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-vars.el,v
retrieving revision 1.10
diff -u -F(def -r1.10 mew-vars.el
--- mew-vars.el	2000/12/28 13:01:00	1.10
+++ mew-vars.el	2001/01/05 05:45:09
@@ -598,7 +598,7 @@ (defcustom mew-demo-picture mew-xemacs-p
 (defcustom mew-demo-sit-for 0
   "*A picture of cats is displayed if *non-nil* on XEmacs."
   :group 'mew-env
-  :type 'integer)
+  :type '(choice integer (const nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
@@ -850,12 +850,12 @@ (defcustom mew-summary-jump-bottom-then-
 (defcustom mew-end-of-message-string "[End of message]"
   "*A value inserted on the end of message buffer if *non-nil*."
   :group 'mew-message
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-end-of-part-string "[Message is continued]"
   "*A value inserted on the end of message buffer if *non-nil*."
   :group 'mew-message
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-break-pages t
   "*If *non-nil*, a message is broken by mew-page-delimiter."
@@ -907,37 +907,37 @@ (defcustom mew-reply-to nil
   "*A value inserted into Reply-To: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-fcc "+backup"
   "*A value inserted into Fcc: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-cc nil
   "*A value inserted into Cc: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-dcc nil
   "*A value inserted into Dcc: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-from nil
   "*A value inserted into From: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-organization nil
   "*A value inserted into Organization: field in Draft mode if *non-nil*.
 See also 'mew-config-alist'."
   :group 'mew-draft
-  :type 'string)
+  :type '(choice string (const nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
@@ -948,10 +948,12 @@ (defcustom mew-cite-prefix "> "
   "*Prefix of citation."
   :group 'mew-cite
   :type 'string)
+
 (defcustom mew-cite-hook nil
   "*If you want to use super-cite, (setq mew-cite-hook 'sc-cite-original)."
   :group 'mew-cite
   :type 'hook)
+
 (defcustom mew-before-cite-hook nil
   "Called in mew-summary-reply-with-citation before citation."
   :group 'mew-cite
@@ -1467,8 +1469,7 @@ (defcustom mew-pick-default-field nil
   "*Default prefix string to be appeared when inputing a pick pattern.
 A good example is \"from=\"."
   :group 'mew-summary
-  :type '(choice string
-		 (const nil)))
+  :type '(choice string (const nil)))
 
 (defvar mew-pick-field-list
   '("head=" "to=" "cc=" "subject=" "dcc=" "fcc=" "bcc=" "date="
@@ -1545,7 +1546,7 @@ (defcustom mew-cursor-mark ">"
   "*The mark in the beginning of the cursor line if
 mew-use-cursor-mark is *non-nil*. "
   :group 'mew-highlight
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-use-cursor-mark nil
   "*If *non-nil*, show mew-cursor-mark in the beginning of the cursor line.
@@ -1888,7 +1889,7 @@ (defvar mew-x-face-args nil)
 (defcustom mew-x-face-file "~/.xface"
   "*If *non-nil* and the file exists, X-Face: fields is inserted."
   :group 'mew-summary
-  :type 'file)
+  :type '(choice file (const nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;



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