[Mew-dist 04153] mew-petname.el patch

[りゅう]

りゅうです。

b24 に上げて、久々に、mew-petname.el を動かしたら動かなかったんで、
patch をつくりました。たまにしか動かさないから、だいぶん前から動い
てなかったのかも知れませんが、、、^^;;;
#mew-summary-part-number → mew-syntax-number に変ってたみたいなので、
#それを変更しただけです、、、^^;;;

-------------- next part --------------
--- contrib.orig/mew-petname.el	Mon Dec 15 10:18:21 1997
+++ contrib/mew-petname.el	Wed Mar 11 10:44:34 1998
@@ -27,13 +27,13 @@
   (cond
    ((eobp)
     (message "No message"))
-   ((not (or (mew-summary-message-number) (mew-summary-part-number)))
+   ((not (or (mew-summary-message-number) (mew-syntax-number)))
     (message "No message"))
    (t
     (let (msg from petname oldpetname replace)
       ;; とにかく save-excursion
       (save-excursion
-	(if (mew-summary-part-number)
+	(if (mew-syntax-number)
 	    (re-search-backward mew-summary-message-regex nil t nil))
 	;; メッセージを表示させる
 	(mew-summary-display t)
-------------- 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)
(>_<)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(^_^)(^-^)(>_<)