emacs-orgmode
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] Errors with current version (git pull'ed at 10:30 CET)

From: Sebastien Vauban
Subject: [O] Errors with current version (git pull'ed at 10:30 CET)
Date: Tue, 28 Jun 2011 10:46:31 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.50 (windows-nt) 
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) (and 
(looking-at org-complex-heading-regexp) (match-string 4)))
  (save-current-buffer (set-buffer (find-file ...)) (save-excursion (goto-char 
...) (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-excursion 
... ... ...)) ") ")
  (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)) (or 
(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" org-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.org" 
nil nil "~/emacs/site-lisp/pfitools.org" ((2816 6 . 35967) (21669 . 36592)))
  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-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) 
(save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) 
(while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char 
point))
  (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 after an undo command in Org mode." ...)) (add-hook (quote 
org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (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 (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) (section "2.4 (org)Motion") (setq org-goto-interface 
(quote outline-path-completion)) (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-require (quote org-list)) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references (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 spreadsheet") (setq 
org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil 
(interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq 
org-link-mailto-program (quote ...)) (setq org-link-frame-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 ...)) (defface 
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 display 
state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to 
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-cluster-for-undo nil) (quote (defadvice undo ... "Make point 
and context visible after an undo command in Org mode." ...)) (add-hook (quote 
org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (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 (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) (section "2.4 (org)Motion") (setq org-goto-interface 
(quote outline-path-completion)) (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-require (quote org-list)) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references (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 spreadsheet") (setq 
org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil 
(interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq 
org-link-mailto-program (quote ...)) (setq org-link-frame-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 ...)) (defface 
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 display 
state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to 
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.") ...))
  mapc(eval ((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-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 ...) 
(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-require ...) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references ...) (section "3.1 The 
(org)Built-in table editor") (setq org-table-export-default-format 
"orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq 
org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) 
(setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle 
between descriptive and literal link styles." ... ... ...) (setq 
org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq 
org-link-abbrev-alist ...) (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 ...) (GNUEmacs ...) (defface 
my/org-proposed-kwd-face ... "Face used 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 used to display state DELEGATED.") (defface 
my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface 
my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  #[(a-l-element) "@;\205@  \306\307\310\f\n#,\205\311\312A\"\207" 
[a-l-element abs-file start string regexp inhibit-changing-match-data nil t 
string-match mapc eval] 
4](("\\(\\`\\|/\\)org\\(\\.elc\\|\\.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-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 ...) (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-require ...) (setq org-cycle-include-plain-lists 
nil) (setq org-empty-line-terminates-plain-lists nil) (setq 
org-table-use-standard-references ...) (section "3.1 The (org)Built-in table 
editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 
(org)The spreadsheet") (setq org-calc-default-modes ...) (defun 
org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." ... ... ...) (setq org-link-mailto-program ...) (setq 
org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (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 ...) (GNUEmacs ...) (defface 
my/org-proposed-kwd-face ... "Face used 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 used to display state DELEGATED.") (defface 
my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface 
my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "@;\205@     
\306\307\310\f\n#,\205\311\312A\"\207" [a-l-element abs-file start 
string regexp inhibit-changing-match-data nil t string-match mapc eval] 4] 
(("\\(\\`\\|/\\)session\\(\\.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\\)?\\'" (progn ...)) 
("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-hook ... ...)) 
("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... 
...)) ("\\(\\`\\|/\\)circe\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... 
... ...)) ("\\(\\`\\|/\\)htmlize\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn 
... ... ... ... ...)) 
("\\(\\`\\|/\\)saveplace\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... 
... ... ...) (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\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... 
...)) ("\\(\\`\\|/\\)bibtex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key 
bibtex-mode-map "&" ...)) 
("\\(\\`\\|/\\)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 ...)) (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=table")
  (setf (cddr (nth variable-index vars)) (concat (symbol-name ...) "=" (cdr 
pair)))
  (prog1 (setf (cddr ...) (concat ... "=" ...)) (incf variable-index))
  (if name (setq vars (append ... ...)) (prog1 (setf ... ...) (incf 
variable-index)))
  (let ((name ...)) (if name (setq vars ...) (prog1 ... ...)))
  (cond ((eql ... ...) (let ... ...)) ((eql ... ...) (setq results ...)) ((eql 
... ...) (when ... ... ... ...)) ((eql ... ...) (setq exports ...)) ((eql ... 
...) (setq tangle ...)) ((eql ... ...) (setq noweb ...)) ((eql ... ...) (setq 
cache ...)) ((eql ... ...) (setq padline ...)) ((eql ... ...) (setq shebang 
...)) ((eql ... ...) (setq comments ...)) (t (setq params ...)))
  (case (car pair) (:var (let ... ...)) (:results (setq results ...)) (:file 
(when ... ... ... ...)) (:exports (setq exports ...)) (:tangle (setq tangle 
...)) (:noweb (setq noweb ...)) (:cache (setq cache ...)) (:padline (setq 
padline ...)) (:shebang (setq shebang ...)) (:comments (setq comments ...)) (t 
(setq params ...)))
  (lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...) 
(:exports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:shebang 
...) (:comments ...) (t ...)))((:var . "table"))
  mapc((lambda (pair) (case (car pair) (:var ...) (:results ...) (:file ...) 
(:exports ...) (:tangle ...) (:noweb ...) (:cache ...) (:padline ...) (:shebang 
...) (: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") (:engine . "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 ... ...) plists))
  (unwind-protect (progn (fset ... ...) (mapc ... plists)) (if 
--cl-letf-bound-- (fset ... --cl-letf-save--) (fmakunbound ...)))
  (let* ((--cl-letf-bound-- ...) (--cl-letf-save-- ...)) (unwind-protect (progn 
... ...) (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 ...) 
(variable-index 0) params results exports tangle noweb cache vars shebang 
comments padline) (flet (...) (mapc ... plists)) (setq vars (reverse vars)) 
(while 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") (:results . 
"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 
info)))
  (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-string 
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-match)) (setq indent (car ...)) (setq info (butlast 
info)) (while (and ... ...) (setf ... ...)) (when (looking-at 
org-babel-src-name-w-name-regexp) (setq 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 ...) 
(save-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-lang 
...) (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 
(match-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-babel-src-block-regexp nil t) (goto-char ...) (let ... ... ...)))
  (let* ((file file) (visited-p ...) (point ...) to-be-removed) 
(save-window-excursion (when file ...) (setq to-be-removed ...) (goto-char ...) 
(while ... ... ...)) (unless visited-p (kill-buffer to-be-removed)) (goto-char 
point))
  (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 after an undo command in Org mode." ...)) (add-hook (quote 
org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (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 (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) (section "2.4 (org)Motion") (setq org-goto-interface 
(quote outline-path-completion)) (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-require (quote org-list)) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references (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 spreadsheet") (setq 
org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil 
(interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq 
org-link-mailto-program (quote ...)) (setq org-link-frame-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 ...)) (defface 
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 display 
state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to 
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-cluster-for-undo nil) (quote (defadvice undo ... "Make point 
and context visible after an undo command in Org mode." ...)) (add-hook (quote 
org-mode-hook) (lambda nil ... ... ... ... ... ... ... ... ...)) (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 (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) (section "2.4 (org)Motion") (setq org-goto-interface 
(quote outline-path-completion)) (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-require (quote org-list)) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references (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 spreadsheet") (setq 
org-calc-default-modes (quote ...)) (defun org-recalculate-all-tables nil 
(interactive) (org-table-map-tables ... t)) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." (interactive) (if ... ... ... ...) (org-restart-font-lock)) (setq 
org-link-mailto-program (quote ...)) (setq org-link-frame-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 ...)) (defface 
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 display 
state WAITING.") (defface my/org-delegated-kwd-face (quote ...) "Face used to 
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.") ...))
  mapc(eval ((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-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 ...) 
(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-require ...) (setq 
org-cycle-include-plain-lists nil) (setq org-empty-line-terminates-plain-lists 
nil) (setq org-table-use-standard-references ...) (section "3.1 The 
(org)Built-in table editor") (setq org-table-export-default-format 
"orgtbl-to-csv") (section "3.5 (org)The spreadsheet") (setq 
org-calc-default-modes ...) (defun org-recalculate-all-tables nil ... ...) 
(setq org-gnus-prefer-web-links t) (defun org-toggle-link-style nil "Toggle 
between descriptive and literal link styles." ... ... ...) (setq 
org-link-mailto-program ...) (setq org-link-frame-setup ...) (setq 
org-link-abbrev-alist ...) (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 ...) (GNUEmacs ...) (defface 
my/org-proposed-kwd-face ... "Face used 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 used to display state DELEGATED.") (defface 
my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface 
my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  #[(a-l-element) "@;\205@  \306\307\310\f\n#,\205\311\312A\"\207" 
[a-l-element abs-file start string regexp inhibit-changing-match-data nil t 
string-match mapc eval] 
4](("\\(\\`\\|/\\)org\\(\\.elc\\|\\.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-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 ...) (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-require ...) (setq org-cycle-include-plain-lists 
nil) (setq org-empty-line-terminates-plain-lists nil) (setq 
org-table-use-standard-references ...) (section "3.1 The (org)Built-in table 
editor") (setq org-table-export-default-format "orgtbl-to-csv") (section "3.5 
(org)The spreadsheet") (setq org-calc-default-modes ...) (defun 
org-recalculate-all-tables nil ... ...) (setq org-gnus-prefer-web-links t) 
(defun org-toggle-link-style nil "Toggle between descriptive and literal link 
styles." ... ... ...) (setq org-link-mailto-program ...) (setq 
org-link-frame-setup ...) (setq org-link-abbrev-alist ...) (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 ...) (GNUEmacs ...) (defface 
my/org-proposed-kwd-face ... "Face used 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 used to display state DELEGATED.") (defface 
my/org-deferred-kwd-face ... "Face used to display state DEFERRED.") (defface 
my/org-canceled-kwd-face ... "Face used to display state CANCELED.") ...)))
  mapc(#[(a-l-element) "@;\205@     
\306\307\310\f\n#,\205\311\312A\"\207" [a-l-element abs-file start 
string regexp inhibit-changing-match-data nil t string-match mapc eval] 4] 
(("\\(\\`\\|/\\)org-capture\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... 
...)) ("\\(\\`\\|/\\)diary-lib\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (if ... nil 
...)) ("\\(\\`\\|/\\)session\\(\\.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\\)?\\'" (progn ...)) 
("\\(\\`\\|/\\)org-exp\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (add-hook ... ...)) 
("\\(\\`\\|/\\)calendar\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (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\\)?\\'" 
(progn ... ... ... ... ...) (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\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (progn ... ... 
...)) ("\\(\\`\\|/\\)bibtex\\(\\.elc\\|\\.el\\)?\\(\\.gz\\)?\\'" (define-key 
bibtex-mode-map "&" ...)) 
("\\(\\`\\|/\\)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 loaded)" 
... 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-table.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) 
(turn-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

-- 
Sebastien Vauban
reply via email to
[Prev in Thread] Current Thread [Next in Thread]