From mboxrd@z Thu Jan  1 00:00:00 1970
From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
Subject: Errors with current version (git pull'ed at 10:30 CET)
Date: Tue, 28 Jun 2011 10:46:31 +0200
Message-ID: <80hb7apcm0.fsf@somewhere.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: quoted-printable
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=unsubscribe>
List-Archive: </archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode-mXXj517/zsQ@public.gmane.org>
List-Help: <mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request-mXXj517/zsQ@public.gmane.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org

Hello,

Just want to report 2 errors I got with the latest version of Org-mode. I'm
sure (with 5 nine, ie 99.999%) that I did not change anything in my setup
which could explain this.

Both errors were generated after a fresh Emacs startup.

* First

I try to open the file Work.org in which I had an open clock, on task "TODO
Organize work" (misc for project organization, etc.).

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  looking-at(nil)
  (and (looking-at org-complex-heading-regexp) (match-string 4))
  (save-excursion (goto-char (cdr resume-clock)) (org-back-to-heading t) (a=
nd (looking-at org-complex-heading-regexp) (match-string 4)))
  (save-current-buffer (set-buffer (find-file ...)) (save-excursion (goto-c=
har ...) (org-back-to-heading t) (and ... ...)))
  (with-current-buffer (find-file (car resume-clock)) (save-excursion (goto=
-char ...) (org-back-to-heading t) (and ... ...)))
  (concat "Resume clock (" (with-current-buffer (find-file ...) (save-excur=
sion ... ... ...)) ") ")
  (y-or-n-p (concat "Resume clock (" (with-current-buffer ... ...) ") "))
  (or (not org-clock-persist-query-resume) (y-or-n-p (concat "Resume clock =
(" ... ") ")))
  (and resume-clock org-clock-persist (file-exists-p (car resume-clock)) (o=
r (not org-clock-persist-query-resume) (y-or-n-p ...)))
  (if (and resume-clock org-clock-persist (file-exists-p ...) (or ... ...))=
 (progn (when ... ...)))
  (when (and resume-clock org-clock-persist (file-exists-p ...) (or ... ...=
)) (when (file-exists-p ...) (with-current-buffer ... ... ...)))
  (if (not (file-readable-p filename)) (message "Not restoring clock data; =
%s not found" org-clock-persist-file) (message "%s" "Restoring clock data")=
 (setq org-clock-loaded t) (load-file filename) (when stored-clock-history =
(save-window-excursion ...)) (when (and resume-clock org-clock-persist ... =
...) (when ... ...)))
  (let ((filename ...) (org-clock-in-resume ...) resume-clock stored-clock-=
history) (if (not ...) (message "Not restoring clock data; %s not found" or=
g-clock-persist-file) (message "%s" "Restoring clock data") (setq org-clock=
-loaded t) (load-file filename) (when stored-clock-history ...) (when ... .=
..)))
  (progn (let (... ... resume-clock stored-clock-history) (if ... ... ... .=
.. ... ... ...)))
  (if (and org-clock-persist (not org-clock-loaded)) (progn (let ... ...)))
  (when (and org-clock-persist (not org-clock-loaded)) (let (... ... resume=
-clock stored-clock-history) (if ... ... ... ... ... ... ...)))
  org-clock-load()
  run-hooks(text-mode-hook outline-mode-hook org-mode-hook)
  apply(run-hooks (text-mode-hook outline-mode-hook org-mode-hook))
  run-mode-hooks(org-mode-hook)
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer pfitools.org> "~/emacs/site-lisp/pfitools.o=
rg" nil nil "~/emacs/site-lisp/pfitools.org" ((2816 6 . 35967) (21669 . 365=
92)))
  find-file-noselect("~/emacs/site-lisp/pfitools.org" nil nil nil)
  ad-Orig-find-file("~/emacs/site-lisp/pfitools.org" nil)
  find-file("~/emacs/site-lisp/pfitools.org")
  (progn (find-file file))
  (if file (progn (find-file file)))
  (when file (find-file file))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed (=
current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babe=
l-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) (save-windo=
w-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while=
 ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char po=
int))
  (org-babel-map-src-blocks file (let* (... ...) (when source-name ...)))
  (let ((lob-ingest-count 0)) (org-babel-map-src-blocks file (let* ... ...)=
) (message "%d src block%s added to Library of Babel" lob-ingest-count (if =
... "s" "")) lob-ingest-count)
  org-babel-lob-ingest("~/emacs/site-lisp/pfitools.org")
  (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster=
-for-undo nil) (quote (defadvice undo ... "Make point and context visible a=
fter an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (l=
ambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-head=
line t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis=
-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-e=
mpty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)=
) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t)=
 (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines=
") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (sec=
tion "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-comple=
tion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse tre=
es") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil=
) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-requir=
e (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empt=
y-line-terminates-plain-lists nil) (setq org-table-use-standard-references =
(quote from)) (section "3.1 The (org)Built-in table editor") (setq org-tabl=
e-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet=
") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tab=
les nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-w=
eb-links t) (defun org-toggle-link-style nil "Toggle between descriptive an=
d literal link styles." (interactive) (if ... ... ... ...) (org-restart-fon=
t-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-se=
tup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (or=
g)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-st=
ate-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-=
keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface=
 my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (d=
efface my/org-started-kwd-face (quote ...) "Face used to display state STAR=
TED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display s=
tate WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used t=
o display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) =
"Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (=
quote ...) "Face used to display state CANCELED.") ...)
  eval((progn (setq org-open-non-existing-files t) (setf org-self-insert-cl=
uster-for-undo nil) (quote (defadvice undo ... "Make point and context visi=
ble after an undo command in Org mode." ...)) (add-hook (quote org-mode-hoo=
k) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done=
-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emp=
hasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line=
-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ...=
 ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-li=
nk t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Head=
lines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t)=
 (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-c=
ompletion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Spars=
e trees") (setq org-show-hierarchy-above t) (setq org-show-following-headin=
g nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-r=
equire (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org=
-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-refere=
nces (quote from)) (section "3.1 The (org)Built-in table editor") (setq org=
-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spread=
sheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-al=
l-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-pre=
fer-web-links t) (defun org-toggle-link-style nil "Toggle between descripti=
ve and literal link styles." (interactive) (if ... ... ... ...) (org-restar=
t-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-fra=
me-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.=
1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-=
as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-=
todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (de=
fface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.=
") (defface my/org-started-kwd-face (quote ...) "Face used to display state=
 STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to disp=
lay state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face u=
sed to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote =
...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-f=
ace (quote ...) "Face used to display state CANCELED.") ...))
  mapc(eval ((progn (setq org-open-non-existing-files t) (setf org-self-ins=
ert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-=
done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide=
-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-=
line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-=
return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 =
(org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-=
folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (sectio=
n "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org=
-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-sh=
ow-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq o=
rg-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lis=
ts nil) (setq org-table-use-standard-references ...) (section "3.1 The (org=
)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-c=
sv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...)=
 (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-l=
inks t) (defun org-toggle-link-style nil "Toggle between descriptive and li=
teral link styles." ... ... ...) (setq org-link-mailto-program ...) (setq o=
rg-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (or=
g)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-st=
ate-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-=
keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face us=
ed to display state NEW.") (defface my/org-started-kwd-face ... "Face used =
to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used=
 to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face u=
sed to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Fa=
ce used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... =
"Face used to display state CANCELED.") ...)))
  #[(a-l-element) "@;\205=1D=00@	\306=1A=1B=1C\307=1D\310\f=0B\n#,\205=1D=
=00\311\312A\"\207" [a-l-element abs-file start string regexp inhibit-chan=
ging-match-data nil t string-match mapc eval] 4](("\\(\\`\\|/\\)org\\(\\.el=
c\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn (setq org-open-non-existing-files t) (=
setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (=
setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks =
t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq=
 org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsi=
s ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ..=
.) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (=
setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-inter=
face ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse =
trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading =
nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-req=
uire ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-ter=
minates-plain-lists nil) (setq org-table-use-standard-references ...) (sect=
ion "3.1 The (org)Built-in table editor") (setq org-table-export-default-fo=
rmat "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-d=
efault-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-=
gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between d=
escriptive and literal link styles." ... ... ...) (setq org-link-mailto-pro=
gram ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) =
(section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-tod=
o-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions"=
) (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-=
face ... "Face used to display state NEW.") (defface my/org-started-kwd-fac=
e ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-fa=
ce ... "Face used to display state WAITING.") (defface my/org-delegated-kwd=
-face ... "Face used to display state DELEGATED.") (defface my/org-deferred=
-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-cance=
led-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "@;\205=1D=00@	\306=1A=1B=1C\307=1D\310\f=0B\n#,\2=
05=1D=00\311\312A\"\207" [a-l-element abs-file start string regexp inhibit=
-changing-match-data nil t string-match mapc eval] 4] (("\\(\\`\\|/\\)sessi=
on\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...)) ("\\(\\`\\|/=
\\)ecb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (defadvice ecb-method-clicked .=
.. "Make hierarchy visible when jumping into location from ECB tree buffer.=
" ...)) ("\\(\\`\\|/\\)bookmark\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ..=
. ... ...)) ("\\(\\`\\|/\\)imenu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (prog=
n ...)) ("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-ho=
ok ... ...)) ("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (=
progn ... ... ...)) ("\\(\\`\\|/\\)circe\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\=
'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)htmlize\\(\\.elc\\|\\.el\\)?\\(\=
\.gz\\)?\\'" (progn ... ... ... ... ...)) ("\\(\\`\\|/\\)saveplace\\(\\.elc=
\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (defadvice save-pl=
ace-find-file-hook ... "Make the position visible." ...)) ("\\(\\`\\|/\\)bb=
db\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ...)) ("\\(\\`\\|/\\)gnus\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn =
... ... ... ... ...) (color-theme-leuven)) ("\\(\\`\\|/\\)org\\(\\.elc\\|\\=
.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..=
. ...)) ("\\(\\`\\|/\\)dired\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ..=
. ... ...)) ("\\(\\`\\|/\\)psvn\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn=
 ... ... ... ... ... ...)) ("\\(\\`\\|/\\)slime\\(\\.elc\\|\\.el\\)?\\(\\.g=
z\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..=
. ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flymake\\(\\.elc\\|\\.el=
\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet\\(\\.elc\\|\=
\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ...=
)) ("\\(\\`\\|/\\)boxquote\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... =
... ...)) ("\\(\\`\\|/\\)bibtex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (defin=
e-key bibtex-mode-map "=03&" ...)) ("\\(\\`\\|/\\)latex\\(\\.elc\\|\\.el\\)=
?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ..=
. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .=
.. ... ... ... ... ...)) ("\\(\\`\\|/\\)desktop\\(\\.elc\\|\\.el\\)?\\(\\.g=
z\\)?\\'" (progn ... ...)) (info (dolist ... ...)) (texinfo (TeX-modes-set =
... TeX-modes t)) (tex-mode (TeX-modes-set ... TeX-modes t)) ("\\(\\`\\|/\\=
)uniquify\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\=
`\\|/\\)cedet-edebug\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...) (=
progn ... ... ...)) ("\\(\\`\\|/\\)semanticdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\=
\)?\\'" (require ...)) ("\\(\\`\\|/\\)ede-proj\\(\\.elc\\|\\.el\\)?\\(\\.gz=
\\)?\\'" (require ...)) ("\\(\\`\\|/\\)speedbar\\(\\.elc\\|\\.el\\)?\\(\\.g=
z\\)?\\'" (speedbar-add-supported-extension ".by") (speedbar-add-supported-=
extension ".wy") (progn ... ... ... ... ... ...)) ("\\(\\`\\|/\\)sendmail\\=
(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\)ange-ft=
p\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (when ... ...)) ("\\(\\`\\|/\\)vc\\(=
\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" nil) ("\\(\\`\\|/\\)ffap\\(\\.elc\\|\\.e=
l\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(\\`\\|/\\)recentf\\(\\.=
elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ...)) ("=
\\(\\`\\|/\\)tramp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ...) (when ... ... ...) (when ... ... ...) (dolist ... ...) (progn ... ...=
 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ..=
. ... ... ... ... ... ...)) ("\\(\\`\\|/\\)flyspell\\(\\.elc\\|\\.el\\)?\\(=
\\.gz\\)?\\'" (progn ... ... ...) (progn ... ...)) ("\\(\\`\\|/\\)ispell\\(=
\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... .=
.. ...)) ("\\(\\`\\|/\\)woman\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" ("/man/"=
 "C:/cygwin/usr/man/" "C:/cygwin/usr/share/man" "C:/cygwin/usr/local/man"))=
 ("\\(\\`\\|/\\)quail/Punct-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-=
defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/Punct\\(\\.elc\\|\\.el\\)?\\=
(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\`\\|/\\)quail/PY-b5\=
\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule "ling2" 9675 nil t)) (C=
UA-mode (bad-package-check ...)) (semantic (bad-package-check ...))))
  do-after-load-evaluation("c:/home/sva/src/org-mode/lisp/org.el")
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org.el" "c:/home=
/sva/src/org-mode/lisp/org.el" nil t)
  org-mode()
  set-auto-mode-0(org-mode nil)
  set-auto-mode()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer Work.org> "~/Projects/Work.org" nil nil "~/=
Projects/Work.org" ((256 0 . 62252) (21669 . 36592)))
  find-file-noselect("~/Projects/Work.org" nil nil nil)
  ad-Orig-find-file("~/Projects/Work.org" nil)
  find-file("~/Projects/Work.org")
  my/open-timeclock()
  call-interactively(my/open-timeclock nil nil)
--8<---------------cut here---------------end--------------->8---


* Second

I try to write a mail -- this launches Org thanks to autoloads, here for
correctly highlighting code blocks in Gnus.

--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (wrong-type-argument consp nil)
  setcdr(nil "nil=3Dtable")
  (setf (cddr (nth variable-index vars)) (concat (symbol-name ...) "=3D" (c=
dr pair)))
  (prog1 (setf (cddr ...) (concat ... "=3D" ...)) (incf variable-index))
  (if name (setq vars (append ... ...)) (prog1 (setf ... ...) (incf variabl=
e-index)))
  (let ((name ...)) (if name (setq vars ...) (prog1 ... ...)))
  (cond ((eql ... ...) (let ... ...)) ((eql ... ...) (setq results ...)) ((=
eql ... ...) (when ... ... ... ...)) ((eql ... ...) (setq exports ...)) ((e=
ql ... ...) (setq tangle ...)) ((eql ... ...) (setq noweb ...)) ((eql ... .=
..) (setq cache ...)) ((eql ... ...) (setq padline ...)) ((eql ... ...) (se=
tq shebang ...)) ((eql ... ...) (setq comments ...)) (t (setq params ...)))
  (case (car pair) (:var (let ... ...)) (:results (setq results ...)) (:fil=
e (when ... ... ... ...)) (:exports (setq exports ...)) (:tangle (setq tang=
le ...)) (:noweb (setq noweb ...)) (:cache (setq cache ...)) (:padline (set=
q padline ...)) (:shebang (setq shebang ...)) (:comments (setq comments ...=
)) (t (setq params ...)))
  (lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...) (:e=
xports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:sheban=
g ...) (:comments ...) (t ...)))((:var . "table"))
  mapc((lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...=
) (:exports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:s=
hebang ...) (:comments ...) (t ...))) ((:var . "table") (:var . "column") (=
:var . "type") (:var . "nullability")))
  (lambda (plist) (mapc (lambda ... ...) plist))(((:var . "table") (:var . =
"column") (:var . "type") (:var . "nullability")))
  mapc((lambda (plist) (mapc (lambda ... ...) plist)) (((:var . "table") (:=
var . "column") (:var . "type") (:var . "nullability")) ((:comments . "") (=
:shebang . "") (:cache . "no") (:padline . "") (:noweb . "yes") (:tangle . =
"") (:exports . "both") (:results . "output replace") (:eval . "never") (:e=
ngine . "msosql") (:cmdline . "-S cauchy -U sa -P LpmdlP -d pfi-paiestag -n=
 -w 700") (:padnewline . "yes") (:hlines . "no") (:session . "none"))))
  (progn (fset (quote e-merge) (function* ...)) (mapc (lambda ... ...) plis=
ts))
  (unwind-protect (progn (fset ... ...) (mapc ... plists)) (if --cl-letf-bo=
und-- (fset ... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (p=
rogn ... ...) (if --cl-letf-bound-- ... ...)))
  (letf ((... ...)) (mapc (lambda ... ...) plists))
  (letf* ((... ...)) (mapc (lambda ... ...) plists))
  (flet ((e-merge ... ...)) (mapc (lambda ... ...) plists))
  (let ((results-exclusive-groups ...) (exports-exclusive-groups ...) (vari=
able-index 0) params results exports tangle noweb cache vars shebang commen=
ts padline) (flet (...) (mapc ... plists)) (setq vars (reverse vars)) (whil=
e vars (setq params ...)) (mapc (lambda ... ...) (quote ...)) params)
  org-babel-merge-params(((:var . "table") (:var . "column") (:var . "type"=
) (:var . "nullability")) ((:comments . "") (:shebang . "") (:cache . "no")=
 (:padline . "") (:noweb . "yes") (:tangle . "") (:exports . "both") (:resu=
lts . "output replace") (:eval . "never") (:engine . "msosql") (:cmdline . =
"-S cauchy -U sa -P LpmdlP -d pfi-paiestag -n -w 700") (:padnewline . "yes"=
) (:hlines . "no") (:session . "none")))
  (setcar (nthcdr 2 info) (org-babel-merge-params (mapcar ... ...) (nth 2 i=
nfo)))
  (setf (nth 2 info) (org-babel-merge-params (mapcar ... ...) (nth 2 info)))
  (progn (setf (nth 2 info) (org-babel-merge-params ... ...)))
  (if (match-string 6) (progn (setf ... ...)))
  (when (match-string 6) (setf (nth 2 info) (org-babel-merge-params ... ...=
)))
  (progn (setq name (org-babel-clean-text-properties ...)) (when (match-str=
ing 6) (setf ... ...)))
  (if (looking-at org-babel-src-name-w-name-regexp) (progn (setq name ...) =
(when ... ...)))
  (when (looking-at org-babel-src-name-w-name-regexp) (setq name (org-babel=
-clean-text-properties ...)) (when (match-string 6) (setf ... ...)))
  (save-excursion (goto-char head) (setq info (org-babel-parse-src-block-ma=
tch)) (setq indent (car ...)) (setq info (butlast info)) (while (and ... ..=
.) (setf ... ...)) (when (looking-at org-babel-src-name-w-name-regexp) (set=
q name ...) (when ... ...)))
  (if (setq head (org-babel-where-is-src-block-head)) (save-excursion (goto=
-char head) (setq info ...) (setq indent ...) (setq info ...) (while ... ..=
.) (when ... ... ...)) (when (save-excursion ... ...) (setq info ...)))
  (let ((case-fold-search t) head info name indent) (if (setq head ...) (sa=
ve-excursion ... ... ... ... ... ...) (when ... ...)) (when (and info ...) =
(setf ... ...)) (when info (append info ...)))
  org-babel-get-src-block-info(light)
  (let* ((info ...) (source-name ...)) (when source-name (setq source-name =
... org-babel-library-of-babel ... lob-ingest-count ...)))
  (let ((full-block ...) (beg-block ...) (end-block ...) (lang ...) (beg-la=
ng ...) (end-lang ...) (switches ...) (beg-switches ...) (end-switches ...)=
 (header-args ...) (beg-header-args ...) (end-header-args ...) (body ...) (=
beg-body ...) (end-body ...)) (let* (... ...) (when source-name ...)) (goto=
-char end-block))
  (while (re-search-forward org-babel-src-block-regexp nil t) (goto-char (m=
atch-beginning 0)) (let (... ... ... ... ... ... ... ... ... ... ... ... ..=
. ... ...) (let* ... ...) (goto-char end-block)))
  (save-window-excursion (when file (find-file file)) (setq to-be-removed (=
current-buffer)) (goto-char (point-min)) (while (re-search-forward org-babe=
l-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) (save-windo=
w-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) (while=
 ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char po=
int))
  (org-babel-map-src-blocks file (let* (... ...) (when source-name ...)))
  (let ((lob-ingest-count 0)) (org-babel-map-src-blocks file (let* ... ...)=
) (message "%d src block%s added to Library of Babel" lob-ingest-count (if =
... "s" "")) lob-ingest-count)
  org-babel-lob-ingest("~/emacs/site-lisp/pfitools.org")
  (progn (setq org-open-non-existing-files t) (setf org-self-insert-cluster=
-for-undo nil) (quote (defadvice undo ... "Make point and context visible a=
fter an undo command in Org mode." ...)) (add-hook (quote org-mode-hook) (l=
ambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done-head=
line t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emphasis=
-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line-in-e=
mpty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ... ...)=
) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-link t)=
 (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Headlines=
") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t) (sec=
tion "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-comple=
tion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse tre=
es") (setq org-show-hierarchy-above t) (setq org-show-following-heading nil=
) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-requir=
e (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org-empt=
y-line-terminates-plain-lists nil) (setq org-table-use-standard-references =
(quote from)) (section "3.1 The (org)Built-in table editor") (setq org-tabl=
e-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spreadsheet=
") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-all-tab=
les nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-w=
eb-links t) (defun org-toggle-link-style nil "Toggle between descriptive an=
d literal link styles." (interactive) (if ... ... ... ...) (org-restart-fon=
t-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-frame-se=
tup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.1 (or=
g)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-st=
ate-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-=
keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (defface=
 my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.") (d=
efface my/org-started-kwd-face (quote ...) "Face used to display state STAR=
TED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to display s=
tate WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used t=
o display state DELEGATED.") (defface my/org-deferred-kwd-face (quote ...) =
"Face used to display state DEFERRED.") (defface my/org-canceled-kwd-face (=
quote ...) "Face used to display state CANCELED.") ...)
  eval((progn (setq org-open-non-existing-files t) (setf org-self-insert-cl=
uster-for-undo nil) (quote (defadvice undo ... "Make point and context visi=
ble after an undo command in Org mode." ...)) (add-hook (quote org-mode-hoo=
k) (lambda nil ... ... ... ... ... ... ... ... ...)) (setq org-fontify-done=
-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide-emp=
hasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-line=
-in-empty-file t) (when (boundp ...) (add-to-list ... ...) (add-to-list ...=
 ...)) (setq org-ellipsis (quote org-ellipsis)) (setq org-return-follows-li=
nk t) (setq org-blank-before-new-entry (quote ...)) (section "2.2 (org)Head=
lines") (section "2.3 (org)Visibility cycling") (setq org-startup-folded t)=
 (section "2.4 (org)Motion") (setq org-goto-interface (quote outline-path-c=
ompletion)) (section "2.5 (org)Structure editing") (section "2.6 (org)Spars=
e trees") (setq org-show-hierarchy-above t) (setq org-show-following-headin=
g nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-r=
equire (quote org-list)) (setq org-cycle-include-plain-lists nil) (setq org=
-empty-line-terminates-plain-lists nil) (setq org-table-use-standard-refere=
nces (quote from)) (section "3.1 The (org)Built-in table editor") (setq org=
-table-export-default-format "orgtbl-to-csv") (section "3.5 (org)The spread=
sheet") (setq org-calc-default-modes (quote ...)) (defun org-recalculate-al=
l-tables nil (interactive) (org-table-map-tables ... t)) (setq org-gnus-pre=
fer-web-links t) (defun org-toggle-link-style nil "Toggle between descripti=
ve and literal link styles." (interactive) (if ... ... ... ...) (org-restar=
t-font-lock)) (setq org-link-mailto-program (quote ...)) (setq org-link-fra=
me-setup (quote ...)) (setq org-link-abbrev-alist (quote ...)) (section "5.=
1 (org)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-=
as-state-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-=
todo-keywords (quote ...)) (GNUEmacs (setq org-todo-keyword-faces ...)) (de=
fface my/org-proposed-kwd-face (quote ...) "Face used to display state NEW.=
") (defface my/org-started-kwd-face (quote ...) "Face used to display state=
 STARTED.") (defface my/org-waiting-kwd-face (quote ...) "Face used to disp=
lay state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face u=
sed to display state DELEGATED.") (defface my/org-deferred-kwd-face (quote =
...) "Face used to display state DEFERRED.") (defface my/org-canceled-kwd-f=
ace (quote ...) "Face used to display state CANCELED.") ...))
  mapc(eval ((progn (setq org-open-non-existing-files t) (setf org-self-ins=
ert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (setq org-fontify-=
done-headline t) (setq org-fontify-quote-and-verse-blocks t) (setq org-hide=
-emphasis-markers t) (section "1.3 (org)Activation") (setq org-insert-mode-=
line-in-empty-file t) (when ... ... ...) (setq org-ellipsis ...) (setq org-=
return-follows-link t) (setq org-blank-before-new-entry ...) (section "2.2 =
(org)Headlines") (section "2.3 (org)Visibility cycling") (setq org-startup-=
folded t) (section "2.4 (org)Motion") (setq org-goto-interface ...) (sectio=
n "2.5 (org)Structure editing") (section "2.6 (org)Sparse trees") (setq org=
-show-hierarchy-above t) (setq org-show-following-heading nil) (setq org-sh=
ow-siblings nil) (section "2.7 (org)Plain lists") (try-require ...) (setq o=
rg-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lis=
ts nil) (setq org-table-use-standard-references ...) (section "3.1 The (org=
)Built-in table editor") (setq org-table-export-default-format "orgtbl-to-c=
sv") (section "3.5 (org)The spreadsheet") (setq org-calc-default-modes ...)=
 (defun org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-l=
inks t) (defun org-toggle-link-style nil "Toggle between descriptive and li=
teral link styles." ... ... ...) (setq org-link-mailto-program ...) (setq o=
rg-link-frame-setup ...) (setq org-link-abbrev-alist ...) (section "5.1 (or=
g)TODO basics functionality") (setq org-treat-S-cursor-todo-selection-as-st=
ate-change nil) (section "5.2 Use of (org)TODO extensions") (setq org-todo-=
keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-face ... "Face us=
ed to display state NEW.") (defface my/org-started-kwd-face ... "Face used =
to display state STARTED.") (defface my/org-waiting-kwd-face ... "Face used=
 to display state WAITING.") (defface my/org-delegated-kwd-face ... "Face u=
sed to display state DELEGATED.") (defface my/org-deferred-kwd-face ... "Fa=
ce used to display state DEFERRED.") (defface my/org-canceled-kwd-face ... =
"Face used to display state CANCELED.") ...)))
  #[(a-l-element) "@;\205=1D=00@	\306=1A=1B=1C\307=1D\310\f=0B\n#,\205=1D=
=00\311\312A\"\207" [a-l-element abs-file start string regexp inhibit-chan=
ging-match-data nil t string-match mapc eval] 4](("\\(\\`\\|/\\)org\\(\\.el=
c\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn (setq org-open-non-existing-files t) (=
setf org-self-insert-cluster-for-undo nil) (quote ...) (add-hook ... ...) (=
setq org-fontify-done-headline t) (setq org-fontify-quote-and-verse-blocks =
t) (setq org-hide-emphasis-markers t) (section "1.3 (org)Activation") (setq=
 org-insert-mode-line-in-empty-file t) (when ... ... ...) (setq org-ellipsi=
s ...) (setq org-return-follows-link t) (setq org-blank-before-new-entry ..=
.) (section "2.2 (org)Headlines") (section "2.3 (org)Visibility cycling") (=
setq org-startup-folded t) (section "2.4 (org)Motion") (setq org-goto-inter=
face ...) (section "2.5 (org)Structure editing") (section "2.6 (org)Sparse =
trees") (setq org-show-hierarchy-above t) (setq org-show-following-heading =
nil) (setq org-show-siblings nil) (section "2.7 (org)Plain lists") (try-req=
uire ...) (setq org-cycle-include-plain-lists nil) (setq org-empty-line-ter=
minates-plain-lists nil) (setq org-table-use-standard-references ...) (sect=
ion "3.1 The (org)Built-in table editor") (setq org-table-export-default-fo=
rmat "orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq org-calc-d=
efault-modes ...) (defun org-recalculate-all-tables nil ... ...) (setq org-=
gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle between d=
escriptive and literal link styles." ... ... ...) (setq org-link-mailto-pro=
gram ...) (setq org-link-frame-setup ...) (setq org-link-abbrev-alist ...) =
(section "5.1 (org)TODO basics functionality") (setq org-treat-S-cursor-tod=
o-selection-as-state-change nil) (section "5.2 Use of (org)TODO extensions"=
) (setq org-todo-keywords ...) (GNUEmacs ...) (defface my/org-proposed-kwd-=
face ... "Face used to display state NEW.") (defface my/org-started-kwd-fac=
e ... "Face used to display state STARTED.") (defface my/org-waiting-kwd-fa=
ce ... "Face used to display state WAITING.") (defface my/org-delegated-kwd=
-face ... "Face used to display state DELEGATED.") (defface my/org-deferred=
-kwd-face ... "Face used to display state DEFERRED.") (defface my/org-cance=
led-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "@;\205=1D=00@	\306=1A=1B=1C\307=1D\310\f=0B\n#,\2=
05=1D=00\311\312A\"\207" [a-l-element abs-file start string regexp inhibit=
-changing-match-data nil t string-match mapc eval] 4] (("\\(\\`\\|/\\)org-c=
apture\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`\\|/\\=
)diary-lib\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ... nil ...)) ("\\(\\`\=
\|/\\)session\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...)) (=
"\\(\\`\\|/\\)ecb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (defadvice ecb-metho=
d-clicked ... "Make hierarchy visible when jumping into location from ECB t=
ree buffer." ...)) ("\\(\\`\\|/\\)bookmark\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?=
\\'" (if ... ... ...)) ("\\(\\`\\|/\\)imenu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)=
?\\'" (progn ...)) ("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\=
\'" (add-hook ... ...)) ("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.g=
z\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)message\\(\\.elc\\|\\.el\\)?\=
\(\\.gz\\)?\\'" (add-to-list ... ...)) ("\\(\\`\\|/\\)mailcap\\(\\.elc\\|\\=
.el\\)?\\(\\.gz\\)?\\'" (add-to-list ... ...) (add-to-list ... ...)) ("\\(\=
\`\\|/\\)w3m\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) ("\\(\\`=
\\|/\\)mm-decode\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ..=
.)) ("\\(\\`\\|/\\)mm-uu\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ..=
. ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)gnus-sum\\(\\.elc\\|\\.el\\)=
?\\(\\.gz\\)?\\'" (define-key gnus-summary-goto-map "T" ...)) ("\\(\\`\\|/\=
\)circe\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ...)) ("\\(=
\\`\\|/\\)htmlize\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... .=
.. ...)) ("\\(\\`\\|/\\)saveplace\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (pro=
gn ... ... ... ... ...) (defadvice save-place-find-file-hook ... "Make the =
position visible." ...)) ("\\(\\`\\|/\\)bbdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\=
)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .=
.. ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)gnus\\(=
\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ...) (color-theme=
-leuven)) ("\\(\\`\\|/\\)org\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ..=
. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... .=
.. ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)dired\\(\\=
.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)psvn\\=
(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ...)) ("\\(\=
\`\\|/\\)slime\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
)) ("\\(\\`\\|/\\)flymake\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... .=
.. ...)) ("\\(\\`\\|/\\)cedet\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn .=
.. ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)boxquote\\(\\.e=
lc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)bibtex\\=
(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key bibtex-mode-map "=03&" ...)=
) ("\\(\\`\\|/\\)latex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...=
 ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`=
\\|/\\)desktop\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...)) (info =
(dolist ... ...)) (texinfo (TeX-modes-set ... TeX-modes t)) (tex-mode (TeX-=
modes-set ... TeX-modes t)) ("\\(\\`\\|/\\)uniquify\\(\\.elc\\|\\.el\\)?\\(=
\\.gz\\)?\\'" (progn ... ... ...)) ("\\(\\`\\|/\\)cedet-edebug\\(\\.elc\\|\=
\.el\\)?\\(\\.gz\\)?\\'" (progn ... ...) (progn ... ... ...)) ("\\(\\`\\|/\=
\)semanticdb\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\\=
|/\\)ede-proj\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (require ...)) ("\\(\\`\=
\|/\\)speedbar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (speedbar-add-supported=
-extension ".by") (speedbar-add-supported-extension ".wy") (progn ... ... .=
.. ... ... ...)) ("\\(\\`\\|/\\)sendmail\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\=
'" (progn ... ...)) ("\\(\\`\\|/\\)ange-ftp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)=
?\\'" (when ... ...)) ("\\(\\`\\|/\\)vc\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'=
" nil) ("\\(\\`\\|/\\)ffap\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... =
... ... ...)) ("\\(\\`\\|/\\)recentf\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (=
progn ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)tramp\\(\\.elc\\|\\.=
el\\)?\\(\\.gz\\)?\\'" (progn ... ... ... ... ... ... ... ... ... ... ... .=
.. ... ... ... ... ... ... ... ... ... ... ...) (when ... ... ...) (when ..=
. ... ...) (dolist ... ...) (progn ... ... ... ... ... ... ... ... ... ... =
... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ... ...)) ("\\(=
\\`\\|/\\)flyspell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... ...)=
 (progn ... ...)) ("\\(\\`\\|/\\)ispell\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'=
