[mew-dist 21222] Re: additional "(" at end of mail message

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 21221] Re: additional "(" at end of mail message

> なるほど、untagged response ("*" で始まっている行)をここに挿入するサー
> バがいるのですか。

これで直ると思います。このパッチを当てる際は、行が幾分ずれていると文句
を言われると思いますが、気にしないで下さい。

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.91
diff -c -r1.91 mew-imap.el
*** mew-imap.el	2002/07/09 13:55:10	1.91
--- mew-imap.el	2002/07/22 07:04:26
***************
*** 387,395 ****
      (delete-region (point-min) (point))
      ;; line delimiters
      (mew-eol-fix-for-read)
!     ;; deleting .\n
      (goto-char (point-max))
!     (forward-line -2) ;; xxx
      (delete-region (point) (point-max))
      ;; line delimiters
      (mew-eol-fix-for-read)
--- 386,402 ----
      (delete-region (point-min) (point))
      ;; line delimiters
      (mew-eol-fix-for-read)
!     ;; deleting ")"
      (goto-char (point-max))
!     ;; skip the last response
!     (forward-line -2)
!     ;; skip untagged responses if any
!     (while (looking-at "^\\*")
!       (forward-line -1))
!     (unless (looking-at "^)")
!       ;; ")" is in the end of the line
!       (end-of-line)
!       (forward-char -1))
      (delete-region (point) (point-max))
      ;; line delimiters
      (mew-eol-fix-for-read)