Re: org-agenda-files skips two files

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Memnon Anon <gegendosenfleisch@googlemail.com> writes:

> Hi,
>
> Eric Abrahamsen <eric@ericabrahamsen.net> writes:
>
>> I've noticed for a while that two org files in my ~/org directory never
>> get added to org-agenda-files, and I can't figure out why. My
>> org-agenda-files is set to '("~/org/"), and yet:
>>
>> (dolist (f (directory-files "~/org" t "org$"))
>>   (unless (member f org-agenda-files)
>>     (insert (format "%s: %s\n" f (file-attributes f)))))
>>
>> /home/eric/org/epubnotes.org: (nil 1 1000 100 (20752 42274) (20740 56906) (20740 56906) 10673 -rw-r--r-- nil 8655230 2052)
>> /home/eric/org/running.org: (nil 1 1000 100 (20768 26205) (20768 21290) (20768 24128) 423435 -rw-r--r-- nil 5375520 2052)
>
> Did you try edebuging defun org-agenda-files in org.el?
>
> Seems like the relevant bit that extracts all org files from the
> directory is:
>
> (apply 'append (mapcar (lambda (f)
> 			 (if (file-directory-p f)
> 			     (directory-files
> 			      f t org-agenda-file-regexp)
> 			   (list f)))
> 		       org-agenda-files))

Oh, I had read this wrong -- for some reason I thought it was just
looping over the already-populated variable.

But the real problem was that org-agenda-files somehow got written as a
customize variable, I have no idea when or how, and so was locked in
state. Total user error. Sorry about that...