[emacs-wiki-discuss] Planner + Vm = Args out of range

[jlr_0]

Whenever I load VM first (M-x vm) and then Planner (M-x plan) everything runs
fine.

But if I do it the other way (M-x plan  M-x vm) then sending an email or
quitting/saving a vm folder leads to the following message

,----
| Args out of range: " .w_()'\"$\\/<>@!|", 64
`----

as if Planner was interacting with VM.

Copy of the backtrace at the end of this email.

Thanks for your help.

--
René


Debugger entered--Lisp error: (args-out-of-range " .w_()'\"$\\/<>@!|" 64)
  char-syntax-from-code(?@)
  #<compiled-function (key1 value1) "...(19)" [value key1 key new 
char-syntax-from-code get-range-char-table ?@ put-char-table nil] 5>(?� 2)
  map-char-table(#<compiled-function (key1 value1) "...(19)" [value key1 key 
new char-syntax-from-code get-range-char-table ?@ put-char-table nil] 5> 
#s(char-table type syntax data ( (?\^@ ?!) 13 ?\" 1 (?\# ?&) 13 ?\' 2 (?\( ?\[) 
13 ?\\ 1 (?\] ?\^ß) 13 latin-iso8859-1 13 latin-iso8859-2 13 latin-iso8859-3 13 
latin-iso8859-4 13 thai-tis620 13 greek-iso8859-7 13 arabic-iso8859-6 13 
hebrew-iso8859-8 13 katakana-jisx0201 13 latin-jisx0201 13 cyrillic-iso8859-5 
13 latin-iso8859-9 13 japanese-jisx0208-1978 13 chinese-gb2312 13 
japanese-jisx0208 13 korean-ksc5601 13 japanese-jisx0212 13 chinese-cns11643-1 
13 chinese-cns11643-2 13 chinese-big5-1 13 chinese-big5-2 13 arabic-digit 13 
arabic-1-column 13 arabic-2-column 13 sisheng 13 ipa 13 vietnamese-viscii-lower 
13 vietnamese-viscii-upper 13 latin-iso8859-16 13 latin-iso8859-14 13 
latin-iso8859-15 13 ?� 2 (?” ?§) 13 ?Ø 2 ?© 13 ?Ŗ 2 (?« ?®) 13 ?Æ 2 (?° ?·) 13 
?ø 2 ?¹ 13 ?ŗ 2 (?» ?¾) 13 (?æ ?Ö) 2 ?× 3 (?Ų ?ö) 2 ?÷ 3 (?ų ?ž) 2 ?’ 1 
chinese-cns11643-3 13 chinese-cns11643-4 13 chinese-cns11643-5 13 
chinese-cns11643-6 13 chinese-cns11643-7 13 chinese-isoir165 13 ethiopic 13 
thai-xtis 13)) latin-iso8859-13)
  #<compiled-function (key value) "...(35)" [value newval new key 
get-range-char-table multi map-char-table #<compiled-function ... "...(19)" ... 
5> char-syntax-from-code ?@ put-char-table nil] 5>(latin-iso8859-13 13)
  map-char-table(#<compiled-function (key value) "...(35)" [value newval new 
key get-range-char-table multi map-char-table #<compiled-function ... "...(19)" 
... 5> char-syntax-from-code ?@ put-char-table nil] 5> #s(char-table type 
syntax data ( (?\^@ ?!) 13 ?\" 1 (?\# ?&) 13 ?\' 2 (?\( ?\[) 13 ?\\ 1 (?\] 
?\^ß) 13 latin-iso8859-1 13 latin-iso8859-2 13 latin-iso8859-3 13 
latin-iso8859-4 13 thai-tis620 13 greek-iso8859-7 13 arabic-iso8859-6 13 
hebrew-iso8859-8 13 katakana-jisx0201 13 latin-jisx0201 13 cyrillic-iso8859-5 
13 latin-iso8859-9 13 japanese-jisx0208-1978 13 chinese-gb2312 13 
japanese-jisx0208 13 korean-ksc5601 13 japanese-jisx0212 13 chinese-cns11643-1 
13 chinese-cns11643-2 13 chinese-big5-1 13 chinese-big5-2 13 arabic-digit 13 
arabic-1-column 13 arabic-2-column 13 sisheng 13 ipa 13 vietnamese-viscii-lower 
13 vietnamese-viscii-upper 13 latin-iso8859-16 13 latin-iso8859-14 13 
latin-iso8859-15 13 latin-iso8859-13 13 chinese-cns11643-3 13 
chinese-cns11643-4 13 chinese-cns11643-5 13 chinese-cns11643-6 13 
chinese-cns11643-7 13 chinese-isoir165 13 ethiopic 13 thai-xtis 13)))
  derived-mode-merge-syntax-tables(#s(char-table type syntax data ( (?\^@ ?!) 
13 ?\" 1 (?\# ?&) 13 ?\' 2 (?\( ?\[) 13 ?\\ 1 (?\] ?\^ß) 13 latin-iso8859-1 13 
latin-iso8859-2 13 latin-iso8859-3 13 latin-iso8859-4 13 thai-tis620 13 
greek-iso8859-7 13 arabic-iso8859-6 13 hebrew-iso8859-8 13 katakana-jisx0201 13 
latin-jisx0201 13 cyrillic-iso8859-5 13 latin-iso8859-9 13 
japanese-jisx0208-1978 13 chinese-gb2312 13 japanese-jisx0208 13 korean-ksc5601 
13 japanese-jisx0212 13 chinese-cns11643-1 13 chinese-cns11643-2 13 
chinese-big5-1 13 chinese-big5-2 13 arabic-digit 13 arabic-1-column 13 
arabic-2-column 13 sisheng 13 ipa 13 vietnamese-viscii-lower 13 
vietnamese-viscii-upper 13 latin-iso8859-16 13 latin-iso8859-14 13 
latin-iso8859-15 13 latin-iso8859-13 13 chinese-cns11643-3 13 
chinese-cns11643-4 13 chinese-cns11643-5 13 chinese-cns11643-6 13 
chinese-cns11643-7 13 chinese-isoir165 13 ethiopic 13 thai-xtis 13)) 
#s(char-table type syntax data ( (?\^@ ?!) 13 ?\" 1 (?\# ?&) 13 ?\' 2 (?\( ?\[) 
13 ?\\ 1 (?\] ?\^ß) 13 latin-iso8859-1 13 latin-iso8859-2 13 latin-iso8859-3 13 
latin-iso8859-4 13 thai-tis620 13 greek-iso8859-7 13 arabic-iso8859-6 13 
hebrew-iso8859-8 13 katakana-jisx0201 13 latin-jisx0201 13 cyrillic-iso8859-5 
13 latin-iso8859-9 13 japanese-jisx0208-1978 13 chinese-gb2312 13 
japanese-jisx0208 13 korean-ksc5601 13 japanese-jisx0212 13 chinese-cns11643-1 
13 chinese-cns11643-2 13 chinese-big5-1 13 chinese-big5-2 13 arabic-digit 13 
arabic-1-column 13 arabic-2-column 13 sisheng 13 ipa 13 vietnamese-viscii-lower 
13 vietnamese-viscii-upper 13 latin-iso8859-16 13 latin-iso8859-14 13 
latin-iso8859-15 13 ?� 2 (?” ?§) 13 ?Ø 2 ?© 13 ?Ŗ 2 (?« ?®) 13 ?Æ 2 (?° ?·) 13 
?ø 2 ?¹ 13 ?ŗ 2 (?» ?¾) 13 (?æ ?Ö) 2 ?× 3 (?Ų ?ö) 2 ?÷ 3 (?ų ?ž) 2 ?’ 1 
chinese-cns11643-3 13 chinese-cns11643-4 13 chinese-cns11643-5 13 
chinese-cns11643-6 13 chinese-cns11643-7 13 chinese-isoir165 13 ethiopic 13 
thai-xtis 13)))
  planner-mode()
  planner-task-info-from-string("misc" "From: rene <address@hidden>")
  planner-current-task-info()
  planner-sort-tasks()
  planner-sort-tasks-maybe()
  basic-save-buffer()
  save-buffer(nil)
  (progn (and oldmodebits (set-default-file-modes 
vm-default-folder-permission-bits)) (save-buffer prefix))
  (unwind-protect (progn (and oldmodebits ...) (save-buffer prefix)) (and 
oldmodebits (set-default-file-modes oldmodebits)))
  (let ((vm-inhibit-write-file-hook t) (oldmodebits ...)) (unwind-protect 
(progn ... ...) (and oldmodebits ...)))
  (let (mp (newlist nil)) (cond (... ...) (... ...)) (message "Stuffing 
attributes...") (vm-stuff-folder-attributes nil) (message "Stuffing 
attributes... done") (if vm-message-list (progn ... ... ... ... ... ... ... ... 
...)) (message "Saving...") (let (... ...) (unwind-protect ... ...)) 
(vm-set-buffer-modified-p nil) (let (... rb-list one-modified) (save-excursion 
...)) (vm-clear-modification-flag-undos) (setq vm-messages-not-on-disk 0) (setq 
vm-block-new-mail nil) (vm-write-index-file-maybe) (if (and 
vm-folders-summary-database buffer-file-name) (progn ... ...)) 
(vm-update-summary-and-mode-line) (and (zerop ...) vm-delete-empty-folders 
buffer-file-name (or ... ...) (condition-case nil ... ...)))
  (if (buffer-modified-p) (let (mp ...) (cond ... ...) (message "Stuffing 
attributes...") (vm-stuff-folder-attributes nil) (message "Stuffing 
attributes... done") (if vm-message-list ...) (message "Saving...") (let ... 
...) (vm-set-buffer-modified-p nil) (let ... ...) 
(vm-clear-modification-flag-undos) (setq vm-messages-not-on-disk 0) (setq 
vm-block-new-mail nil) (vm-write-index-file-maybe) (if ... ...) 
(vm-update-summary-and-mode-line) (and ... vm-delete-empty-folders 
buffer-file-name ... ...)) (message "No changes need to be saved"))
  (if (eq major-mode (quote vm-virtual-mode)) (vm-virtual-save-folder prefix) 
(if (buffer-modified-p) (let ... ... ... ... ... ... ... ... ... ... ... ... 
... ... ... ... ...) (message "No changes need to be saved")))
  vm-save-folder()
  (if (and (buffer-modified-p) (or buffer-file-name buffer-offer-save) (not 
no-change) (not virtual)) (vm-save-folder))
  (let ((virtual ...)) (cond (... ...) (... ...) (... ...)) (save-excursion 
(run-hooks ...)) (vm-garbage-collect-message) (vm-garbage-collect-folder) 
(vm-virtual-quit) (if (and ... ...) (progn ... ...)) (if (and ... ... ... ...) 
(vm-save-folder)) (message "") (let (... ... ...) (if summary-buffer ...) (if 
pres-buffer ...) (set-buffer mail-buffer) (vm-display mail-buffer nil nil nil) 
(set-buffer mail-buffer) (if buffer-file-name ...) (set-buffer-modified-p nil) 
(kill-buffer ...)) (vm-update-summary-and-mode-line))
  (lambda (&optional no-change) "Quit visiting the current folder, saving 
changes.  Deleted messages are not expunged." (interactive) 
(vm-select-folder-buffer) (if (not ...) (error "%s must be invoked from a VM 
buffer." this-command)) (vm-check-for-killed-summary) 
(vm-check-for-killed-presentation) (vm-display nil nil (quote ...) (list 
this-command ...)) (let (...) (cond ... ... ...) (save-excursion ...) 
(vm-garbage-collect-message) (vm-garbage-collect-folder) (vm-virtual-quit) (if 
... ...) (if ... ...) (message "") (let ... ... ... ... ... ... ... ... ...) 
(vm-update-summary-and-mode-line)))()
  call-interactively(vm-quit)