[Mew-dist 15640] Re: about cite label

[Tatsuya Kinoshita]

In message "[Mew-dist 15627] Re: about cite label"
NINOMIYA Hideyuki <nin at example.com> wrote:

> 21.2 も同じならば、以下のパッチを適応していただけたらと思います。

スペースのみの行や空行だと、fill-regionで余分な改行は入らないので、
そのパッチだと、空行が削られるなど、うまく動かない場合があります。

> もし、21.2 と 21.1 とでこの辺違いがある場合はどうすりゃいいんで
> しょうねぇ ??
> 
> 1). XEmacs 21.1 が変なのでそれを直す
> 2). Mew でバージョンチェックをして対応する

バージョンチェック無しで対応してみました。

-- 
木下達也 (Tatsuya Kinoshita)
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.

 Permission is granted to use, copy, distribute, and/or modify it 
 without restriction.  There is NO WARRANTY.

--- mew-1.95b92/mew-draft.el	Sat Dec 23 12:13:33 2000
+++ mew-1.95b92-tats20001227/mew-draft.el	Wed Dec 27 07:17:03 2000
@@ -568,7 +568,11 @@
 	       ((eq mew-draft-cite-fill-mode 'wrap)
 		(setq beg (point))
 		(end-of-line)
-		(fill-region beg (point))))
+		(if (= (current-column) 0)
+		    ()
+		  (fill-region beg (point))
+		  (if (= (current-column) 0) ;; for XEmacs
+		      (delete-backward-char 1)))))
 	      (forward-line)))
 	  (buffer-string))))))