[mew-dist 25185] Re: 末尾に改行のないメール

[Kazu Yamamoto ( 山本和彦 )]

> この変更と関係あるのかもしれませんが、3Z で IMAP フォルダのリストを
> 取得したら、フォルダ名の末尾に ^M が付加されてしまいました。

ああ、サーバがフォルダ名をダブルクオートで囲んでいないとおかしくなるよ
うです。

以下のパッチで、問題のすべては解決するでしょうか？

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.223
diff -c -r1.223 mew-imap.el
*** mew-imap.el	20 Aug 2004 11:59:59 -0000	1.223
--- mew-imap.el	23 Aug 2004 05:49:14 -0000
***************
*** 721,728 ****
  			      (mew-imap-namespace-user-prefix namespace))))
  	 (sep (mew-imap-namespace-sep namespace))
  	 subfolder friendp mbx mailbox mailboxes subnm friends)
      (when sep
!       (setq subfolder (format "\\([^%s\n\r]+\\)\r?$" sep))
        (setq friendp (mew-imap-friend-regex sep case)))
      (while (not (eobp))
        (catch 'break
--- 721,731 ----
  			      (mew-imap-namespace-user-prefix namespace))))
  	 (sep (mew-imap-namespace-sep namespace))
  	 subfolder friendp mbx mailbox mailboxes subnm friends)
+     (goto-char (point-min))
+     (mew-crlf-to-lf)
+     (goto-char (point-min))
      (when sep
!       (setq subfolder (format "\\([^%s\n\r]+\\)$" sep))
        (setq friendp (mew-imap-friend-regex sep case)))
      (while (not (eobp))
        (catch 'break
***************
*** 731,737 ****
  	    ;; NAMESPACE may return NIL NIL NIL
  	    (setq sep (mew-match-string 1))
  	    (mew-imap-namespace-change-sep namespace sep)
! 	    (setq subfolder (format "\\([^%s\n\r]+\\)\r?$" sep))
  	    (setq friendp (mew-imap-friend-regex sep case)))
  	  (setq mbx (mew-match-string 2))
  	  (cond
--- 734,740 ----
  	    ;; NAMESPACE may return NIL NIL NIL
  	    (setq sep (mew-match-string 1))
  	    (mew-imap-namespace-change-sep namespace sep)
! 	    (setq subfolder (format "\\([^%s\n\r]+\\)$" sep))
  	    (setq friendp (mew-imap-friend-regex sep case)))
  	  (setq mbx (mew-match-string 2))
  	  (cond