[mew-dist 26474] error in process filter: Wrong type argument: number-or-marker-p

2005年 7月 7日 (木) 04:59:31 JST

はじめまして。

Mew 4.2 を emacs20.7 の上で使っておりますが、エラーのため使えない
フォルダーがあります。OS は Debian GNU/Linux の testing です。

あるフォルダー("uncaughtspam" という名前です)に
移動("g" コマンド)しますと、ミニバッファに

Scanning +uncaughtspam...
error in process filter: Wrong type argument: number-or-marker-p, nil [2 times]

というメッセージが出て、あるメッセージのところでスキャンが止まって
しまいます。一旦

   $ rm ~/Mail/uncaughtspam/.mew-*

として、emacs を立ち上げ直し、同じことをすると、同じ結果になります。

どのような原因が考えられますでしょうか?

以下に、(setq debug-on-error t) (setq mew-debug t) で得られた
*Backtrace* バッファの内容と、~/.emacs.el の mew に関係
ありそうな部分と、/.mew.el を引用します。

古恵 亮

===== *Backtrace* バッファ ============================

Signaling: (wrong-type-argument stringp nil)
  string-as-multibyte(nil)
  mapcar(string-as-multibyte (nil))
  mew-addrstr-parse-syntax-list("\"net storage service\" < >" 44 t 1)
  mew-summary-form-from()
  mew-scan-get-piece((14 from))
  mapconcat(mew-scan-get-piece (mark (-5 num) " " type (5 date) " " (14 from) " " t (0 subj)) "")
  mew-scan-get-line(["+uncaughtspam" "649" "Message" "Tue, 23 Sep 2003 00:24:53 +0900" "\"net storage service\" < >" "\"Inet Client\" <recipient at example.com>" "" "multipart/alternative;\n	boundary=\"sheqzcdpzhz\"" "" "" "<E1A1SYX-0007GX-00 at example.com>" "" "" "" "" ""] 79)
  mew-scan-insert-line("+uncaughtspam" ["+uncaughtspam" "649" "Message" "Tue, 23 Sep 2003 00:24:53 +0900" "\"net storage service\" < >" "\"Inet Client\" <recipient at example.com>" "" "multipart/alternative;\n	boundary=\"sheqzcdpzhz\"" "" "" "<E1A1SYX-0007GX-00 at example.com>" "" "" "" "" ""] 79 nil nil)
  mew-local-filter(#<process mew-local-info-<+uncaughtspam>> "Folder: +uncaughtspam\nFilename: 649\nSUBJECT: Message\nDate: Tue, 23 Sep 2003 00:24:53 +0900\nFROM: \"net storage service\" < >\nTO: \"Inet Client\" <recipient at example.com>\nContent-Type: multipart/alternative;\n	boundary=\"sheqzcdpzhz\"\nMessage-Id: <E1A1SYX-0007GX-00 at example.com>\n\n--sheqzcdpzhz\nContent-Type: text/html\nContent-Transfer-Encoding: quoted-printable\n\n<HTML>\n<HEAD></HEAD>\n<BODY>\n<iframe src=3D\"cid:mdwiboxp\" height=3D0 width=3D0></iframe>\n<BR>Message from yahoo.com\n<BR><BR><BR><BR>Undelivered to <B>ncxbqbh at example.com</B>\n<BR><BR><BR>Message follows:<BR><BR><BR><BR>\n</BODY></HTML>\n\n--sheqzcdpzhz\nContent-Type: audio/x-wav; name=\"bubq.exe\"\nContent-Transfer-Encoding: base64\nContent-Id: <mdwiboxp>\n\n\n\n.\n")

======= ~/.emacs.el の mew に関係ありそうな部分 =============
(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

;; Optional setup (e.g. C-xm for sending a message):
(autoload 'mew-user-agent-compose "mew" nil t)
(if (boundp 'mail-user-agent)
    (setq mail-user-agent 'mew-user-agent))
(if (fboundp 'define-mail-user-agent)
    (define-mail-user-agent
      'mew-user-agent
      'mew-user-agent-compose
      'mew-draft-send-message
      'mew-draft-kill
      'mew-send-hook))

;; Middle-click on a URL in mew windows.
;; (Is this variable not mew-specific???)
(setq browse-url-netscape-program "opera")

======= ~/.mew.el ==========================================
(setq mew-mailbox-type 'mbox)
(setq mew-mbox-command "incm")
(setq mew-mbox-command-arg "-d /var/mail/furue")

(setq mew-smtp-server "xxxxx.xxxxx.com")

(setq mew-cite-fields '("From:" "Subject:" "Date:" "Message-ID:"))
(setq mew-cite-format "From: %s\nSubject: %s\nDate: %s\nMessage-ID: %s\n\n")

(setq mew-mail-domain "xxxxx.com")

(setq mew-decode-quoted t)

(setq mew-use-fancy-thread t)     ;;-- 2002-11-16

(setq mew-print-command-format "nkf -e |a2psj -us -np |lp -c -dt1piprc -oDuplex=DuplexTumble")
(defun mew-print-region (begin end)
    (interactive "r")
    (shell-command-on-region begin end mew-print-command-format))
(defun mew-print-buffer ()
    (interactive)
    (mew-print-region (point-min) (point-max)))
(setq mew-print-function (function mew-print-buffer))

(autoload 'browse-url-at-mouse "browse-url"
      "Ask a WWW browser to load a URL clicked with the mouse." t)
(add-hook 'mew-message-mode-hook
   (function
      (lambda()
         (local-set-key [mouse-2] 'browse-url-at-mouse)
)))

(setq mew-cite-prefix "| ")
(setq mew-cite-fields nil) ;; no label for the cited text

(setq mew-fcc "+sent")

(condition-case nil        
    (require 'mew-w3m)     
    (file-error nil))        

(defun mew-summary-form-num ()
  (MEW-NUM))
(setq mew-summary-form
      `((-5 num) " " type (5 date) " " (14 from) " " t (0 subj))
)