[mew-dist 18348] Re: こまった SPAM Mail

[Kazu Yamamoto ( 山本和彦 )]

From: NINOMIYA Hideyuki <nin at example.com>
Subject: [mew-dist 18346] Re: こまった SPAM Mail

> おの> mew-header-reasonable-sizeの値を大きくすることでうまく動か
> おの> ないでしょうか?
> 
> ! そっか
> 
> これでうまくいきました。多謝 > 小野さん

出遅れましたが、以下のパッチを当て下さい。ヘッダの先頭に X-Mew-UIDL: 
を追加します。これでなんの問題もないはず。

--かず
Index: mew-pop.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-pop.el,v
retrieving revision 1.12
diff -c -r1.12 mew-pop.el
*** mew-pop.el	2001/07/08 05:00:38	1.12
--- mew-pop.el	2001/08/02 14:57:12
***************
*** 652,663 ****
        (mew-pop-set-lmsg pnm (int-to-string (1+ (string-to-int lmsg)))))
      (when truncated
        (goto-char (point-min))
-       (unless (re-search-forward mew-eoh nil t)
- 	(goto-char (point-max)))
        (when uid
  	(if case
  	    (mew-header-insert mew-x-mew-uidl: (concat uid " " siz " " case))
  	  (mew-header-insert mew-x-mew-uidl: (concat uid " " siz))))
        (forward-line)
        (insert
         (format mew-pop-size-over-message
--- 652,663 ----
        (mew-pop-set-lmsg pnm (int-to-string (1+ (string-to-int lmsg)))))
      (when truncated
        (goto-char (point-min))
        (when uid
  	(if case
  	    (mew-header-insert mew-x-mew-uidl: (concat uid " " siz " " case))
  	  (mew-header-insert mew-x-mew-uidl: (concat uid " " siz))))
+       (unless (re-search-forward mew-eoh nil t)
+ 	(goto-char (point-max)))
        (forward-line)
        (insert
         (format mew-pop-size-over-message