manyset $note lno notename owner xabbrev
if {[string compare -nocase $realname $notename]} {
note-info $lno $vid $realname $island \
manyset $note lno notename owner xabbrev
if {[string compare -nocase $realname $notename]} {
note-info $lno $vid $realname $island \