[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 メーリングリストの案内