[mew-dist 27819] Re: "_"

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 27787] Re: "_"
Message-ID: <20070810.112651.88022742.kazu at example.com>
Date: Fri, 10 Aug 2007 11:26:51 +0900 (JST)

> > > ## fill-match-adaptive-prefix() って知らなかった。
> > 
> > また、fill-prefix があったら、そいつ分も計算に入れた方がよい整形
> > 結果になるような感じです。
> 
> とりあえず、こちらの実装を取り入れました。

どうもです。

fill-prefix 分 fill-column が長くなりますが、window-width が狭い
状態(Zaurusなど)だと、見にくいのでパッチです。

# (- (window-width) 2) しているのは実験で求めました。ちなみに
# char-width が 3の言語は対象にしていません :-)

-- 
白井秀行 (mailto:shirai at example.com)

RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.199
diff -u -u -r1.199 mew-summary4.el
--- mew-summary4.el	10 Aug 2007 02:26:00 -0000	1.199
+++ mew-summary4.el	22 Aug 2007 10:20:39 -0000
@@ -1351,10 +1351,10 @@
     (narrow-to-region beg end)
     (save-excursion
       (goto-char (point-min))
-      (let* ((adaptive-fill-mode nil)
-	     (column (min (window-width) mew-wrap-lines-column))
-	     (fill-column column)
-	     width start fill-prefix)
+      (let ((adaptive-fill-mode nil)
+	    (winwidth (- (window-width) 2))
+	    (fill-column mew-wrap-lines-column)
+	    width start fill-prefix)
 	(while (not (eobp))
 	  (setq start (point))
 	  (setq fill-prefix (fill-match-adaptive-prefix))
@@ -1362,8 +1362,9 @@
 	  (setq width (current-column))
 	  (forward-line)
 	  (if fill-prefix
-	      (setq fill-column (+ column (string-width fill-prefix)))
-	    (setq fill-column column))
+	      (setq fill-column (+ mew-wrap-lines-column (string-width fill-prefix)))
+	    (setq fill-column mew-wrap-lines-column))
+	  (setq fill-column (min fill-column winwidth))
 	  (when (> width fill-column)
 	    (fill-region-as-paragraph start (1- (point)))))))))