[mew-dist 25930] config 時の spam-prog

[MORI Kouji]

森です。

Emacs-21.3 + mew-4.1.55 を使用しています。

config で spam-prog を設定しようとしているのですが spam を学習
させようとして ls とすると wrong-type-argument stringp quote となって
動きません。設定の仕方がまずいんでしょうか。

エラーになった時の debug message を添付します。

config じゃなくて mew-spam-prog に設定した場合は ls で学習される
ことを確認しています。

動く時:

(setq mew-spam-prog "ssh")
(setq mew-prog-args '("millefuille" "sa-learn" "--spam"))

動かない時:

(setq mew-config-alist
      '(("default"
         ("spam-prog" . "ssh")
	 ("spam-prog-args" . '("millefuille" "sa-learn" "--spam"))
         ; 略
        )))

-- 
森 浩二	(MORI Kouji)
(株)淺沼組 技術研究所 構造研究グループ
E-mail: mori at example.com
-------------- next part --------------
Debugger entered--Lisp error: (wrong-type-argument stringp quote)
  call-process("ssh" "/home/mori/Mail/.imap/mori at example.com%imap/inbox/6954" #<buffer  *temp*> nil quote ("millefuille" "sa-learn" "--spam"))
  apply(call-process "ssh" "/home/mori/Mail/.imap/mori at example.com%imap/inbox/6954" #<buffer  *temp*> nil (quote ("millefuille" "sa-learn" "--spam")))
  (save-current-buffer (set-buffer temp-buffer) (apply (quote call-process) prog file (current-buffer) nil args) (setq beg (point-min)) (goto-char beg) (forward-line) (if (= ... beg) (message "Learning as spam...done") (setq end ...) (message ...)))
  (with-current-buffer temp-buffer (apply (quote call-process) prog file (current-buffer) nil args) (setq beg (point-min)) (goto-char beg) (forward-line) (if (= ... beg) (message "Learning as spam...done") (setq end ...) (message ...)))
  (unwind-protect (with-current-buffer temp-buffer (apply ... prog file ... nil args) (setq beg ...) (goto-char beg) (forward-line) (if ... ... ... ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))
  (let ((temp-buffer ...)) (unwind-protect (with-current-buffer temp-buffer ... ... ... ... ...) (and ... ...)))
  (with-temp-buffer (apply (quote call-process) prog file (current-buffer) nil args) (setq beg (point-min)) (goto-char beg) (forward-line) (if (= ... beg) (message "Learning as spam...done") (setq end ...) (message ...)))
  (progn (with-temp-buffer (apply ... prog file ... nil args) (setq beg ...) (goto-char beg) (forward-line) (if ... ... ... ...)))
  (if (mew-which-exec prog) (progn (with-temp-buffer ... ... ... ... ...)))
  (when (mew-which-exec prog) (with-temp-buffer (apply ... prog file ... nil args) (setq beg ...) (goto-char beg) (forward-line) (if ... ... ... ...)))
  (let* ((fld ...) (msg ...) (file ...) (case ...) (prog ...) (args ...) beg end) (message "Learning as spam...") (when (mew-which-exec prog) (with-temp-buffer ... ... ... ... ...)))
  (cond ((eobp) (message "No message")) ((not ...) (message "Please use this command on a message, not a part")) (t (let* ... ... ...)))
  (mew-summary-msg (let* (... ... ... ... ... ... beg end) (message "Learning as spam...") (when ... ...)))
  mew-summary-learn-spam()
  call-interactively(mew-summary-learn-spam)