[Mew-dist 14870] Re: mew-nmz.el for alpha Mew

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [Mew-dist 14860] Re: mew-nmz.el for alpha Mew
Message-ID: <20001106.191030.50037345.shirai at example.com>
Date: Mon, 6 Nov 2000 19:10:44 +0900

白井> 一つパッチをお願いします。(_ _)

もう一度お願いします。

# mew-nmz-search-mark() しても summary の最後の message に mark
# がつきませんでした。

-- 
白井秀行＠これ以上 *無い* ことを願う。^^;
-------------- next part --------------
--- mew-nmz.el.orig	Mon Nov  6 22:47:36 2000
+++ mew-nmz.el	Fri Nov 10 12:36:24 2000
@@ -608,20 +608,18 @@
   (if (eq (point-min) (point-max))
       (message "No messages in this buffer.")
     (let ((fld (mew-summary-folder-name))
-	  pattern first last msgs)
+	  pattern msgs)
       (setq mew-summary-buffer-find-keyword nil) ;; force to ask a user
       (setq pattern (mew-nmz-input-pick-pattern))
       (message "Namazu picking messages in %s ..." fld)
       (goto-char r1)
+      (beginning-of-line)
+      (setq r1 (point))
       (if (eobp)
 	  () ;; r1 <= r2, so if r1 = (point-max) then no messages.
-	(setq first (mew-summary-message-number))
 	(goto-char r2)
-	(if (not (eobp))
-	    ()
-	  (forward-line -1)
-	  (setq r2 (point)))
-	(setq last (mew-summary-message-number))
+	(forward-line)
+	(setq r2 (point))
 	(setq msgs (cdr
 		    (car (mew-nmz-multi-pick
 			  (list (mew-nmz-expand-folder fld)) pattern)))))