[emacs-wiki-discuss] [bug #5113] Loading planner first interferes with VM

[Michael Olson]

URL:
  <http://gna.org/bugs/?func=detailitem&item_id=5113>

                 Summary: Loading planner first interferes with VM
                 Project: Planner.el and related modules
            Submitted by: mwolson
            Submitted on: Friday 01/20/06 at 20:12
                Category: Source
                Priority: 1 - Later
                Severity: 3 - Normal
                  Status: None
                 Privacy: Public
             Assigned to: None
        Originator Email: 
             Open/Closed: Open

    _______________________________________________________

Details:

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 follows.

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)








    _______________________________________________________

Reply to this item at:

  <http://gna.org/bugs/?func=detailitem&item_id=5113>

_______________________________________________
  Message sent via/by Gna!
  http://gna.org/