[mew-dist 20229] join problem (was: レポート Mew 2.2rc2)

[Tatsuya Kinoshita]

In message [mew-dist 20116], on Sun, 20 Jan 2002,
Hiroaki Satoh <hsato at example.com> wrote:

> 分割されたメッセージ(すなわち  message/partial )をマーク(@)して束ねた(J)場合
> 
> (setq-default case-fold-search nil)
> 
> がセットされていると, 出力されたメッセージのヘッダーから
> 
> MIME-Version: 1.0
> 
> が除かれて, MIMEメッセージとして扱われてない.

手元でも確認できました。

関数mew-summary-join内でcase-fold-searchをtにし忘れている個所を見
つけました。

-- 
木下達也
-------------- next part --------------

 This patch is written by Tatsuya Kinoshita.  Copyright is disclaimed.

diff -ur -F ^( mew.orig/mew-summary4.el mew/mew-summary4.el
--- mew.orig/mew-summary4.el	Fri Jan 18 17:46:01 2002
+++ mew/mew-summary4.el	Wed Feb  6 19:52:34 2002
@@ -740,13 +740,14 @@ (defun mew-summary-join ()
 	     (save-restriction
 	       (narrow-to-region beg (point))
 	       (goto-char (point-min))
-	       (while (not (eobp))
-		 (if (looking-at regex)
-		     (setq beg nil) ;; logic is reversed
-		   (setq beg (point)))
-		 (forward-line)
-		 (mew-header-goto-next)
-		 (if beg (delete-region beg (point)))))))
+	       (let ((case-fold-search t))
+		 (while (not (eobp))
+		   (if (looking-at regex)
+		       (setq beg nil) ;; logic is reversed
+		     (setq beg (point)))
+		   (forward-line)
+		   (mew-header-goto-next)
+		   (if beg (delete-region beg (point))))))))
 	 ;; the second and subsequent fragments.
 	 (setq i 1)
 	 (while (< i len)