[mew-dist 28793] Re: Mew 6.2 release candidate 2

[Tatsuya Kinoshita]

On December 19, 2008, [mew-dist 28791],
kazu (at iij.ad.jp) wrote:

> ! (defcustom mew-cite-prefix nil
>     "*Prefix of citation."
>     :group 'mew-cite
>     :type 'string)

mew-cite-prefixその他について、customizeでnilを選択できるようにして
みました。いかがでしょうか。

----
--- mew-vars.el.orig
+++ mew-vars.el
@@ -605,9 +605,9 @@
 (defcustom mew-smtp-user nil
   "*The user name on your SMTP server. If not configured,
 your e-mail address is automatically set"
   :group 'mew-smtp
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-smtp-auth-list '("CRAM-MD5" "PLAIN" "LOGIN")
   "*A list of SMTP AUTH methods in the preferred order.
 Currently, \"CRAM-MD5\", \"PLAIN\", and \"LOGIN\" can be used."
@@ -678,9 +678,9 @@
 
 (defcustom mew-biff-function 'mew-biff-bark
   "*A function to be called when messages arrive."
   :group 'mew-net
-  :type 'function)
+  :type '(choice function (const nil)))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;
 ;;; POP
@@ -2121,9 +2121,9 @@
 
 (defcustom mew-cite-prefix nil
   "*Prefix of citation."
   :group 'mew-cite
-  :type 'string)
+  :type '(choice string (const nil)))
 
 (defcustom mew-cite-hook nil
   "*Hook for an external cite mechanism. If you want to use
 super-cite, (setq mew-cite-hook 'sc-cite-original)."
@@ -2133,9 +2133,9 @@
 (defcustom mew-cite-strings-function 'mew-cite-strings
   "*Function called from mew-cite-original which to create cite labels
 according to 'mew-cite-format' and 'mew-cite-fields'."
   :group 'mew-cite
-  :type 'function)
+  :type '(choice function (const nil)))
 
 (defcustom mew-before-cite-hook nil
   "Called in mew-summary-reply-with-citation before citation."
   :group 'mew-cite
@@ -2144,9 +2144,9 @@
 (defcustom mew-cite-prefix-function nil
   "*Function called on citations. A good candidate is
 'mew-cite-prefix-username"
   :group 'mew-cite
-  :type 'function)
+  :type '(choice function (const nil)))
 
 (defcustom mew-cite-prefix-confirmp nil
   "*If *non-nil*, citation prefix (such as 'kazu> ') is
 confirmed to be used."
----

-- 
木下達也