[mew-dist 27114] Re: mew-nmz-* 質問

[Hideyuki SHIRAI ( 白井秀行 )]

From: <yoshi at example.com> さん曰く
Subject: [mew-dist 27113] mew-nmz-* 質問
Message-ID: <20060726.000807.68458504.yoshi at example.com>
Date: Wed, 26 Jul 2006 00:08:07 +0900 (JST)

> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
>   regexp-quote(nil)
>   (list (regexp-quote mew-draft-folder) (regexp-quote mew-trash-folder) (regexp-quote mew-queue-folder) (regexp-quote mew-attach-folder) (regexp-quote mew-imap-queue-folder) (regexp-quote mew-imap-trash-folder) (regexp-quote mew-postq-folder))
>   (\` ((\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...)))
>   eval((\` ((\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...))))
>   custom-initialize-reset(mew-nmz-mknmz-skip-folders-regexp (\` ((\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...) (\, ...))))

あぁ、mew-trash-folder または mew-imap-trash-folder が nil なの
ですね。これは気付きませんでした。申し訳ないです。

そのため、mew-nmz-mknmz-skip-folders-regexp を設定するときにエラー
になっています。

mew-nmz.el の mew-nmz-mknmz-skip-folders-regexp の初期設定部分を
下記のように変えれば OK だと思います。

(defcustom mew-nmz-mknmz-skip-folders-regexp
  (mapcar 'regexp-quote
	  (delq nil
		`(,mew-draft-folder ,mew-trash-folder ,mew-queue-folder ,mew-attach-folder
		  ,mew-imap-queue-folder ,mew-imap-trash-folder ,mew-postq-folder
		  , at example.com , at example.com)))
  "*Folders regexp to skip the index creating."
  :group 'mew-nmz
  :type '(repeat regexp))

-- 
白井秀行 (mailto:shirai at example.com)