:%s/\n\(\(A\.$\)\@!.*\)//
Substitua um padrão correspondente:
- nova linha,
-
um grupo contendo
-
não a string
A.
seguida diretamente pelo fim de linha e - qualquer caractere até o final da linha
-
não a string
com:
- tudo combinado, exceto a nova linha inicial (ou seja, o grupo acima),
e faça isso globalmente.