Re: bug in auth-source

[Thierry Volpiatto]

Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:

> Lars Ingebrigtsen <larsi@gnus.org> writes:
>
>> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>>
>>>>> smtp.gmail.com (587) + user=nil
>>>>> auth-source-search: found 1 backends matching (:max 1 :host
>>>>> "smtp.gmail.com" :port 587)
>>>>> /home/thierry/.authi: 0% (0/914)
>>>>> /home/thierry/.authi: 100% (914/914)
>>>>> auth-source-search: found 0 results (max 1/1) in nil matching (:max
>>>>> 1 :host "smtp.gmail.com" :port 587)
>>>>
>>>> The call to `auth-source-user-or-password' would be something like
>>>>
>>>> (auth-source-user-or-password "login" "smtp.gmail.com" "587")
>>> Yes, it's what i use and it works fine, i also use it in other programs
>>> with no problems.
>>
>> So it does work?  But the debug statements are saying "found 0 results"?
>> Could you try do edebug `auth-source-search' and see why it fails?
> Yes, as soon as possible.
After a quick try, it seem auth-source-search return always nil, when
it's called with spec (:max 1 :host "smtp.gmail.com" :port 587)
(It seem it is called like this when trying to send mail).

However when i do:

M-: (auth-source-search :host "smtp.gmail.com")
or
M-: (auth-source-search :host "smtp.gmail.com" :type 'netrc :max 1)

It return:

--8<---------------cut here---------------start------------->8---
((:host "smtp.gmail.com" :port "587" :user "thierry.volpiatto@gmail.com" :secret
        (lambda

[...]

))))
--8<---------------cut here---------------end--------------->8---

So when i ommit the :port key, it seem to work.

Direct call to auth-source-user-or-password works.
In other programs that use it it works also (e.g xml-weather)
And i can read my mail here with nnimap.
Only smtp fail.

Here the output of debug on entry:

--8<---------------cut here---------------start------------->8---
Debugger entered--entering a function:
* auth-source-search(:max 1 :host "smtp.gmail.com" :port 587)
  apply(auth-source-search (:max 1 :host "smtp.gmail.com" :port 587))
  auth-source-user-or-password("login" "smtp.gmail.com" 587)
  smtpmail-try-auth-methods(#<process SMTP> (enhancedstatuscodes (auth login 
plain xoauth) 8bitmime (size \35651584) enhancedstatuscodes starttls 8bitmime 
(size \35651584)) "smtp.gmail.com" 587)
  byte-code(
[...]

 [host process-buffer buffer-undo-list port process smtpmail-read-point 
get-buffer-create format "*trace of SMTP session to %s*" t erase-buffer 
smtpmail-open-stream throw done nil set-process-filter smtpmail-process-filter 
set-buffer-process-coding-system raw-text-unix make-local-variable 
smtpmail-read-response 400 smtpmail-send-command "EHLO %s" smtpmail-fqdn "HELO 
%s" current-case-table ((byte-code "rq\210\302        !\210)\302\207" [buffer 
table set-case-table] 2)) set-case-table mapcar #[(s) "\301\227!\207" [s 
intern] 2] split-string 4 "[ ]" 1 (verb xvrb 8bitmime onex xone expn size dsn 
etrn enhancedstatuscodes help xusr auth=login auth starttls) message "Unknown 
extension %s" smtpmail-find-credentials starttls process-id "STARTTLS" 
starttls-negotiate smtpmail-try-auth-methods onex xone "ONEX" verb xvrb "VERB" 
...] 8)
  smtpmail-via-smtp(("tvolpiatto@yahoo.fr") #<buffer  smtpmail temp>)
  smtpmail-send-it()
  message-send-mail(nil)
  message-send-via-mail(nil)
  message-send(nil)
  message-send-and-exit(nil)
  call-interactively(message-send-and-exit nil nil)
--8<---------------cut here---------------end--------------->8---


-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997