[mew-dist 24315] refile の失敗

[Hideyuki SHIRAI ( 白井秀行 )]

世の中に追い付くため Mew 4 でいろいろと遊んでいるのですが、
'o' => 'u' を繰り返していると、次に 'o' したときに、
mew-summary-refile-log() 中の mew-summary-my-id() が nil を返し
てエラーを起こすことがありました。

追求したところ、

(1) (いまのところ)ぼくは mew-summary-form-body-starter => nil。
(2) だから 'o' したとき mew-summary-refile-remove-body() はなに
    もしない。
(3) たまたま 'u' したときの場所が悪いと

  01/05(月) 2046   3k Shun-ichi GOTO           [meadow-users-jp 4996] Re: Meadow2.00b2のコンパイ \r
 2 <20040105.204654.81453929.gotoh at example.com> <20040105.185017.01365311.boochang at example.com>  
   ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
 が mew-regex-override-body にマッチしてしまうので、summary から
 ~~~~ の部分を消してしまう。

ということのようです。

(defun mew-summary-refile-remove-body ()
  (save-excursion
    (when (and (mew-summary-goto-body 'after)
	       (looking-at mew-regex-override-body))
      (mew-elet
       (delete-region (point) (match-end 0))))))

程度が適当と思います。

# regexp じゃなくて text property (mew-refile-body?)でもつけてお
# いた方が安全かしら。

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