Possible bug in Org-mode version 4.74

From: Ruslan Kosolapov <rkosolapov@swsoft.com>
To: Carsten Dominik <dominik@science.uva.nl>
Cc: emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Possible bug in Org-mode version 4.74
Date: Mon, 21 May 2007 11:51:58 +0700	[thread overview]
Message-ID: <87odkelqxd.fsf@kosolapov-nb.plesk.ru> (raw)
In-Reply-To: b2e362700334e5a647744f095182626a@science.uva.nl

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

 CD> I have released version 4.74 of Org-mode at
 CD> http://www.astro.uva.nl/~dominik/Tools/org/

1. I got org-mode from http://staff.science.uva.nl/~dominik/Tools/org/org-4.74.tar.gz

2. I configure agenda export as follows:
(setq org-agenda-exporter-settings
      '((htmlize-output-type 'inline-css)))

(setq org-agenda-custom-commands
      '(("w" todo "WAITING" nil ("agenda-waiting.html"))
	("n" todo "NEXT" nil ("agenda-next.html"))
	("f" todo "FREEZED" nil ("agenda-freezed.html"))
	("d" "Agenda + NEXT" ((agenda) (todo "NEXT")) ("agenda+next.html"))
	("c" agenda "" nil ("agenda-current.html"))
	("I" "Ilnar tasks" ((tags "ilnar")) nil ("ilnar-tasks.html"))
	("R" "rk tasks" ((tags "rk")) nil ("rk-tasks.html"))
	))

3. Now when I press C-c a e, error appears (full errmessage in attach):
Debugger entered--Lisp error: (void-variable nosettings)
  (org-write-agenda "agenda-waiting.html" nosettings)

Additional info:
1. When I use C-x C-w in agenda buffer, I get another error (full
errmessage in second attach):
Debugger entered--Lisp error: (wrong-type-argument char-or-string-p nil)
  insert(nil 10 "\n" "<html>\n  <head>\n" "    <title>" "*Org Agenda*" "</title>\n" "" "")

2. My emacs version is:
 GNU Emacs 22.0.95.1 (i486-pc-linux-gnu, GTK+ Version 2.8.20)
 of 2007-03-03 on pacem, modified by Debian

3. My org-file looks like this:
###################################################
#  Work tasks of QAA Team and personally rk.
#
#  Paradigm:
#   * tags indicates:
#     * responsible peoples
#     * kind of task: attestation task or not
#   * seq_todo indicates state of task
#   * category uses for projects scope showing
#
#Some settings of org-mode follows:
#+STARTUP: lognotestate
#+STARTUP: showall
#+TAGS: { rk(r) sveta(s) kir(k) zalomlenkov(z) ilnar(i) sgunkin(g) const(c) max(m) ikryak(v) } ATT
#+SEQ_TODO: NEW NEXT RESCHEDULED | DONE CANCELED
#+SEQ_TODO: WAITING SOMEDAY | CANCELED
#+SEQ_TODO: FREEZED | CANCELED
#+LINK: wiki http://trac.qa.plesk.ru:8080/wiki/
#+TITLE:     QAA Tasks
#+AUTHOR:    rk
#+EMAIL:     rk@plesk.ru
#+LANGUAGE:  ru
#+OPTIONS:   H:4 num:t toc:t \n:nil @:t ::t |:t ^:t *:t TeX:t LaTeX:nil skip:t
###################################################

#+CATEGORY: Incoming
* Incoming
** NEW Task example 1 :rk:
    DEADLINE: <2007-05-10 Чтв>

#+CATEGORY: General
* General
** NEXT Task example 2	:rk:
    DEADLINE: <2007-05-11 Птн>

