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

[Hideyuki SHIRAI ( 白井秀行 )]

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

kazu> これで、いいですか？

会議してたので出遅れました。以下のパッチが必要です。

(1) 自分で function を作って設定していると mismatch になる。また、
 その function の設定ができない。

(2) :tag の説明が変。

です。

## とちゃんと動くようにしても自分じゃ絶対使わないのが、若干むな
## しい。

-- 
白井秀行 (mailto:shirai at example.com)

--- mew-vars.el.orig	Fri Aug 31 18:25:39 2001
+++ mew-vars.el	Fri Aug 31 18:58:25 2001
@@ -555,13 +555,13 @@
 					(const type) (const time)
 					(const date) (const year)
 					(const size) (const from)
-					(const subj)))
+					(const subj) (symbol :tag "Other")))
 			  (choice :tag "Symbol"
 				  :value type
 				  (const type) (const time)
 				  (const date) (const year)
 				  (const size) (const from)
-				  (const subj)))))
+				  (const subj) (symbol :tag "Other")))))
     (repeat :tag "Use default number column"
 	    (choice (integer :tag "Message number column")
 		    (string :tag "Insert string")
@@ -574,13 +574,13 @@
 				  (const type) (const time)
 				  (const date) (const year)
 				  (const size) (const from)
-				  (const subj)))
+				  (const subj) (symbol :tag "Other")))
 		    (choice :tag "Symbol"
 			    :value type
 			    (const type) (const time)
 			    (const date) (const year)
 			    (const size) (const from)
-			    (const subj))))))
+			    (const subj) (symbol :tag "Other"))))))
 
 (defcustom mew-scan-form '(type (5 date) " " (14 from) " " t (0 subj))
   "*The format in Summary mode, called scan-form. Scan-form is a list
@@ -661,7 +661,7 @@
   :type `(choice
 	  (const nil)
 	  (repeat
-	   (list (choice (string :tag "Folder regexp")
+	   (list (choice (string :tag "Folder")
 			 (repeat :tag "Folders" (string :tag "Folder"))
 			 (const :tag "Other" t))
 		 ,mew-custom-type-of-scan-form