Re: [PATCH] sieve-manage: use auth-source

[ludo@gnu.org (Ludovic Courtès)]

Hello,

Julien Danjou <julien@danjou.info> writes:

> I don't use the Sieve generation from Gnus itself, I just used
> sieve-manage to edit my sieve rules.

Then I’m interested in your input on this.  :-)

‘sieve-manage’ fails for me:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  string-match("DIGEST-MD5" nil)
  sieve-manage-capability("SASL" "DIGEST-MD5" " *sieve* imap.example.com:2000")
  sieve-manage-digest-md5-p(" *sieve* imap.example.com:2000")
  sieve-manage-open("imap.example.com")
  sieve-open-server("imap.example.com" nil)
  sieve-manage("imap.example.com")
  call-interactively(sieve-manage t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---

Connecting to that server on port 2000 shows this:

--8<---------------cut here---------------start------------->8---
Connected to imap.example.com.
Escape character is '^]'.
"IMPLEMENTATION" "dovecot"
"SASL" ""
"SIEVE" "comparator-i;ascii-numeric fileinto reject vacation imapflags notify include envelope body relational regex subaddress copy"
"STARTTLS"
"RENAME"
OK "mail server - Dovecot ready."
--8<---------------cut here---------------end--------------->8---

Changing ‘sieve-manage-is-string’ to look for "\"\\([^\"]*\\)\"" (‘*’
instead of ‘+’), things fail later on:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Couldn't figure out authenticator for server")
  signal(error ("Couldn't figure out authenticator for server"))
  error("Couldn't figure out authenticator for server")
  sieve-manage-open("imap.example.com")
  sieve-open-server("imap.example.com" nil)
  sieve-manage("imap.example.com")
  call-interactively(sieve-manage t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)
--8<---------------cut here---------------end--------------->8---

Any idea what could go wrong or how I should proceed to debug further?
It seems to be trying to use SASL, which isn’t supported by this server.

(That’s with Gnus 5.13 from GNU Emacs 23.2.1.)

Thanks,
Ludo’.