[mew-dist 21962] Re: Folder name (+inbox): +t

[NINOMIYA Hideyuki]

山本 和彦 様 は Sat, 19 Oct 2002 10:07:49 +0900 (JST) 頃に
    Subject: [mew-dist 21961] Re: Folder name (+inbox): +t
    Message-Id: <20021019.100749.68538427.kazu at example.com>
        に於いて以下のようにおっしゃっていました。
※都合により手を加えさせていただく事が有ります。御了承下さいマセヽ...
かず> From: TAKANO Yuji (たかのゆ〜じ) <takachan at example.com>
かず> Subject: [mew-dist 21960] Folder name (+inbox): +t
かず> 
かず> > Wrong type argument: symbolp, 1
かず> > 
かず> > と、ミニバッファに表示されます。

私んとこ(XEmacs 21.4.9 + Mew 3.0.69後)でも同じのが出ます。

かず> debugger のトレースを送って下さい。

ので、backtrace と原因と思しきものを。。。
-------------- next part --------------
# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
symbol-name(1)
(string-match "self-insert-command" (symbol-name gfunc))
(cond ((null gfunc) nil) ((string-match "self-insert-command" ...) (insert last-command-char)) ((and ... ...) (call-interactively gfunc)))
(if mew-input-folder-search-direction (cond (... ...) (... ...) (... ... ...) (... ... ...)) (cond (... nil) (... ...) (... ...)))
# bind (gfunc last-str str-vec)
(let* ((str-vec ...) last-str gfunc) (cond (... ... ...) (... ... ...)) (if mew-input-folder-search-direction (cond ... ... ... ...) (cond ... ... ...)))
(lambda nil (interactive) (let* (... last-str gfunc) (cond ... ...) (if mew-input-folder-search-direction ... ...)))()
call-interactively(mew-input-folder-self-insert)
# (condition-case ... . error)
# (unwind-protect ...)
read-minibuffer-internal("Folder name (%inbox): ")
byte-code("..." [standard-output standard-input prompt recursion-depth minibuffer-depth t read-minibuffer-internal] 2)
# (catch exit ...)
# bind (mouse-grabbed-buffer current-prefix-arg minibuffer-history-variable minibuffer-history-position minibuffer-scroll-window)
# (unwind-protect ...)
# bind (minibuffer-default _history_ oconfig mconfig frame buffer window oframe owindow dir default abbrev-table history readp keymap initial-contents prompt)
read-from-minibuffer("Folder name (%inbox): " "%" #<keymap size 28 0x392a> nil mew-input-folder-hist)
(setq folder (read-from-minibuffer (format "Folder name (%s): " default) prefix mew-input-folder-map nil (quote mew-input-folder-hist)))
# bind (folder mew-inherit-case prefix)
(let ((prefix ...) (mew-inherit-case ...) folder) (mew-input-clear) (mew-input-folder-clean-up) (if local-only (setq mew-input-complete-function ...) (setq mew-input-complete-function ...)) (setq folder (read-from-minibuffer ... prefix mew-input-folder-map nil ...)) (when (or ... ...) (setq folder default)) (directory-file-name folder))
# bind (local-only default)
mew-input-folder("%inbox")
# bind (inbox proto)
(let* ((proto ...) (inbox ...) (fld ...) (folder ...) buf win frame goend) (when mew-use-other-frame-for-summary (if ... ... ...)) (mew-summary-visit-folder folder goend))
# bind (goend)
mew-summary-goto-folder(nil)
# bind (command-debug-status)
call-interactively(mew-summary-goto-folder)
# (condition-case ... . error)
# (catch top-level ...)

-------------- next part --------------
gfunc に 数値の 1 が突っ込まれる事が原因のようです
backtrace を頼りに問題な部分を別バッファに吐き出させてみたところ

(defun mew-input-folder-self-insert ()
  (interactive)
  (let* ((str-vec (this-command-keys))
	 last-str gfunc)
    (cond
     ((stringp str-vec)
      (setq last-str str-vec)
      (setq gfunc (lookup-key (current-global-map) str-vec)))
     ((vectorp str-vec)
      (setq gfunc (lookup-key (current-global-map) str-vec))
      (insert-string (format "debug: %s, %s" gfunc str-vec) "*scratch*")	; XXX
      (unless gfunc
	(setq str-vec (lookup-key function-key-map str-vec))
	(if (vectorp str-vec)
	    (setq gfunc (lookup-key (current-global-map) str-vec))))))
    (if mew-input-folder-search-direction



debug: 1, [#<keypress-event g> #<keypress-event t>]

てな感じで、イベントの vecter が渡されるようです。
--─
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html