[mew-dist 22972] Re: メールが遅れなくなってしまいました

[Shun-ichi GOTO]

## 読み落すところだった。。。

>>>>> at Wed, 22 Jan 2003 12:22:50 +0900 (JST),
>>>>> 白井 == Hideyuki SHIRAI (白井秀行) <shirai at example.com> said,

白井> mew-fake-cdp-sending で advice していた関数の引数の個数が変わっ
白井> たのが原因でした。

引数の変更で悩まされるのもアレなので、ad-get-arg を使う方が皆にとって良
かろうとおもうです。さすがに第一引数がsyntax でなくなることはなかろうか
ら。。。


-  (let ((ct (mew-syntax-get-value (mew-syntax-get-ct syntax) 'cap))
-	(cdpl (mew-syntax-get-cdp syntax))
-	(lc-ascii (if (boundp 'mew-lc-ascii)
-		      (symbol-value 'mew-lc-ascii)
-		    ;; mew-1.95b53 or later does not have mew-lc-ascii
-		    (if (string< "20" emacs-version)
-			'ascii		; for mule3 or later
-		      0)))		; for mule 2
-	str cdp cs)
+  (let* ((syntax (ad-get-arg 0))
+	 (ct (mew-syntax-get-value (mew-syntax-get-ct syntax) 'cap))
+	 (cdpl (mew-syntax-get-cdp syntax))
+	 (lc-ascii (if (boundp 'mew-lc-ascii)
+		       (symbol-value 'mew-lc-ascii)
+		     ;; mew-1.95b53 or later does not have mew-lc-ascii
+		     (if (string< "20" emacs-version)
+			 'ascii		; for mule3 or later
+		       0)))		; for mule 2
+	 str cdp cs)



白井>                   けど、良くみると hook が用意されているので、そ
白井> れを使うように変更してみました。

あぁ2.2rc3 からあるみたいですね。

これって引数つきのフックですけど、mew-encode-singlepart の引数変更にとも
ない、このhook も引数を変更すべきだったりするのでは？
となると、引数つきのhook も、(advice 以上に)引数の変動に悩まされるので、
ワタクシ的にはadvice のままでいいかな、と思ふのでそのままadvice で行きます。


白井> # 使い方は一緒です。オリジナルが良くわからなかったので、(あまり
白井> # に邪悪な寄生虫なので、あえて入手先は書きませんが :-)さっき後藤
白井> # さんちから貰ってきたものです。

もーどーでもいいとも思うので書いておきます。(更新済、動作チョイ確認済)
http://www.imasy.or.jp/~gotoh/lisp/mew-fake-cdp-sending.el
http://www.taiyo.co.jp/~gotoh/lisp/mew-fake-cdp-sending.el

--- Regards,
 Shun-ichi Goto  <gotoh at example.com>
   R&D Group, TAIYO Corp., Tokyo, JAPAN