# HG changeset patch
# User kono
# Date 1143129230 -32400
# Node ID 6ee8b90426e73676dd620d44665c7840dd466470
# Parent  3ac4a1a56ca3975fe4792ac5ed11796c2fe9505b
*** empty log message ***

diff -r 3ac4a1a56ca3 -r 6ee8b90426e7 Calcon.pm
--- a/Calcon.pm	Thu Mar 23 22:59:13 2006 +0900
+++ b/Calcon.pm	Fri Mar 24 00:53:50 2006 +0900
@@ -3391,7 +3391,15 @@
 #	$self->print "x-custom2:$data\n" if($data);
 #    }
     if (defined $record{'group'} ) {
+	my $gno;
 	$record{'group'} =~ s/[\n\r]*//g;
+	if (! defined($self->{'-group'}->{$record{'group'}})) {
+	    # group 00 は特別らしい。
+	    $gno = $self->{-group}->{$record{'group'}}= ++$self->{'-groupno'}; 
+	} else {
+	    $gno = $self->{'-group'}->{$record{'group'}}; 
+	}
+	$self->print( "X-GNO:$gno\n");
 	$self->print( "X-GN;CHARSET=SHIFT_JIS:".$record{'group'}."\n");
     }
 
diff -r 3ac4a1a56ca3 -r 6ee8b90426e7 README
--- a/README	Thu Mar 23 22:59:13 2006 +0900
+++ b/README	Fri Mar 24 00:53:50 2006 +0900
@@ -44,6 +44,8 @@
            Mac OS X のiCal, Address Book, Applescript 経由です
   'Entourage'	=> 'Calcon::Entourage_write',
            Mac OS X のEntourage X, Applescript 経由です
+    'N702'      => 'Calcon::Vcard_N702iD_write',
+	   Docomo 携帯電話のVcard 
     'File' 	=> 'Calcon::File_write',
            独自のフラットファイルフォーマット (EUC)