Re: bug in auth-source

[Thierry Volpiatto]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> Thierry Volpiatto <thierry.volpiatto@gmail.com> writes:
>
>> 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)
>
> I think auth-source expects to be called with a string, not a number, so
> :port "587" will work, while :port 587 won't work.
>
> I'll fix this in auth-source, so that it'll accept numbers, too.
Thanks, but now:

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (void-variable winconf-name)
  (cons winconf-name (quote (gnus-current-window-configuration)))
  (cons (cons winconf-name (quote ...)) (cons (cons buffer ...) (cons ... ...)))
  (cons (cons winconf (quote ...)) (cons (cons winconf-name ...) (cons ... 
...)))
  (backquote-list* (cons winconf (quote ...)) (cons winconf-name (quote ...)) 
(cons buffer (quote ...)) (cons article (quote ...)) (cons yanked (quote ...)) 
(cons group (quote ...)) (quote (... ... ...)))
  (cons (backquote-list* (cons winconf ...) (cons winconf-name ...) (cons 
buffer ...) (cons article ...) (cons yanked ...) (cons group ...) (quote ...)) 
(cons (quote ...) (cons ... ...)))
  (cons (quote let) (cons (backquote-list* ... ... ... ... ... ... ...) (cons 
... ...)))
  (backquote-list* (quote let) (backquote-list* (cons winconf ...) (cons 
winconf-name ...) (cons buffer ...) (cons article ...) (cons yanked ...) (cons 
group ...) (quote ...)) (quote (setq mml-buffer-list nil)) (quote (add-hook ... 
...)) (quote (add-hook ... ...)) (list (quote add-hook) (quote ...) (list ... 
... ... ...)) (backquote-list* (quote gnus-alist-pull) (list ... ...) (quote 
...)) (list (quote when) (list ... group ...) (backquote-list* ... ... ...)) 
(backquote-list* (quote unwind-protect) (cons ... forms) (list ... winconf 
buffer article config yanked winconf-name) (quote ...) (list ... ... ...) (list 
... ... group) (quote ...)) (quote (message-hide-headers)) (quote 
(gnus-add-buffer)) (backquote-list* (quote gnus-configure-windows) config 
(quote ...)) (quote (... ...)))
  (\` (let (... ... ... ... ... ... ... ... ...) (setq mml-buffer-list nil) 
(add-hook ... ...) (add-hook ... ...) (add-hook ... ...) (gnus-alist-pull ... 
message-required-headers) (when ... ...) (unwind-protect ... ... ... ... ... 
... ... ...) (message-hide-headers) (gnus-add-buffer) (gnus-configure-windows 
... t) (run-hooks ...) (set-buffer-modified-p nil)))
  (let ((winconf ...) (buffer ...) (article ...) (yanked ...) (group ...)) (\` 
(let ... ... ... ... ... ... ... ... ... ... ... ... ...)))
  (lambda (config &rest forms) (let (... ... ... ... ...) (\` ...)))((quote 
message) (message-mail to subject other-headers continue nil yank-action 
send-actions return-action))
  (gnus-setup-message (quote message) (message-mail to subject other-headers 
continue nil yank-action send-actions return-action))
  (let ((buf ...) mail-buf) (gnus-setup-message (quote message) (message-mail 
to subject other-headers continue nil yank-action send-actions return-action)) 
(when switch-action (setq mail-buf ...) (switch-to-buffer buf) (apply 
switch-action mail-buf nil)))
  gnus-msg-mail(nil nil nil nil nil nil nil)
  compose-mail(nil nil nil nil)
  call-interactively(compose-mail nil nil)
--8<---------------cut here---------------end--------------->8---

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