[Mew-dist 15440] mew-guess-template

[Yu Ooasa]

subject変えます_o_

後藤さんの mew-guess.el で幸せになったのですが、mew-guess-template が
うまく動きません、これは小幡さんのcontribのものでも同じでした

アドヴァイスありましたらよろしくお願いします

(setq mew-guess-template-alist
      '(("Config:"
	 ("tech" "~/Mail/.template-tech"))))

backtraceをつけます
--
Yu Ooasa  E-mail: you at example.com
-------------- next part --------------
Signaling: (wrong-number-of-arguments (lambda (alist headers) (let (name header sublist key val ent ret) (while (and alist (not ret)) (setq name (car (car alist))) (setq sublist (cdr (car alist))) (cond ((eq name t) (setq ret sublist)) (t (setq header (cdr (assoc (downcase name) headers))) (if header (while (and sublist (not ret)) (setq key (car (car sublist))) (setq val (cdr (car sublist))) (if (and (stringp key) (string-match key header)) (cond ((stringp (car val)) (setq ent (mew-refile-guess-by-alist2 key header (car val)))) ((or (functionp (car val)) (symbolp (car val))) (setq ent (car val))) ((listp (car val)) (setq ent (mew-guess-by-alist val))))) (if ent (setq ret val)) (setq sublist (cdr sublist)))))) (setq alist (cdr alist))) ret)) 1)
  mew-guess-by-alist((("Config:" ("tech" "~/Mail/.template-tech"))))
  (let* ((glist ...) (file ...) (kwlist ...) deleted efile) (if file (progn ... ...)))
  mew-guess-template()
  call-interactively(mew-guess-template)
  execute-extended-command(nil)
* call-interactively(execute-extended-command)