[mew-dist 28749] Re: 行頭のスペースが削除されることがある
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
2008年 12月 5日 (金) 10:36:21 JST
山本です。
>> 草稿を保存して送信すると、行頭の空白が削除されることがあります。
>> 再現方法が分かりましたのでご連絡致します。
> aaaの行を空にすると+queueに入れることすらできません。
以下のパッチで、これらのバグが直ると思います。
--かず
Index: mew-encode.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-encode.el,v
retrieving revision 1.120
diff -c -r1.120 mew-encode.el
*** mew-encode.el 1 Dec 2008 03:58:01 -0000 1.120
--- mew-encode.el 5 Dec 2008 01:34:26 -0000
***************
*** 733,742 ****
(defun mew-encode-flowed-line (column delsp)
(let (prefix beg)
(looking-at "^>* ?")
(setq prefix (mew-match-string 0))
(goto-char (match-end 0))
! (when (and (not (char-before mew-flowed-stuffed)) (looking-at "From "))
(insert mew-flowed-stuffed))
(setq beg (point))
(save-excursion
--- 733,745 ----
(defun mew-encode-flowed-line (column delsp)
(let (prefix beg)
+ (if (looking-at " ") (insert mew-flowed-stuffed))
(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))
! (looking-at "From "))
(insert mew-flowed-stuffed))
(setq beg (point))
(save-excursion
Mew-dist メーリングリストの案内