[mew-win32 04183] Re: mew-summary-bsfilter-mark-region and mew-summary-pick-with-cmd

Shuichi KITAGUCHI ki at example.com
2004年 12月 25日 (土) 19:53:48 JST


北口です。

どうやってbsfilterが動作しているか知らないので、あてずっぽうですが、

> 水口@京都 と申します。
> 
> bsfilter-1.0.6.tgz には Mew4 用の設定ファイルがバンドルされています。 
> ありがたいことです。
> 
> しかし、その中で定義されている mew-summary-bsfilter-mark-region という
> elisp 関数がうまく動きません。 調べてみると、 mew-pick.el の 
> mew-summary-pick-with-cmd() 中の "/dev/null" を、bsfilter コマンドが解
> さないのが原因の様です。 これは、どうやって解決すべき問題なんでしょう
> か?
...
> なので、緊急避難的に、mew-pick.el 中の /dev/null を NUL に変更して凌い
> でいます。

NULで正常動作するならたぶんM-x grepと同じだと思うので、"/dev/null"と書く
のではなく、null-deviceを利用すべきなのかなと思います。パッチにしたら
こんな感じでしょうか。

Index: mew-pick.el
===================================================================
RCS file: /cvsmew/mew/mew-pick.el,v
retrieving revision 1.39
diff -u -r1.39 mew-pick.el
--- mew-pick.el	7 Sep 2004 05:05:11 -0000	1.39
+++ mew-pick.el	25 Dec 2004 10:51:47 -0000
@@ -205,7 +205,7 @@
 	 (default-directory dir) ;; buffer local
 	 msgs nxt)
     ;; no sort here
-    (if (= (length src-msgs) 1) (setq src-msgs (cons "/dev/null" src-msgs)))
+    (if (= (length src-msgs) 1) (setq src-msgs (cons null-device src-msgs)))
     (setq pattern (mew-cs-encode-arg pattern))
     (with-temp-buffer
       (cd dir)
@@ -242,7 +242,7 @@
 	 (cmd mew-inherit-grep-cmd)
 	 msgs nxt arg)
     ;; no sort here
-    (if (= (length src-msgs) 1) (setq src-msgs (cons "/dev/null" src-msgs)))
+    (if (= (length src-msgs) 1) (setq src-msgs (cons null-device src-msgs)))
     (with-temp-buffer
       (cd dir)
       (mew-piolet
Index: mew-virtual.el
===================================================================
RCS file: /cvsmew/mew/mew-virtual.el,v
retrieving revision 1.64
diff -u -r1.64 mew-virtual.el
--- mew-virtual.el	16 Dec 2004 05:01:45 -0000	1.64
+++ mew-virtual.el	25 Dec 2004 10:51:47 -0000
@@ -134,7 +134,7 @@
       (setq dir (mew-expand-folder (car flds)))
       (let ((default-directory dir))
 	(setq msgs (mew-dir-messages "."))
-	(if (= (length msgs) 1) (setq msgs (cons "/dev/null" msgs)))
+	(if (= (length msgs) 1) (setq msgs (cons null-device msgs)))
 	(cd dir)
 	(mew-erase-buffer)
 	(message "Picking in %s..." (car flds))


--
Shuichi Kitaguchi // kit at example.com / ki at example.com



Mew-win32 メーリングリストの案内