[mew-win32 4534] Re: mew-wrap-lines: Symbol's function definition is void: fill-match-adaptive-prefix

[Takashi Masuda ( 増田貴士 )]

増田です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Date: Fri, 26 Dec 2008 11:02:26 +0900 (JST)
Subject: [mew-win32 4521] Re: mew-wrap-lines: Symbol's function definition is void: fill-match-adaptive-prefix

> CVS にコードをマージしました。

Emacs21 では、まだ表題のエラーが出るようです。
修正したパッチを送ります。

よろしくお願いします。

--
Takashi Masuda <masutaka at example.com>
-------------- next part --------------
Index: mew-env.el
===================================================================
RCS file: /cvsmew/mew/mew-env.el,v
retrieving revision 1.60
diff -u -r1.60 mew-env.el
--- mew-env.el	21 Jan 2009 05:54:55 -0000	1.60
+++ mew-env.el	14 Feb 2009 10:28:36 -0000
@@ -231,8 +231,7 @@
 ;;; Misc
 ;;;
 
-(if (fboundp 'fill-match-adaptive-prefix)
-    (defalias 'mew-fill-match-adaptive-prefix 'fill-match-adaptive-prefix)
+(unless (fboundp 'fill-match-adaptive-prefix)
   ;; Emacs 21.4
   (defun fill-match-adaptive-prefix ()
     (let ((str (or
@@ -244,6 +243,8 @@
 	  nil
 	str))))
 
+(defalias 'mew-fill-match-adaptive-prefix 'fill-match-adaptive-prefix)
+
 (provide 'mew-env)
 
 ;;; Copyright Notice: