Gnus broken for directory mail sources

[Manoj Srivastava <srivasta@ieee.org>]

[-- Attachment #1: Type: text/plain, Size: 1457 bytes --]

Hi,

        Ever since the following commit:
--8<---------------cut here---------------start------------->8---
Author: Miles Bader <miles@gnu.org>  2008-04-25 23:29:41
Committer: Miles Bader <miles@gnu.org>  2008-04-25 23:29:41
Parent: 35bd017c4df7e8cc77c426163b164795b01390c8 (*** empty log message ***)
Child:  96631e197b8c54cbf8c3ea0fc71f50b2795b9c0d (Merge from emacs--rel--22)
Branches: debian, master, remotes/origin/master, remotes/origin/origin
Follows: merge-multi-tty-to-trunk
Precedes: 

    Merge from gnus--devo--0
    
    Revision: emacs@sv.gnu.org/emacs--devo--0--patch-1128
--8<---------------cut here---------------end--------------->8---

        I can't run gnus with the following setting:

(setq mail-sources 
      '((directory :path "~/var/spool/mail" :suffix ".spool")))

        I get the failure about "void-variable user". I think this is
 related to the change:
--8<---------------cut here---------------start------------->8---
+2008-04-25  Teodor Zlatanov  <tzz@lifelogs.com>
+
+	* 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.
+
--8<---------------cut here---------------end--------------->8---

        For the directory mail source, user name and password do not
 make sense. Reverting emacs to just before that commit allowed things
 to proceed, and for me to send in this bug report.

        manoj


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: back trace of gnus bug --]
[-- Type: text/plain, Size: 778 bytes --]

Debugger entered--Lisp error: (void-variable user)
  (or (auth-source-user-or-password "login" server (quote directory)) user)
  (let ((user ...) (password ...)) (mail-source-run-script prescript (format-spec-make 116 path) prescript-delay) (let (... ...) (dolist ... ...) found))
  (let* ((predicate nil) (suffix nil) (path nil) (postscript nil) (prescript-delay nil) (prescript nil)) (mail-source-set-1 source) (let (... ...) (mail-source-run-script prescript ... prescript-delay) (let ... ... found)))
  (mail-source-bind (directory source) (mail-source-run-script prescript (format-spec-make 116 path) prescript-delay) (let (... ...) (dolist ... ...) found))
  mail-source-fetch-directory((directory :path "~/var/spool/mail" :suffix ".spool") #[(file orig-file) "Ã\bÄÅ	†\x13