Re: Using the new auth-source

[Raphael Kubo da Costa <kubito@gmail.com>]

Raphael Kubo da Costa wrote:

> Katsumi Yamaoka wrote:
> 
>> Raphael Kubo da Costa <kubito@gmail.com> wrote:
>>> I get the following warnings when byte-compiling Gnus:
>> 
>>> In auth-source-search:
>>> auth-source.el:581:39:Warning: reference to free variable `backend'
>>> auth-source.el:567:31:Warning: assignment to free variable `backend'
>> 
>> Mee too.  I'm not sure of it but this seems to solve the problem:
>> 
>> --- auth-source.el~	2011-02-18 01:46:05.637646083 +0000
>> +++ auth-source.el	2011-02-18 12:09:34.784606979 +0000
>> @@ -511,5 +511,5 @@
>>                       collect (nth i spec)))
>>           (found (auth-source-recall spec))
>> -         filtered-backends accessor-key found-here goal matches)
>> +         backend filtered-backends accessor-key found-here goal matches)
>>  
>>      (if (and found auth-source-do-cache)
> 
> I can confirm it solves the warnings ant the error I was getting. Now I
> get the following error when starting Gnus:
> 
> Unable to open server nnimap+Personal due to: Wrong type argument: (or
> eieio-object-p class-p), nil

OK, so the problems seems to be here (in auth-source-search):

      ;; If we didn't find anything, then we allow the backend(s) to                                                                                                                                         
      ;; create the entries.                                                                                                                                                                                 
      (when (and create
                 (not matches))
        (let ((match (apply
                      (slot-value backend 'search-function)
                      :backend backend
                      :create create
                      :delete delete
                      spec)))
          (when match
            (push (list backend match) matches))))

`backend' should probably be referenced inside a loop (such as the `dolist' 
loop before the code I've pasted). OTOH, if I do enclose the `let' call in a 
(dolist backend filtered-backends), I am prompted twice for the same data 
here (I'm finally able to connect to the IMAP server, though).