diff -Naur cyrus-imapd-2.3.8/doc/man/cyradm.1.html cyrus-imapd-2.3.8.oden/doc/man/cyradm.1.html --- cyrus-imapd-2.3.8/doc/man/cyradm.1.html 2007-02-07 19:47:33.000000000 +0100 +++ cyrus-imapd-2.3.8.oden/doc/man/cyradm.1.html 2007-05-26 21:17:12.000000000 +0200 @@ -257,6 +257,13 @@ will be sent.</p> </dd> </li> +<dt><strong><a NAME="item__2fexplicit_2fannotation"><code>/explicit/annotation</code></a></strong> + +<dd> +<p>Sets the annotation <em>/explicit/annotation</em> +on <em>mailbox</em> to <em>value</em>.</p> +</dd> +</li> </dl> <dt><strong><a name="item_renamemailbox__5b_2d_2dpartition_partition_5d_oldn"><code>renamemailbox</code> [<code>--partition</code> <em>partition</em>] <em>oldname</em> <em>newname</em></a></strong> diff -Naur cyrus-imapd-2.3.8/perl/imap/cyradm.sh cyrus-imapd-2.3.8.oden/perl/imap/cyradm.sh --- cyrus-imapd-2.3.8/perl/imap/cyradm.sh 2006-11-30 18:11:23.000000000 +0100 +++ cyrus-imapd-2.3.8.oden/perl/imap/cyradm.sh 2007-05-26 21:17:12.000000000 +0200 @@ -235,6 +235,10 @@ Sets an email address to which messages injected into the server via NNTP will be sent. +=item C</explicit/annotation> + +Sets the annotation I</explicit/annotation> on I<mailbox> to I<value>. + =back =item C<renamemailbox> [C<--partition> I<partition>] I<oldname> I<newname> diff -Naur cyrus-imapd-2.3.8/perl/imap/IMAP/Admin.pm cyrus-imapd-2.3.8.oden/perl/imap/IMAP/Admin.pm --- cyrus-imapd-2.3.8/perl/imap/IMAP/Admin.pm 2006-11-30 18:11:23.000000000 +0100 +++ cyrus-imapd-2.3.8.oden/perl/imap/IMAP/Admin.pm 2007-05-26 21:17:12.000000000 +0200 @@ -795,12 +795,12 @@ return undef; } - if(!exists($values{$entry})) { - $self->{error} = "Unknown parameter $entry"; + if(exists($values{$entry})) { + $entry = $values{$entry}; + } else { + $self->{error} = "Unknown parameter $entry" unless substr($entry,0,1) eq "/"; } - $entry = $values{$entry}; - my ($rc, $msg); $value = undef if($value eq "none"); diff -Naur cyrus-imapd-2.3.8/perl/imap/IMAP/Shell.pm cyrus-imapd-2.3.8.oden/perl/imap/IMAP/Shell.pm --- cyrus-imapd-2.3.8/perl/imap/IMAP/Shell.pm 2006-11-30 18:11:24.000000000 +0100 +++ cyrus-imapd-2.3.8.oden/perl/imap/IMAP/Shell.pm 2007-05-26 21:17:12.000000000 +0200 @@ -126,7 +126,7 @@ [\&_sc_info, '[mailbox]', 'display mailbox/server metadata'], mboxcfg => - [\&_sc_mboxcfg, 'mailbox [comment|condstore|news2mail|expire|sieve|squat] value', + [\&_sc_mboxcfg, 'mailbox [comment|condstore|news2mail|expire|sieve|squat|/<explicit annotation>] value', 'configure mailbox'], mboxconfig => 'mboxcfg', reconstruct => @@ -1424,7 +1424,7 @@ while (defined ($opt = shift(@argv))) { last if $opt eq '--'; if ($opt =~ /^-/) { - die "usage: mboxconfig mailbox [comment|condstore|news2mail|expire|sieve|squat] value\n"; + die "usage: mboxconfig mailbox [comment|condstore|news2mail|expire|sieve|squat|/<explicit annotation>] value\n"; } else { push(@nargv, $opt); @@ -1433,7 +1433,7 @@ } push(@nargv, @argv); if (@nargv < 2) { - die "usage: mboxconfig mailbox [comment|condstore|news2mail|expire|sieve|squat] value\n"; + die "usage: mboxconfig mailbox [comment|condstore|news2mail|expire|sieve|squat|/<explicit annotation>] value\n"; } if (!$cyrref || !$$cyrref) { die "mboxconfig: no connection to server\n";