Get rid of one-time ticket feature (2):

family_signoff action no longer does use one-time ticket.

default/Makefile.am

@@ -86,6 +86,8 @@ nobase_default_DATA = \
 	scenari/d_read.private \
 	scenari/d_read.private-https \
 	scenari/d_read.public \
+	scenari/family_signoff.auth \
+	scenari/family_signoff.closed \
 	scenari/global_remind.listmaster \
 	scenari/info.open \
 	scenari/info.private \
@@ -216,8 +218,6 @@ nobase_default_DATA = \
 	web_tt2/editsubscriber.tt2 \
 	web_tt2/edit_template.tt2 \
 	web_tt2/error.tt2 \
-	web_tt2/family_signoff.tt2 \
-	web_tt2/family_signoff_request.tt2 \
 	web_tt2/footer.tt2 \
 	web_tt2/get_closed_lists.tt2 \
 	web_tt2/get_inactive_lists.tt2 \

default/mail_tt2/request_auth.tt2

 [%# request_auth.tt2 ~%]
 To: [% to %]
-[% IF conf.wwsympa_url && type == 'signoff' -%]
+[% IF conf.wwsympa_url && type == 'family_signoff' -%]
+Subject: [%"%1 / unsubscribing from family %2"|loc(conf.title,family.name)|qencode%]
+[%- ELSIF conf.wwsympa_url && type == 'signoff' -%]
 Subject: [%"%1 / unsubscribing from %2"|loc(conf.title,list.name)|qencode%]
 [%- ELSIF conf.wwsympa_url && type == 'subscribe' -%]
 Subject: [%"%1 / subscribing to %2"|loc(conf.title,list.name)|qencode%]
@@ -8,7 +10,10 @@ Subject: [%"%1 / subscribing to %2"|loc(conf.title,list.name)|qencode%]
 Subject: [%"AUTH ${keyauth} ${cmd}"|qencode%]
 [%- END %]
 
-[% IF type == 'signoff' -%]
+[% IF type == 'family_signoff' -%]
+[%|loc(family.name)-%]You requested that your e-mail address be removed from family '%1'.[%- END -%]
+
+[%- ELSIF type == 'signoff' -%]
 [%|loc(list.name)-%]You requested that your e-mail address be removed from list '%1'.[%- END -%]
 
 [%- ELSIF type == 'subscribe' -%]

default/mail_tt2/user_notification.tt2

@@ -36,17 +36,6 @@ Subject: [%"Management of list %1"|loc(list.name)|qencode%]
 [%|loc%]Owner and moderator guide:[%END%] [% 'help' | url_abs(['admin.html']) %]
 [% END -%]
 
-[% ELSIF type == 'ticket_to_family_signoff' -%]
-Subject: [%"Unsubscribing from family %1"|loc(family)|qencode%]
-[% IF context == 'family_signoff'%]
-[%|loc(family,ip)%]Somebody (probably you) requested to unsubscribe you from family %1. This query was issued from the IP address %2.
-To confirm and be removed from all the lists of this family, please click the link below: [%END%] 
-[% ELSE %]
-[%|loc(family)%]You have requested to be removed from family %1. To confirm and be removed from all the lists of this family, please click the link below: [%END%] 
-[% END %]
-  [% 'ticket' | url_abs([one_time_ticket]) %]
-
-
 [% ELSIF type == 'hundred_percent_error' -%]
 Subject: [%"No valid recipient in list %1"|loc(list.name)|qencode%]
 

default/scenari/family_signoff.auth

+# family_signoff.auth
+title.gettext need authentication
+
+!equal([sender],[email])           smtp,dkim,md5,smime -> request_auth([email])
+true()                             smtp,dkim           -> request_auth([email])
+true()                             md5,smime           -> do_it

default/scenari/family_signoff.closed

+# family_signoff.closed
+title.gettext impossible
+
+true()  smtp,dkim,md5,smime -> reject(reason='unsub_closed')

default/web_tt2/confirm_action.tt2

@@ -56,6 +56,8 @@
             [%|loc%]Add subscribers[%END%]
         [%~ ELSIF heldaction == 'del' ~%]
             [%|loc%]Delete selected email addresses[%END%]
+        [%~ ELSIF heldaction == 'family_signoff' ~%]
+            [%|loc%]Global unsubscription[%END%]
         [%~ ELSIF heldaction == 'move_user' ~%]
             [%|loc%]Changing user's email[%END%]
         [%~ ELSIF heldaction == 'remind' || heldaction == 'global_remind' ~%]
@@ -217,6 +219,16 @@
             [%|loc(shared_doc.name)%]Do you really want to delete %1?[%END%]
         </strong>
     </p>
+[%~ ELSIF confirm_action == 'family_signoff' ~%]
+    <h2>
+        <i class="fa fa-check-circle"></i>
+        [%|loc%]Global unsubscription[%END%]
+    </h2>
+    <p>
+        <strong>
+            [%|loc(family)%]Do you really want to unsubscribe from the lists in family %1?[%END%]
+        </strong>
+    </p>
 [%~ ELSIF confirm_action == 'move_list' ~%]
     <h2>
         <i class="fa fa-check-circle"></i>
@@ -387,6 +399,9 @@
         <input type="hidden" name="heldaction" value="[% heldaction %]" />
         <input type="hidden" name="listname" value="[% listname %]" />
         <input type="hidden" name="email" value="[% email %]" />
+        [% IF heldaction == 'family_signoff' ~%]
+            <input type="hidden" name="family" value="[% family %]" />
+        [%~ END %]
     [%~ ELSIF confirm_action == 'auth_add' ~%]
         [% FOREACH i = id ~%]
             <input type="hidden" name="id" value="[% i %]" />
@@ -453,6 +468,8 @@
         <input type="hidden" name="d_admin" value="[% d_admin %]" />
     [%~ ELSIF confirm_action == 'd_delete' ~%]
         <input type="hidden" name="path" value="[% shared_doc.paths.join("/") %]" />
+    [%~ ELSIF confirm_action == 'family_signoff' ~%]
+        <input type="hidden" name="email" value="[% email %]" />
     [%~ ELSIF confirm_action == 'move_user' ~%]
         <input type="hidden" name="current_email" value="[% current_email %]" />
         <input type="hidden" name="email" value="[% email %]" />
@@ -507,6 +524,7 @@
     # Confirmation common hidden fields
     #%]
     <input type="hidden" name="action" value="[% confirm_action %]" />
+    <input type="hidden" name="family" value="[% family %]" />
     <input type="hidden" name="list" value="[% list %]" />
     <input type="hidden" name="previous_action" value="[% previous_action %]" />
 

default/web_tt2/family_signoff.tt2

-<!-- family_signoff.tt2 -->
-<h3>[%|loc%]Global unsubscription[% END %]</h3>
-<p>
-    [%|loc(signing_off_email,family)%]You successfully unsubscribed the address %1 from family %2.[% END %]
-</p>
-<!-- end family_signoff.tt2 -->

default/web_tt2/family_signoff_request.tt2

-<!-- family_signoff_request.tt2 -->
-<h3>[%|loc%]Global unsubscription request[% END %]</h3>
-<p>
-    [%|loc(signing_off_email,family)%]You clicked a link to unsubscribe the address %1 from family %2.[% END %]
-</p>
-<p>
-    [%|loc(family)%]A confirmation request was just sent to this address. By clicking the link it contains, you will be completely unsubscribed from all the lists from family %1[% END %]
-</p>
-<!-- end family_signoff_request.tt2 -->

default/web_tt2/family_signoff_request2.tt2

-<!-- family_signoff_request2.tt2 -->
-<h3>[%|loc%]Global unsubscription[% END %]</h3>
-<p>
-    [%|loc(signing_off_email,family)%]You successfully unsubscribed the address %1 from family %2.[% END %]
-</p>
-<!-- end family_signoff_request2.tt2 -->

src/cgi/wwsympa.fcgi.in

@@ -9,8 +9,8 @@
 # Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 # 2006, 2007, 2008, 2009, 2010, 2011 Comite Reseau des Universites
 # Copyright (c) 2011, 2012, 2013, 2014, 2015, 2016, 2017 GIP RENATER
-# Copyright 2017, 2018, 2019 The Sympa Community. See the AUTHORS.md file at
-# the top-level directory of this distribution and at
+# Copyright 2017, 2018, 2019, 2020 The Sympa Community. See the AUTHORS.md
+# file at the top-level directory of this distribution and at
 # <https://github.com/sympa-community/sympa.git>.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -158,12 +158,12 @@ our %comm = (
     'subscribe'           => 'do_subscribe',
     #'multiple_subscribe'     => 'do_multiple_subscribe',
     #'subrequest'             => 'do_subrequest',
-    'subindex'               => 'do_subindex',
-    'suboptions'             => 'do_suboptions',
-    'signoff'                => 'do_signoff',
-    'auto_signoff'           => 'do_auto_signoff',
-    'family_signoff'         => 'do_family_signoff',
-    'family_signoff_request' => 'do_family_signoff_request',
+    'subindex'       => 'do_subindex',
+    'suboptions'     => 'do_suboptions',
+    'signoff'        => 'do_signoff',
+    'auto_signoff'   => 'do_auto_signoff',
+    'family_signoff' => 'do_family_signoff',
+    #'family_signoff_request' => 'do_family_signoff_request',
     #XXX'multiple_signoff'    => 'do_multiple_signoff',
     #'sigrequest' => 'do_sigrequest',
     'sigindex' => 'do_sigindex',
@@ -339,6 +339,7 @@ my %comm_aliases = (
     'change_email_request'    => 'move_user',
     'del_fromsig'             => 'auth_del',
     'dump'                    => 'export_member',
+    'family_signoff_request'  => 'family_signoff',
     'ignoresig'               => 'decl_del',
     'ignoresub'               => 'decl_add',
     'loginrequest'            => 'login',
@@ -412,12 +413,12 @@ our %action_args = (
     'show_cert'     => [],
     'subscribe'     => ['list'],
     #'subrequest' => ['list','email'],
-    'subindex'               => ['list'],
-    'decl_add'               => ['list'],
-    'signoff'                => ['list'],
-    'auto_signoff'           => ['list'],
-    'family_signoff'         => ['family', 'email'],
-    'family_signoff_request' => ['family', 'email'],
+    'subindex'       => ['list'],
+    'decl_add'       => ['list'],
+    'signoff'        => ['list'],
+    'auto_signoff'   => ['list'],
+    'family_signoff' => ['family'],
+    #'family_signoff_request' => ['family', 'email'],
     #'sigrequest'             => ['list',   'email'],
     'sigindex'           => ['list'],
     'decl_del'           => ['list'],
@@ -556,6 +557,7 @@ our %required_args = (
     'editfile'          => ['param.user.email'],
     'editsubscriber'    => ['param.list',       'param.user.email', 'email'],
     'export_member'        => ['param.list'],
+    'family_signoff'       => ['family', 'email'],
     'get_closed_lists'     => ['param.user.email'],
     'get_inactive_lists'   => ['param.user.email'],
     'get_latest_lists'     => ['param.user.email'],
@@ -5763,50 +5765,71 @@ sub do_auto_signoff {
     return $default_home;
 }
-sub do_family_signoff_request {
-    wwslog('info', '');
+# Became an alias of do_family_signoff().
+#sub do_family_signoff_request {
+
+sub do_family_signoff {
+    wwslog('info', '(%s, %s)', $in{'family'}, $in{'email'});
     # If the URL isn't valid, then go to home page. No need to guide the
     # user: this function is supposed to be used by clicking on autocreated
     # URL only.
-    return Conf::get_robot_conf($robot, 'default_home') unless $in{'email'};
+    my $default_home = Conf::get_robot_conf($robot, 'default_home');
+
+    my $scenario = Sympa::Scenario->new($robot, 'family_signoff')
+        or return undef;
+    return $default_home if $scenario->is_purely_closed;
+
+    return $default_home unless $in{'email'} and $in{'family'};    #FIXME
     my $family = Sympa::Family->new($in{'family'}, $robot);
-    return Conf::get_robot_conf($robot, 'default_home') unless $family;
-    Sympa::send_notify_to_user(
-        $robot,
-        'ticket_to_family_signoff',
-        $in{'email'},
-        {context => 'family_signoff', family => $family->{'name'}, ip => $ip}
-    ) or return undef;
-
-    $param->{'signing_off_email'} = $in{'email'};
-    $param->{'family'}            = $in{'family'};
-    # If OK, return the page displaying the information to the user.
-    return 1;
-}
-sub do_family_signoff {
-    wwslog('info', '');
-    $param->{'signing_off_email'} = $in{'email'};
-    $param->{'family'}            = $in{'family'};
-    unless ($in{'email'} eq $session->{'email'}) {
-        Sympa::WWW::Report::reject_report_web('user', 'cannot_do_signoff');
-        wwslog('err',
-            'User %s tried to unsubscribe address %s from family %s',
-            $session->{'email'}, $in{'email'}, $in{'family'});
+    return $default_home
+        unless $family;
+    my $email = Sympa::Tools::Text::canonic_email($in{'email'});
+    return $default_home
+        unless $email and Sympa::Tools::Text::valid_email($email);
+    $param->{'email'}  = $email;
+    $param->{'family'} = $family->{name};
+    # Action confirmed?
+    my $next_action = $session->confirm_action(
+        $in{'action'}, $in{'response_action'},
+        arg             => $email,
+        previous_action => $default_home
+    );
+    return $next_action unless $next_action eq '1';
+    my $spindle = Sympa::Spindle::ProcessRequest->new(
+        context          => $family,
+        action           => 'family_signoff',
+        sender           => 'nobody',
+        email            => $email,
+        scenario_context => {
+            sender      => 'nobody',
+            remote_host => $param->{'remote_host'},
+            remote_addr => $param->{'remote_addr'},
+        },
+    );
+    unless ($spindle and $spindle->spin) {
+        wwslog('err', 'Failed to delete user');
         return undef;
     }
-    my $family = Sympa::Family->new($param->{'family'}, $robot);
-    unless ($family
-        and $family->insert_delete_exclusion($in{'email'}, 'insert')) {
-        Sympa::WWW::Report::reject_report_web('user', 'cannot_do_signoff');
-        wwslog('err', 'Unsubscription of address %s from family %s failed',
-            $in{'email'}, $in{'family'});
-        return undef;
+    foreach my $report (@{$spindle->{stash} || []}) {
+        if ($report->[1] eq 'notice') {
+            Sympa::WWW::Report::notice_report_web(@{$report}[2, 3],
+                $param->{'action'});
+        } else {
+            Sympa::WWW::Report::reject_report_web(@{$report}[1 .. 3],
+                $param->{action});
+        }
     }
-    return 1;
+    unless (@{$spindle->{stash} || []}) {
+        Sympa::WWW::Report::notice_report_web('performed_soon', {},
+            $param->{'action'});
+        web_db_log({'parameters' => $in{'email'}, 'status' => 'success'});
+    }
+
+    return $default_home;
 }
 # Unsubcribes a user from a list

src/lib/Makefile.am

@@ -92,6 +92,7 @@ nobase_modules_DATA = \
 	Sympa/Request/Handler/decl.pm \
 	Sympa/Request/Handler/del.pm \
 	Sympa/Request/Handler/distribute.pm \
+	Sympa/Request/Handler/family_signoff.pm \
 	Sympa/Request/Handler/finished.pm \
 	Sympa/Request/Handler/get.pm \
 	Sympa/Request/Handler/global_remind.pm \

src/lib/Sympa.pm

@@ -45,7 +45,6 @@ use Sympa::Language;
 use Sympa::Log;
 use Sympa::Regexps;
 use Sympa::Spindle::ProcessTemplate;
-use Sympa::Ticket;
 use Sympa::Tools::Text;
 
 my $log = Sympa::Log->instance;
@@ -490,14 +489,6 @@ sub send_notify_to_user {
         $param->{'to'}   = $user;
         $param->{'type'} = $operation;
 
-        if ($operation eq 'ticket_to_family_signoff') {
-            $param->{one_time_ticket} =
-                Sympa::Ticket::create($user, $robot_id,
-                'family_signoff/' . $param->{family} . '/' . $user,
-                $param->{ip})
-                or return undef;
-        }
-
         unless (Sympa::send_file($that, 'user_notification', $user, $param)) {
             $log->syslog('notice',
                 'Unable to send template "user_notification" to %s', $user);

src/lib/Sympa/ConfDef.pm

@@ -8,8 +8,8 @@
 # Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 # 2006, 2007, 2008, 2009, 2010, 2011 Comite Reseau des Universites
 # Copyright (c) 2011, 2012, 2013, 2014, 2015, 2016, 2017 GIP RENATER
-# Copyright 2017, 2018, 2019 The Sympa Community. See the AUTHORS.md file at
-# the top-level directory of this distribution and at
+# Copyright 2017, 2018, 2019, 2020 The Sympa Community. See the AUTHORS.md
+# file at the top-level directory of this distribution and at
 # <https://github.com/sympa-community/sympa.git>.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -969,6 +969,13 @@ our @params = (
             'message_header,message_header.mime,message_footer,message_footer.mime,info',
         'vhost' => '1',
     },
+    {
+        'name' => 'family_signoff',
+        'gettext_id' => 'Global unsubscription',
+        'default' => 'auth',    # Compat. to <=6.2.52
+        'scenario' => 1,
+        'vhost' => '1',
+    },
 
     {'gettext_id' => 'Tag based spam filtering'},
 

src/lib/Sympa/Message/Template.pm

@@ -65,11 +65,15 @@ sub new {
     die 'Parameter $tpl is not defined'
         unless defined $tpl and length $tpl;
 
-    my ($list, $robot_id, $domain);
+    my ($list, $family, $robot_id, $domain);
     if (ref $that eq 'Sympa::List') {
         $robot_id = $that->{'domain'};
         $list     = $that;
         $domain   = $that->{'domain'};
+    } elsif (ref $that eq 'Sympa::Family') {
+        $robot_id = $that->{'robot'};    #FIXME
+        $family   = $that;
+        $domain   = $that->{'robot'};
     } elsif ($that and $that ne '*') {
         $robot_id = $that;
         $domain = Conf::get_robot_conf($that, 'domain');
@@ -170,6 +174,10 @@ sub new {
         # Compat. < 6.2.32
         $data->{'list'}{'domain'} = $list->{'domain'};
         $data->{'list'}{'host'}   = $list->{'domain'};
+    } elsif ($family) {
+        $data->{family} = {
+            name => $family->{'name'},
+        };
     }
 
     # Sign mode
@@ -246,10 +254,13 @@ sub _new_from_template {
     my $data     = shift;
     my %options  = @_;
 
-    my ($list, $robot_id);
+    my ($list, $family, $robot_id);
     if (ref $that eq 'Sympa::List') {
         $list     = $that;
         $robot_id = $list->{'domain'};
+    } elsif (ref $that eq 'Sympa::Family') {
+        $family   = $that;
+        $robot_id = $family->{'robot'};
     } elsif ($that and $that ne '*') {
         $robot_id = $that;
     } else {

src/lib/Sympa/Request.pm

@@ -144,7 +144,7 @@ sub cmd_line {
     if (ref $context eq 'Sympa::List') {
         @attrs{qw(localpart domainpart)} =
             split /\@/, Sympa::get_address($context);
-    } else {
+    } else {    #FIXME:handle Sympa::Family too
         $attrs{domainpart} = $context;
     }
     return sprintf $cmd_format,

src/lib/Sympa/Request/Handler/family_signoff.pm

+# -*- indent-tabs-mode: nil; -*-
+# vim:ft=perl:et:sw=4
+# $Id$
+
+# Sympa - SYsteme de Multi-Postage Automatique
+#
+# Copyright 2020 The Sympa Community. See the AUTHORS.md
+# file at the top-level directory of this distribution and at
+# <https://github.com/sympa-community/sympa.git>.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+
+package Sympa::Request::Handler::family_signoff;
+
+use strict;
+use warnings;
+
+use Sympa::Language;
+use Sympa::Log;
+
+use base qw(Sympa::Request::Handler);
+
+my $language = Sympa::Language->instance;
+my $log      = Sympa::Log->instance;
+
+use constant _action_regexp   => qr'reject|request_auth|do_it'i;
+use constant _action_scenario => 'family_signoff';
+use constant _context_class   => 'Sympa::Family';
+
+sub _twist {
+    my $self    = shift;
+    my $request = shift;
+
+    my $family = $request->{context};
+    my $sender = $request->{sender};
+    my $email  = $request->{email};
+
+    unless ($email eq $sender) {
+        $self->add_stash($request, 'user', 'user_not_subscriber');
+        $log->syslog('err',
+            'User %s tried to unsubscribe address %s from family %s',
+            $sender, $email, $family);
+        return undef;
+    }
+
+    unless ($family->insert_delete_exclusion($email, 'insert')) {
+        $self->add_stash($request, 'user', 'cannot_do_signoff');
+        $log->syslog('err',
+            'Unsubscription of address %s from family %s failed',
+            $email, $family);
+        return undef;
+    }
+    return 1;
+}
+
+1;
+__END__
+
+=encoding utf-8
+
+=head1 NAME
+
+Sympa::Request::Handler::family_signoff - family 'signoff' request handler
+
+=head1 DESCRIPTION
+
+Unsubscribes from all the lists belonging to specified family.
+
+=head1 SEE ALSO
+
+L<Sympa::Request::Handler>.
+
+=head1 HISTORY
+
+L<Sympa::Request::Handler::family_signoff> appeared on Sympa 6.2.53b.
+
+=cut

src/lib/Sympa/Scenario.pm

@@ -77,6 +77,7 @@ my %list_ppath_maps = (
 #FIXME: should be taken from Sympa::ConfDef.
 my %domain_ppath_maps = (
     create_list             => 'create_list',
+    family_signoff          => 'family_signoff',
     global_remind           => 'global_remind',
     move_user               => 'move_user',
     automatic_list_creation => 'automatic_list_creation',

src/lib/Sympa/Spool.pm

@@ -8,8 +8,8 @@
 # Copyright (c) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 # 2006, 2007, 2008, 2009, 2010, 2011 Comite Reseau des Universites
 # Copyright (c) 2011, 2012, 2013, 2014, 2015, 2016, 2017 GIP RENATER
-# Copyright 2017 The Sympa Community. See the AUTHORS.md file at the top-level
-# directory of this distribution and at
+# Copyright 2017, 2020 The Sympa Community. See the AUTHORS.md
+# file at the top-level directory of this distribution and at
 # <https://github.com/sympa-community/sympa.git>.
 #
 # This program is free software; you can redistribute it and/or modify
@@ -401,17 +401,23 @@ sub unmarshal_metadata {
         } @{$marshal_keys}
     };
 
-    my ($robot_id, $listname, $type, $list, $priority);
+    my ($robot_id, $family, $listname, $type, $list, $priority);
 
     $robot_id = lc($data->{'domainpart'})
         if defined $data->{'domainpart'}
         and length $data->{'domainpart'}
         and Conf::valid_robot($data->{'domainpart'}, {just_try => 1});
-    ($listname, $type) =
-        Sympa::Spool::split_listname($robot_id || '*', $data->{'localpart'});
 
-    $list = Sympa::List->new($listname, $robot_id || '*', {'just_try' => 1})
-        if defined $listname;
+    if ($data->{localpart} and 0 == index $data->{localpart}, '@') {
+        my $familyname = substr $data->{localpart}, 1;
+        $family = Sympa::Family->new($familyname, $robot_id || '*');
+    } else {
+        ($listname, $type) = Sympa::Spool::split_listname($robot_id || '*',
+            $data->{'localpart'});
+        $list =
+            Sympa::List->new($listname, $robot_id || '*', {'just_try' => 1})
+            if defined $listname;
+    }
 
     ## Get priority
     #FIXME: is this always needed?
@@ -433,7 +439,7 @@ sub unmarshal_metadata {
         $priority = Conf::get_robot_conf($robot_id, 'default_list_priority');
     }
 
-    $data->{context} = $list || $robot_id || '*';
+    $data->{context} = $list || $family || $robot_id || '*';
     $data->{'listname'} = $listname if $listname;
     $data->{'listtype'} = $type     if defined $type;
     $data->{'priority'} = $priority if defined $priority;
@@ -450,15 +456,19 @@ sub marshal_metadata {
     my $marshal_keys   = shift;
     my %options        = @_;
 
-    #FIXME: Currently only "sympa@DOMAIN" and "LISTNAME(-TYPE)@DOMAIN" are
+    # "sympa@DOMAIN", "@FAMILYNAME@DOMAIN" and "LISTNAME(-TYPE)@DOMAIN" are
     # supported.
     my ($localpart, $domainpart);
-    if (ref $message->{context} eq 'Sympa::List') {
-        ($localpart) = split /\@/,
-            Sympa::get_address($message->{context}, $message->{listtype});
-        $domainpart = $message->{context}->{'domain'};
+    my $that = $message->{context};
+    if (ref $that eq 'Sympa::List') {
+        ($localpart, $domainpart) = split /\@/,
+            Sympa::get_address($that, $message->{listtype});
+    } elsif (ref $that eq 'Sympa::Family') {
+        my $familyname;
+        ($familyname, $domainpart) = split /\@/, $that->get_id;
+        $localpart = sprintf '@%s', $familyname;
     } else {
-        my $robot_id = $message->{context} || '*';
+        my $robot_id = $that || '*';
         $localpart  = Conf::get_robot_conf($robot_id, 'email');
         $domainpart = Conf::get_robot_conf($robot_id, 'domain');
     }
@@ -963,8 +973,8 @@ encodes the metadata
   domainpart => 'domain.name',
   date       => 143599229,
 
-Metadata always includes information of B<context>: List, Robot or
-Site.  For example:
+Metadata always includes information of B<context>: List, Robot, Site
+(or Family).  For example:
 
 - Message in incoming spool bound for E<lt>listname@domain.nameE<gt>:
 
@@ -983,6 +993,27 @@ generally never changed through lifetime of instance.
 Thus, constructor of generator class should take context object as an
 argument.
 
+C<localpart> is encoded in a bit complex manner.
+
+=over
+
+=item *
+
+If the context is Site or Robot, it is a value of C<email> parameter,
+typically "C<sympa>".
+
+=item *
+
+If the context is Family, it is encoded as C<@I<family name>>.
+This encoding was added on Sympa 6.2.53b.