[mew-dist 18656] Re: mew-cite-fields

[Hideyuki SHIRAI ( 白井秀行 )]

# 暇潰しモード(おおうそ ;_;)

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 18643] Re: mew-cite-fields
Message-ID: <20010831.102923.128890498.kazu at example.com>
Date: Fri, 31 Aug 2001 10:29:23 +0900 (JST)

kazu> > で、それぞれを M-x customize-variable してみると一目瞭然。
kazu> 
kazu> おお。他にも M-x customize-variable して、
kazu> 
kazu> this option is unchanged from its standard setting. (mismatch)
kazu> 
kazu> と表示される変数があれば、お知らせ下さい。(_ _)

全部見たわけでないのですが、あやしそうなところをためしたら、
案の定 mew-scan-form と mew-scan-form-list が mismatch になりま
した。

で、まったく自信は無いのですが、こんな感じでとりあえず大丈夫みた
いです。実験しないと動くかどうか全然わからなかったので、適当な名
前に変えて試してみましたが、そのまま送ります。

# ためしているうちに、何をやっているのかまったくわからなくなっちゃ
# うのでつけましたが、:tag の英語は適当です。

(setq hoge-custom-type
      '(choice
	(cons :tag "Setup message number column"
	      (integer :tag "Message number column" )
	      (repeat (choice (string :tag "Insert string")
			      (const :tag "Thread indent" t)
			      (list :tag "Width and symbol"
				    :value (0 type)
				    (integer :tag "Display width")
				    (choice :tag "Symbol"
					    :value type
					    (const type) (const time)
					    (const date) (const year)
					    (const size) (const from)
					    (const subj)))
			      (choice :tag "Symbol"
				      :value type
				      (const type) (const time)
				      (const date) (const year)
				      (const size) (const from)
				      (const subj)))))
	(repeat :tag "Use default number column"
		(choice (integer :tag "Message number column")
			(string :tag "Insert string")
			(const :tag "Thread indent" t)
			(list :tag "Width and symbol"
			      :value (0 type)
			      (integer :tag "Display width")
			      (choice :tag "Symbol"
				      :value type
				      (const type) (const time)
				      (const date) (const year)
				      (const size) (const from)
				      (const subj)))
			(choice :tag "Symbol"
				:value type
				(const type) (const time)
				(const date) (const year)
				(const size) (const from)
				(const subj))))))

(setq hoge-custom-type2
      `(choice
	(const nil)
	(repeat
	 (list (choice (string :tag "Folder regexp")
		       (repeat :tag "Folders" (string :tag "Folder"))
		       (const :tag "Other" t))
	       ,hoge-custom-type
	       (choice (integer :tag "Thread indent column")
		       (const nil))))))

(defcustom hoge-scan-form '(type (5 date) " " (14 from) " " t (0 subj))
  "hoge"
  :group 'mew-summary
  :type hoge-custom-type)

(defcustom hoge-scan-form-list nil
  "hoge"
  :group 'mew-summary
  :type hoge-custom-type2)


P.S.

	 (list (choice (string :tag "Folder regexp")
の行は
	 (list (choice (list :tag "Folder regexp" (string :tag "regexp"))

じゃないかとも思う。

-- 
白井秀行＠ご参考程度