4. Other org-configuration things:
(setq org-return-follows-link t)
(setq org-log-done '(done))
(define-key global-map "\C-cl" 'org-store-link)
(define-key global-map "\C-ca" 'org-agenda)
(setq org-agenda-files (list "~/work/doc/tasks/work.org"))
(setq org-export-html-style "<link rel=stylesheet href=\"style.css\" type=\"text/css\">")
(setq org-agenda-include-all-todo t)
(setq org-fontify-done-headline t)
(setq org-export-mark-todo-in-toc t)

5. Attaches with errors:

[-- Attachment #2: debug-orgmode --]
[-- Type: application/octet-stream, Size: 3275 bytes --]

Debugger entered--Lisp error: (void-variable nosettings)
  (org-write-agenda "agenda-waiting.html" nosettings)
  (let ((htmlize-output-type ...)) (org-write-agenda "agenda-waiting.html" nosettings))
  eval((let ((htmlize-output-type ...)) (org-write-agenda "agenda-waiting.html" nosettings)))
  (while files (eval (list ... ... ...)))
  (progn (flet (...) (eval ...)) (set-buffer "*Org Agenda*") (while files (eval ...)))
  (if files (progn (flet ... ...) (set-buffer "*Org Agenda*") (while files ...)))
  (when files (flet (...) (eval ...)) (set-buffer "*Org Agenda*") (while files (eval ...)))
  (while cmds (setq cmd (pop cmds) thiscmdkey (car cmd) opts (nth 3 cmd) files (org-last cmd)) (if (stringp files) (setq files ...)) (when files (flet ... ...) (set-buffer "*Org Agenda*") (while files ...)) (kill-buffer org-agenda-buffer-name))
  (save-window-excursion (while cmds (setq cmd ... thiscmdkey ... opts ... files ...) (if ... ...) (when files ... ... ...) (kill-buffer org-agenda-buffer-name)))
  (let ((cmds org-agenda-custom-commands) pars cmd thiscmdkey files file bs opts) (while parameters (push ... pars)) (setq pars (reverse pars)) (save-window-excursion (while cmds ... ... ... ...)))
  (lambda (&rest parameters) "Run all custom agenda commands that have a file argument." (let (... pars cmd thiscmdkey files file bs opts) (while parameters ...) (setq pars ...) (save-window-excursion ...)))()
  (org-batch-store-agenda-views)
  org-store-agenda-views()
  call-interactively(org-store-agenda-views)
  (cond ((setq entry ...) (if ... ... ...)) ((equal c 67) (customize-variable ...)) ((equal c 97) (call-interactively ...)) ((equal c 116) (call-interactively ...)) ((equal c 84) (org-call-with-arg ... ...)) ((equal c 109) (call-interactively ...)) ((equal c 77) (org-call-with-arg ... ...)) ((equal c 101) (call-interactively ...)) ((equal c 76) (unless restrict-ok ...) (org-call-with-arg ... arg)) ((equal c 35) (call-interactively ...)) ((equal c 33) (customize-variable ...)) (t (error "Invalid key")))
  (let* ((buf ...) (bfn ...) (restrict-ok ...) (custom org-agenda-custom-commands) c entry key type match lprops) (put (quote org-agenda-files) (quote org-restrict) nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil) (setq org-agenda-last-dispatch-buffer (current-buffer)) (save-window-excursion (delete-other-windows) (switch-to-buffer-other-window " *Agenda Commands*") (erase-buffer) (insert ...) (while ... ... ...) (if restrict-ok ...) (goto-char ...) (if ... ...) (message "Press key for agenda command%s" ...) (setq c ...) (message "") (when ... ... ... ... ... ...)) (require (quote calendar)) (cond (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ...) (... ... ...) (... ...) (... ...) (t ...)))
  (catch (quote exit) (let* (... ... ... ... c entry key type match lprops) (put ... ... nil) (setq org-agenda-restrict nil) (move-marker org-agenda-restrict-begin nil) (move-marker org-agenda-restrict-end nil) (setq org-agenda-last-dispatch-buffer ...) (save-window-excursion ... ... ... ... ... ... ... ... ... ... ... ...) (require ...) (cond ... ... ... ... ... ... ... ... ... ... ... ...)))
  org-agenda(nil)
  call-interactively(org-agenda)

[-- Attachment #3: debug-orgmode-2 --]
[-- Type: application/octet-stream, Size: 7069 bytes --]

[-- Attachment #4: Type: text/plain, Size: 129 bytes --]

PS: sorry, I have no time for deep investigation now :(

-- 
Ruslan Kosolapov
Plesk QA Department Second Manager
SWsoft, Inc.

[-- Attachment #5: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode