[mew-win32 4394] Re: 拡張子

[INOUE Tomohiro]

井上です。

反応遅くてすみません。

Kazu Yamamoto (山本和彦) <kazu at example.com>:
> > > default-file-name-coding-system は、どうなっていますか？
> > それで良いと思います。
> 
> はい。僕も Meadow2 と Meadow3 の両方にあることを確かめたので、commit し
> ました。

私もこれでいいと思ったのですが、現在の CVS のコードだとうまく動いてくれ
ませんでした。日本語で検索したときに結果がゼロになってしまいます。

もしかして私の環境だけかもしれませんが、 mew-search-wds が呼ばれるとき
には default-file-name-coding-system が nil に束縛されていて、
shift_jis に変換されないまま wdsgrep に渡そうとするみたいです。


もう一つ、メールの流れと関係ありませんが、拡張子付きだと Summary で
C-c C-o が動かないですね。添付みたいな修正でいいでしょうか。

-- 井上 知洋

-------------- next part --------------
Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.178
diff -u -r1.178 mew-summary4.el
--- mew-summary4.el	24 Apr 2006 06:59:48 -0000	1.178
+++ mew-summary4.el	25 Apr 2006 14:30:32 -0000
@@ -187,13 +187,13 @@
 	 (regex (mew-folder-regex draft-dir))
          (bufs (mew-buffer-list regex))
          nums num n)
-    (setq nums (mapcar (lambda (x) (string-match "\\([0-9]+\\)$" x) (string-to-number (mew-match-string 1 x))) bufs))
+    (setq nums (mapcar (lambda (x) (string-match (format "\\([0-9]+\\)\\(%s\\)?$" mew-suffix) x) (string-to-number (mew-match-string 1 x))) bufs))
     (while nums
       (setq num (car nums))
       (setq nums (cdr nums))
       (if (or (null n) (< n num))
 	  (setq n num)))
-    (format "%s%d" draft-dir n)))
+    (concat (format "%s%d" draft-dir n) (if mew-use-suffix mew-suffix))))
 
 (defun mew-summary-jump-to-draft-buffer ()
   "Jump to one of drafts if exists."