[O] Warning while publishing

[François Pinard]

Hi, gang.  While publishing Org files in batch, I see these warnings:

   Warning: defvar ignored because org-agenda-archives-mode is let-bound
   Warning: defvar ignored because org-agenda-skip-function is let-bound

which are likely innocuous, but I'm not sure.  At first, I do not
understand why agendas get into the picture of publication.

Some more detailed information, in case useful.  The publishing script
(called many times from a Makefile) is:

------------------------------------------------------------------------------->
#!/bin/dash

echo
echo "Publishing $1"
echo "Publishing $1" | sed 's/./-/g'
echo

if [ -n "$2" ]; then
  rm -f $1
  ln -s $2 $1
  cp setup.org $1
fi
emacs -Q --batch --load publish.el --eval '(org-publish "'$1'" t)' 2>&1 \
  | egrep --line-buffered -v '^(Fontifying|Publishing|Skipping) ' \
  || :
rm -f $1/*~
if [ -n "$2" ]; then
  rm -f $1/setup.org $1
fi
-------------------------------------------------------------------------------<

and publish.el is:

------------------------------------------------------------------------------->
(defvar api-org-distribution "~/emacs/_/org-mode")
(add-to-list 'load-path (concat api-org-distribution "/lisp"))

(require 'org)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((ditaa . t)))

(setq org-confirm-babel-evaluate nil
      org-export-allow-BIND t
      org-export-default-language "fr"
      org-export-with-sub-superscripts nil
      org-html-coding-system 'utf-8
      org-html-postamble nil)

(setq org-publish-project-alist

      `(("base"
         :base-directory "~/ubity/org"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html"
         :publishing-function org-html-publish-to-html)

        ("asterisk" :components ("asterisk-data" "asterisk-text"))
        ("asterisk-data"
         :base-directory "~/ubity/org/asterisk"
         :base-extension "png"
         :publishing-directory "~/ubity/html/asterisk"
         :publishing-function org-publish-attachment)
        ("asterisk-text"
         :base-directory "~/ubity/org/asterisk"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/asterisk"
         :publishing-function org-html-publish-to-html)
        
        ("control2" :components ("control2-data" "control2-text"))
        ("control2-data"
         :base-directory "~/ubity/org/control2"
         :base-extension "png"
         :publishing-directory "~/ubity/html/control2"
         :publishing-function org-publish-attachment)
        ("control2-text"
         :base-directory "~/ubity/org/control2"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/control2"
         :publishing-function org-html-publish-to-html)
        
        ("control3"
         :base-directory "~/ubity/org/control3"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/control3"
         :publishing-function org-html-publish-to-html)
        
        ("octopasty" :components ("octopasty-data" "octopasty-text"))
        ("octopasty-data"
         :base-directory "~/ubity/org/octopasty"
         :base-extension "png"
         :publishing-directory "~/ubity/html/octopasty"
         :publishing-function org-publish-attachment)
        ("octopasty-text"
         :base-directory "~/ubity/org/octopasty"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/octopasty"
         :publishing-function org-html-publish-to-html)

        ("prov_ng" :components ("prov_ng-data" "prov_ng-text"))
        ("prov_ng-data"
         :base-directory "~/ubity/org/prov_ng"
         :base-extension "png"
         :publishing-directory "~/ubity/html/prov_ng"
         :publishing-function org-publish-attachment)
        ("prov_ng-text"
         :base-directory "~/ubity/org/prov_ng"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/prov_ng"
         :publishing-function org-html-publish-to-html)

        ("ubitopasty"
         :base-directory "~/ubity/org/ubitopasty/"
         :exclude "^setup.org$"
         :publishing-directory "~/ubity/html/ubitopasty"
         :publishing-function org-html-publish-to-html)
 
       ))

(add-hook 'org-publish-before-export-hook 'save-buffer)
-------------------------------------------------------------------------------<