[Mew-dist 11052] Re: mew-refile-view and Mew 1.94.1

[Takashi P.KATOH]

# (まだ) 使ってくれてる人がいることが分かってちょっと嬉しい (^_^)

From: Fukae Seiji (深江誠二) <fukae at example.com>
Subject: [Mew-dist 11050] mew-refile-view and Mew 1.94.1
Message-ID: <19991025201613N.fukae at example.com>
> Mew のバージョンを 1.94 から 1.94.1 にあげたら、
> 急に、mew-refile-view の動作がおかしくなりました。

たぶんこのパッチでイケると思います。

-- 
かとぺ / 加藤 貴司

-------------- next part --------------
--- contrib/mew-refile-view.el,0.05	Mon Jul 19 13:39:51 1999
+++ contrib/mew-refile-view.el	Mon Oct 25 22:07:46 1999
@@ -2,11 +2,11 @@
 
 ;; Author:  Takashi P.KATOH <p-katoh at example.com>
 ;; Created: Oct 22, 1998
-;; Revised: Jul 17, 1999
+;; Revised: Oct 25, 1999
 
 ;;; Code:
 
-(defconst mew-refile-view-version "mew-refile-view.el version 0.05")
+(defconst mew-refile-view-version "mew-refile-view.el version 0.06")
 
 (require 'mew)
 (if mew-xemacs-p (require 'easymenu))
@@ -142,7 +142,8 @@
 		   numlist (cdr numlist))
 	     ;;
 	     (set-buffer (get-buffer folder))
-	     (mew-summary-jump-message (int-to-string num))
+	     (let ((mew-summary-jump-message-then-display nil))
+	       (mew-summary-jump-message (int-to-string num)))
 	     (setq summary (buffer-substring 
 			    (point) (save-excursion (end-of-line) (point))))
 	     ;;