[Mew-dist 13954] Re: mew-1.95b55.tar.gz

[KOIE Hidetaka ( 鯉江英隆 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 13951] Re: mew-1.95b55.tar.gz
Date: Mon, 28 Aug 2000 15:55:45 +0900

  | +queue で refile できるようにしているのは、意図的です。

そんな機能があるのかぁ、とおもいmew-1.95b43でためしました。
"+queue"へのrefileは阻止されますが"+queue/xxx"はできてしまうので

mew-refile.elのmew-summary-refile-body()で

    ;; we must prevent refiling a message to +queue
    (setq folders (delete mew-queue-folder folders)) ;; xxx

となっているところを

      (setq folders
            (let ((pat (format "^\\(%s\\|%s/.*\\)$"
                               mew-queue-folder
                               mew-queue-folder)))
              (delete nil
                      (mapcar (lambda (fld)
                                (if (string-match pat fld)
                                    (progn
                                      (message "%s is disallowed." fld)
                                      nil)
                                  fld))
                              folders))))

にしました。

--
KOIE Hidetaka 鯉江英隆 <hide at example.com>