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

[Tatsuya Kinoshita]

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)
----

-- 
木下達也