[mew-dist 27769] Re: "_"

[Hideyuki SHIRAI ( 白井秀行 )]

# 出し直し。。。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 27768] Re: "_"
Message-ID: <20070803.183852.01443858.shirai.hideyuki at example.com>
Date: Fri, 03 Aug 2007 18:38:52 +0900 (JST)

> > "_" が無敵になりました。
> 
> また、mew-wrap-lines() では window-width でやる/やらないを決め
> ていますが、fill したところは fill-column で折り返すのだから、
> やる /やらないも fill-column で決めた方が整形後の見た目が良い
> と思います。

ちょっとだけ fill-column よりはみ出しているときが微妙だけど、しょ
うがないかなぁ。4文字ぐらいは、普通の fill-column より大きめの値
を設定するとよいかもです。

> ## fill-match-adaptive-prefix() って知らなかった。

また、fill-prefix があったら、そいつ分も計算に入れた方がよい整形
結果になるような感じです。

(defcustom mew-wrap-lines-column fill-column
  "*Number of fill column to wrap line."
  :group 'mew-message
  :type 'integer)

(defun mew-wrap-lines (beg end)
  (save-restriction
    (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)
	(while (not (eobp))
	  (setq start (point))
	  (setq fill-prefix (fill-match-adaptive-prefix))
	  (forward-line)
	  (setq width (string-width (mew-buffer-substring start (point))))
	  (if fill-prefix
	      (setq fill-column (+ column (string-width fill-prefix)))
	    (setq fill-column column))
	  (when (> width fill-column)
	    (fill-region-as-paragraph start (1- (point)))))))))

-- 
白井秀行 (mailto:shirai at example.com)