[mew-dist 27768] Re: "_"

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。二つほど。

From: Kazu Yamamoto (山本和彦) <kazu at example.com> さん曰く
Subject: [mew-dist 27766] "_"
Message-ID: <20070803.170333.165103493.kazu at example.com>
Date: Fri, 03 Aug 2007 17:03:33 +0900 (JST)

> "_" が無敵になりました。

マルチパートの部分で "_" すると、mew-summary-line() =>
(mew-header-end) => nil でエラーしますね。ガードしないと。

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

(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)
	    (fill-column (min (1- (window-width)) mew-wrap-lines-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))))
	  (when (> width fill-column)
	    (fill-region-as-paragraph start (1- (point)))))))))

な感じかしら。

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

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