[Mew-dist 15627] Re: about cite label

[NINOMIYA Hideyuki]

おはようございます	二宮@お四国 です

二宮 秀幸 は Thu, 21 Dec 2000 17:43:13 +0900 頃に
    Subject: [Mew-dist 15602] about cite label
    Message-Id: <20001221.174204.104024717.nin at example.com>
れお> Mew-1.95b90+諸々のパッチ on XEmacs 21.1.12 (Channel Islands)
れお>  という環境において

れお> というフォームで、`mew-draft-cite-fill-mode' Value: wrap として
れお> いますが、
<実例>
れお> てな具合に1行おきになってしまいます。
れお> コードも一応眺めてみたのですが、今一なぜこうなってしまうのか
れお> 解りません。。。

鯉江 様より直メールもらったりでもう一度コードを検討した結果、
(fill-region)自体の動作が怪しいということで、以下のようなテストを
してみました。

(fill-region (point-min) (point))■
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa[eobp]

この黒トウフをカーソルとします。ここで実行すると。。。

(fill-region (point-min) (point))
■
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa[eobp]

こんなんでましたけどぉ....ォィォィ
なんで勝手に変なとこに改行入れるねん (^^)// 悪どいなぁ。。。

って事に XEmacs 21.1.12 ではなりました。
手元に XEmacs 21.2.x が無いので、どなたか 21.2 でのテストをして
いただければと思います。21.2 も同じならば、以下のパッチを適応して
いただけたらと思います。

Index: mew-draft.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-draft.el,v
retrieving revision 1.5
diff -u -F(def -r1.5 mew-draft.el
--- mew-draft.el	2000/12/14 07:30:16	1.5
+++ mew-draft.el	2000/12/21 15:41:44
@@ -568,7 +568,11 @@ (defun mew-cite-strings ()
 	       ((eq mew-draft-cite-fill-mode 'wrap)
 		(setq beg (point))
 		(end-of-line)
-		(fill-region beg (point))))
+		(fill-region beg (point))
+		(if (not mew-xemacs-p)
+		    ()
+		  (delete-backward-char 1)
+		  (beginning-of-line))))
 	      (forward-line)))
 	  (buffer-string))))))

もし、21.2 と 21.1 とでこの辺違いがある場合はどうすりゃいいんで
しょうねぇ ??

1). XEmacs 21.1 が変なのでそれを直す
2). Mew でバージョンチェックをして対応する

どうでしょう ?
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html