[mew-dist 23644] mew-nmz.el patch for Mew 4

[橋 宏彰]

> > パッチ前は z V が正しく動作していませんでしたが、パッチ後はちゃんと動
> > いているようと思います。
> 
> それでは、とりあえずマージしておきます。
> 
> --かず

ありがとうございます。

バグがありました。
# indexには残っているけど、既に実体が削除されているmessagesにhitした場
# 合にこけます。

さらに修正パッチです。

これもあててもらえないでしょうか。

--
  橋 宏彰 <hasi at example.com>

-------------- next part --------------
--- mew-nmz.el.orig	Thu May 15 05:45:49 2003
+++ mew-nmz.el	Thu May 15 05:48:46 2003
@@ -1187,12 +1187,12 @@
 ;;;
 
 (defun mew-nmz-re-search-message (msg)
-  (let (here (point))
-    (if (not (re-search-forward (concat "^.*\r [^ ]+ " msg "[^0-9]") nil t))
-	(progn (goto-char here)
-	       nil)
-      (beginning-of-line)
-      t)))
+  (setq here (point))
+  (if (not (re-search-forward (concat "^.*\r [^ ]+ " msg "[^0-9]") nil t))
+      (progn (goto-char here)
+	     nil)
+    (beginning-of-line)
+    t))
 
 (provide 'mew-nmz)