[mew-dist 20102] displaying 0 byte message

[SAKAI Kiyotaka]

先日、quota を越えてしまったときに、procmail で自動振り分けしている
folders に大量の 0バイトファイルができてしまいました。(メールそのもの
は /var/mail に配送されましたので、無事でした。)

この 0バイトのメールを表示すると、

  mew-mime-message/rfc822: Args out of range: 1, 0

というエラーメッセージとともに beep 音が鳴ったのが少々欝陶しかったです。

そこで提案ですが、このような不正なメールに対しては、以下のように明示的
にメッセージを表示するにしてはどうでしょうか？

# なお、以下のパッチではパッチのサイズを減らすためにインデント等の調整
# はしていません。


Index: mew-mime.el
===================================================================
RCS file: /cvsmew/mew/mew-mime.el,v
retrieving revision 1.46
diff -u -r1.46 mew-mime.el
--- mew-mime.el	2002/01/18 03:33:10	1.46
+++ mew-mime.el	2002/01/18 05:12:51
@@ -487,6 +487,8 @@
    (let* ((hbeg (mew-syntax-get-begin part))
 	  (hend (mew-syntax-get-end   part))
 	  (body (mew-syntax-get-part part)))
+     (if (= hend 0)
+	 (message "Illegal message")
      ;; This must be "insert-buffer-substring".
      (insert-buffer-substring cache hbeg hend)
      (mew-header-arrange (point-min) (point-max))
@@ -501,6 +503,7 @@
 	      (ct (mew-syntax-get-value (mew-syntax-get-ct first) 'cap)))
 	 (when (and (mew-xinfo-get-text-body) (mew-ct-textp ct))
 	   (mew-mime-part cache first nil)))))))) ;; nil is single
+  )
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;;

-- 
酒井 清隆 (E-mail: ksakai at example.com)