[mew-dist 27752] header only な message を join

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

Message/Partial なメールを POPフォルダかどこかで header only な
状態で join すると、1番目のメッセージが header only だと C-g す
るまで抜けなります。

2番目移行だとエラーしないで、一見正常に見えるのですが、当然デー
タはおかしいのでガードしてみました。

Index: mew-summary4.el
===================================================================
RCS file: /cvsmew/mew/mew-summary4.el,v
retrieving revision 1.191
diff -u -r1.191 mew-summary4.el
--- mew-summary4.el	9 Jan 2007 08:26:15 -0000	1.191
+++ mew-summary4.el	31 Jul 2007 11:03:38 -0000
@@ -842,7 +842,10 @@
 	    (goto-char (point-min))
 	    (re-search-forward mew-eoh nil t)
 	    (setq beg (point))
-	    (while (looking-at mew-eoh) (forward-line))
+	    (while (looking-at mew-eoh)
+	      (forward-line)
+	      (when (eobp)
+		(error "invalid message (number 1)")))
 	    (delete-region beg (point))
 	    ;; Removing unnecessary fields from the encapsulated
 	    ;; (inner) header.
@@ -870,6 +873,8 @@
 	      (goto-char (point-min))
 	      (re-search-forward mew-eoh nil t)
 	      (forward-line)
+	      (when (eobp)
+		(error "invalid message (number %d)" (1+ i)))
 	      (delete-region (point-min) (point)))
 	    (setq i (1+ i)))
 	  (mew-header-delete-lines `(,mew-x-mew-uidl:))

-- 
白井秀行 (mailto:shirai at example.com)
息抜き終了。。。