2008年12月 5日

[mew-dist 28753] Re:行頭のスペースが削除されることがある

On December 5, 2008, [mew-dist 28749],
kazu (at iij.ad.jp) wrote:

>> aaaの行を空にすると+queueに入れることすらできません。
>
> 以下のパッチで、これらのバグが直ると思います。

先頭の空行問題が直っていなかったのと、あと、先頭行が"From "のときに

space-stuffingできていないことに気付きました。これでどうでしょうか。

----
--- mew-encode.el.orig
+++ mew-encode.el
@@ -738,15 +738,15 @@
(looking-at "^>* ?")
(setq prefix (mew-match-string 0))
(goto-char (match-end 0))
- (when (and (not (bobp))
- (not (char-equal (char-before) mew-flowed-stuffed))
+ (when (and (or (bobp) (not (char-equal (char-before) mew-flowed-stuffed)))
(looking-at "From "))
(insert mew-flowed-stuffed))
(setq beg (point))
(save-excursion
(end-of-line)
- (unless (and (= (- (point) beg) 3)
- (string= (mew-buffer-substring beg (point)) "-- "))
+ (unless (or (bobp)
+ (and (= (- (point) beg) 3)
+ (string= (mew-buffer-substring beg (point)) "-- ")))
(while (= (char-before) mew-sp)
(delete-region (1- (point)) (point)))))
(move-to-column column)
----

--
木下達也


投稿者 xml-rpc : 2008年12月 5日 22:38
役に立ちました?:
過去のフィードバック 平均:(0) 総合:(0) 投票回数:(0)
本記事へのTrackback: http://hoop.euqset.org/blog/mt-tb2006.cgi/79742
トラックバック
コメント
コメントする




画像の中に見える文字を入力してください。