2008年12月20日

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

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."
----

--
木下達也


投稿者 xml-rpc : 2008年12月20日 14:49
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/80250
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。