Re: Error in `mail-source-bind' when fetching mail

[Reiner Steib <reinersteib+gmane@imap.cc>]

Hi Ted,

has this been fixed?  If not, could you look into this, please?

Bye, Reiner.

On Sat, Apr 26 2008, Christoph Conrad wrote:

> No Gnus v0.9
> GNU Emacs 23.0.60.2 (i686-pc-linux-gnu, GTK+ Version 2.12.9)
>  of 2008-04-24 on brabbelbox
> 200 news.gmane.org InterNetNews NNRP server INN 2.4.1 ready (posting ok).
>
> mail-source-fetch-file -> mail-source-bind
>
> => Mail source (file :path /var/spool/mail/cc :plugged t) error (user).  Continue? (y or n) 
>
> Backtrace see below. Obviously "user" and "password" in the let form in
> mail-source-bind can not determine the values with
> auth-source-user-or-password and try to use the variables user and
> password. This variables are not defined in that scope.
>
> My workaround is setting:
>
>      (let ((user (or
> 		  (auth-source-user-or-password
> 		   "login"
> 		   server	      ; this is "host" in auth-sources
> 		   ',(car type-source))
> 		  "")) ;; -cco-, was: user
> 	   (password (or
> 		      (auth-source-user-or-password
> 		       "password"
> 		       server	      ; this is "host" in auth-sources
> 		       ',(car type-source))
> 		      ""))) ;; -cco-, was: password
>
> Then fetching mail works for me again, but it's clearly a workaround.
>
> The suspected change is:
>
> date: 2008/04/25 18:42:18;  author: tzz;  state: Exp;  lines: +24 -4
> * mail-source.el: Load auth-source.el.
> (mail-source-bind): Add comments.  Call auth-source-user-or-password to
> get user name or password, if auth-sources is set up.
>
> With kind regards,
> Christoph
>
> Debugger entered--Lisp error: (void-variable user)
> (or (auth-source-user-or-password "login" server 'file) user)
>   (let ((user ...) (password ...)) (mail-source-run-script prescript (format-spec-make 116 mail-source-crash-box) prescript-delay) (let (...) (if ... ... 0)))
>   (let* ((path nil) (postscript nil) (prescript-delay nil) (prescript nil)) (mail-source-set-1 source) (let (... ...) (mail-source-run-script prescript ... prescript-delay) (let ... ...)))
>   (mail-source-bind (file source) (mail-source-run-script prescript (format-spec-make 116 mail-source-crash-box) prescript-delay) (let (...) (if ... ... 0)))
>   mail-source-fetch-file((file :path "/var/spool/mail/cc" :plugged t) #[(file orig-file) "Ã\bÄÅ	†.\0\b\nš?….\0Æ\nÇ\"È%‡" [file in-group orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (file :path "/var/spool/mail/cc" :plugged t) nnml-active-number] 7])
>   mail-source-fetch((file :path "/var/spool/mail/cc" :plugged t) #[(file orig-file) "Ã\bÄÅ	†.\0\b\nš?….\0Æ\nÇ\"È%‡" [file in-group orig-file nnmail-split-incoming nnml-save-mail nil nnmail-get-split-group (file :path "/var/spool/mail/cc" :plugged t) nnml-active-number] 7])
>   nnmail-get-new-mail-1(nnml nnml-save-nov "~/Mail/" "Incoming" nil nil)
>   nnmail-get-new-mail(nnml nnml-save-nov "~/Mail/" "Incoming")
>   nnml-request-scan("Incoming" "")
>   gnus-request-scan("Incoming" (nnml ""))
>   gnus-activate-group("Incoming" scan nil (nnml ""))
>   gnus-group-get-new-news-this-group(nil)
>   gnus-topic-get-new-news-this-topic(nil)
>   call-interactively(gnus-topic-get-new-news-this-topic nil nil)