[mew-win32 4394] Re: 拡張子
INOUE Tomohiro <[email protected]>
| Newsgroups | gmane.mail.mew.windows |
|---|---|
| Message-ID | <[email protected]> |
井上です。 反応遅くてすみません。 Kazu Yamamoto (山本和彦) <[email protected]>: > > > 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 が動かないですね。添付みたいな修正でいいでしょうか。 -- 井上 知洋
mew-summary4.diff
(text/plain, 1005 B)
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."