(concat "Managesieve username for "
sieve-manage-server ": ")
(or user sieve-manage-default-user))))
(setq passwd (or sieve-manage-password
(sieve-manage-read-passwd
(concat "Managesieve username for "
sieve-manage-server ": ")
(or user sieve-manage-default-user))))
(setq passwd (or sieve-manage-password
(sieve-manage-read-passwd