[Mew-dist 09544] Re: mew-refile-view.el (Re: mew-refile.el)

[Hideyuki SHIRAI ( 白井秀行 )]

こんにちは、白井です。

From: Fukae Seiji (深江誠二) <fukae at example.com> さん曰く
Subject: [Mew-dist 09540] Re: mew-refile-view.el (Re: mew-refile.el)
Message-ID: <19990707072246C.fukae at example.com>
Date: Wed, 7 Jul 1999 07:22:52 +0900

深江> >> mew-refile-view.el 0.04 です。

深江> XEmacs 21.1 (Acadia) や XEmacs 21.2 (Chiyoda) では、
深江> mew-refile-view を起動しようとすると、以下のような
深江> エラーが出て、うまく表示されません。

XEmacs 21.2-b17 (Chiyoda) は珍しくちゃんと動かしているので試したの
ですが、まったく同じ症状です。なんでだか全然わかりませんが。。。

ちなみに、mew-pop-to-buffer なのですが、XEmacs 21.1.2 と
21.2-b17 では、xemacs-21.xxxx/lisp/buffer.el で

(defun pop-to-buffer (bufname &optional not-this-window-p on-frame)

と定義してあるので、以下の様でもいいんじゃないかと思います。

# 昔の XEmacs は知らないんですが、mew-refile-view もこれで動いたこ
# とだし。

--- mew-env.el.orig	Mon Jun 28 20:52:31 1999
+++ mew-env.el	Wed Jul  7 12:44:12 1999
@@ -71,9 +71,11 @@
 	    (extent-list (current-buffer) beg end)))
   (fset 'mew-buffer-substring (symbol-function 'buffer-substring))
   (defun mew-mark () (mark t))
-  (defun mew-pop-to-buffer (buf)
-    (select-window (display-buffer buf nil (selected-frame)))
-    (set-buffer buf)))
+  (if (functionp 'pop-to-buffer)
+      (fset 'mew-pop-to-buffer (symbol-function 'pop-to-buffer))      
+    (defun mew-pop-to-buffer (buf)
+      (select-window (display-buffer buf nil (selected-frame)))
+      (set-buffer buf))))
  (mew-temacs-p
   (if window-system (require 'faces))
   (fset 'mew-overlay-p (symbol-function 'overlayp))