" (progn ... ... ... ... ... ... ... ... ... ...)) ("\\(\\`\\|/\\)woman\\(\=
\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" ("/man/" "C:/cygwin/usr/man/" "C:/cygwin/=
usr/share/man" "C:/cygwin/usr/local/man")) ("\\(\\`\\|/\\)quail/Punct-b5\\(=
\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " " 12288 nil t)) ("\\(\\=
`\\|/\\)quail/Punct\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (quail-defrule " "=
 12288 nil t)) ("\\(\\`\\|/\\)quail/PY-b5\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\=
\'" (quail-defrule "ling2" 9675 nil t)) (CUA-mode (bad-package-check ...)) =
...))
  do-after-load-evaluation("c:/home/sva/src/org-mode/lisp/org.el")
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org.el" "c:/home=
/sva/src/org-mode/lisp/org.el" nil t)
  orig-require(org nil nil)
  (let ((my/require-depth ...)) (orig-require feature filename noerror))
  (cond ((member feature features) (message "%sRequiring `%s' (already load=
ed)" ... feature)) (t (message "%sRequiring `%s'" ... feature) (let ... ...=
) (message "%sRequiring `%s'...done" ... feature)))
  require(org)
  eval-buffer(#<buffer  *load*> nil "c:/home/sva/src/org-mode/lisp/org-tabl=
e.el" nil t)  ; Reading at buffer position 1520
  load-with-code-conversion("c:/home/sva/src/org-mode/lisp/org-table.el" "c=
:/home/sva/src/org-mode/lisp/org-table.el" nil t)
  (turn-on-orgtbl)
  (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
  (if (locate-library "org.el") (progn (turn-on-orgtbl) (turn-on-orgstruct)=
 (turn-on-orgstruct++)))
  (when (locate-library "org.el") (turn-on-orgtbl) (turn-on-orgstruct) (tur=
n-on-orgstruct++))
  my/message-mode-hook()
  run-hooks(text-mode-hook message-mode-hook)
  apply(run-hooks (text-mode-hook message-mode-hook))
  run-mode-hooks(message-mode-hook)
  message-mode()
  message-pop-to-buffer("*posting on gmane.emacs.orgmode*")
  message-news("gmane.emacs.orgmode")
  gnus-post-news(post "nntp+gmane:gmane.emacs.orgmode")
  gnus-summary-post-news(nil)
  call-interactively(gnus-summary-post-news nil nil)
--8<---------------cut here---------------end--------------->8---

The above error is generated.

Workaround: explicitly call `C-c a a' before trying to post my message.

Best regards,
  Seb

--=20
Sebastien Vauban