[mhc:01851] Multi-private patch

[田中 俊明 <toc@xxxxxxxxx>]

田中です。

カテゴリが "private" なスケジュールはサマリ内で隠して表示で
きるのですが、これを複数のカテゴリに対応できるようにして使っ
ていました。といっても、もともとmhc-schedule-in-category-pが
list対応していたので大したことはやってません。よろしければ幹
にとりこんでやってください。

 本日時点の CVS HEAD に対する patch は↓のとおりです。
ではでは。

Index: mhc-summary.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-summary.el,v
retrieving revision 1.34
diff -u -r1.34 mhc-summary.el
--- mhc-summary.el	2002/12/01 03:55:06	1.34
+++ mhc-summary.el	2003/10/12 07:41:26
@@ -605,7 +605,7 @@
 		   (car schedules)
 		   (and secret
 			(mhc-schedule-in-category-p
-			 (car schedules) "private"))
+			 (car schedules) mhc-category-as-private))
 		   'mhc-summary-line-insert
 		   mailer)
 		  (setq mhc-tmp-first nil)))
@@ -664,7 +664,8 @@
 		(mhc-summary-insert-contents
 		 (car schedules)
 		 (and secret
-		      (mhc-schedule-in-category-p (car schedules) "private"))
+		      (mhc-schedule-in-category-p (car schedules)
+						  mhc-category-as-private))
 		 'mhc-todo-line-insert
 		 mailer))
 	    (setq schedules (cdr schedules)))))))
@@ -681,7 +682,8 @@
 	  (mhc-summary-insert-contents
 	   (car schedules)
 	   (and secret
-		(mhc-schedule-in-category-p (car schedules) "private"))
+		(mhc-schedule-in-category-p (car schedules)
+					    mhc-category-as-private))
 	   'mhc-memo-line-insert
 	   mailer))
 	(setq schedules (cdr schedules))))))
Index: mhc-vars.el
===================================================================
RCS file: /cvsroot/mhc/emacs/mhc-vars.el,v
retrieving revision 1.16
diff -u -r1.16 mhc-vars.el
--- mhc-vars.el	2003/10/10 12:01:53	1.16
+++ mhc-vars.el	2003/10/12 07:41:26
@@ -92,6 +92,11 @@
   :group 'mhc
   :type 'boolean)
 
+(defcustom mhc-category-as-private '("private")
+  "*String list of private categories."
+  :group 'mhc
+  :type '(repeat (string :tag "Category")))
+
 (defcustom mhc-default-network-status t
   "*Flag of the default network status."
   :group 'mhc