[Mew-dist 3114] mew-petname.el patch (Mew version mew-1.93b6)

[りゅう]

りゅうです。
＃水戸さん mew-y-or-n-p がなくなった件ありがとうございました。_o_

久しぶりに、mew-petname.el を使ったら、mew-y-or-n-p がないと
いわれたので、その分を修正しました。^^;;;
＃ほかにも、自分自身で、mew-y-or-n-p を使ってるところが
＃ないか調べないと、、、^^;;;
もう、作者の方とかは対処されていると思いますが、一応 patch を
つけておきます。

-------------- next part --------------
--- contrib/mew-petname.el.orig	Tue Oct 28 13:08:47 1997
+++ contrib/mew-petname.el	Wed Dec 10 19:34:44 1997
@@ -45,9 +45,9 @@
 	;; Petname が登録されていたら
 	(and (setq oldpetname (cdr (mew-assoc-case-equal
 				    from mew-petname-alist 0)))
-	     (setq replace (mew-y-or-n-p 
-			    "Petname \"%s\" already exists. Replace?"
-			    oldpetname)))
+	     (setq replace (y-or-n-p 
+			    (format "Petname \"%s\" already exists. Replace?"
+				    oldpetname))))
 	(if (and oldpetname (not replace))
 	    nil
 	  (let (minibuffer-setup-hook)
@@ -57,8 +57,8 @@
 			   (format "Petname for \"%s\": " from))))
 	  (cond
 	   ((and 
-	     (mew-y-or-n-p "Petname %s for \"%s\", correct and save?"
-			   petname from)
+	     (y-or-n-p (format "Petname %s for \"%s\", correct and save?"
+			       petname from))
 	     ;; mew-petname-alist に登録
 	     (setq mew-petname-alist
 		   (cons (cons from petname) mew-petname-alist))
-------------- next part --------------
------
(>_<)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(>_<)
(@_@) E-mail     : nagare at example.com     (@_@)
(9_9) Automobile : MPV R-Four Granz                    (9_9)
(O_O) Motorcycle : Bandit [250cc]                      (0_0)
(^-^) Inline     : Rollerblade [BRAVOBLADE GLX]        (^-^)
(6_6) Call sign  : JG3BLY (144MHz & 430MHz)            (6_6)
(>_<)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(>_<)