[mew-dist 21326] Re: IMAP: bottom of Message

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [mew-dist 21324] Re: IMAP: bottom of Message

> すると、ちゃんと literal のカウントを数えるしかないような気がしますが、
> CRLF が LF になっている行末のバイト数はどうしてくれよう。

きちんとは対応できないので、いい加減に対応してみました。

--かず

Index: mew-imap.el
===================================================================
RCS file: /cvsroot/mew/mew/mew-imap.el,v
retrieving revision 1.107
diff -c -r1.107 mew-imap.el
*** mew-imap.el	2002/07/31 05:06:54	1.107
--- mew-imap.el	2002/07/31 06:38:16
***************
*** 414,423 ****
      ;; 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)
--- 414,426 ----
      ;; skip untagged responses if any
      (while (looking-at "^\\*")
        (forward-line -1))
!     ;; We can't count up the octet number of literal in Emacs.
!     ;; Assuming that the message ends with CRLF, the cursor now locates
!     ;; either
!     ;;   *)
!     ;; or
!     ;;   * ATTRIBUTE VAL ...)
!     ;; This also assumes that all attributes are stored in a line.
      (delete-region (point) (point-max))
      ;; line delimiters
      (mew-eol-fix-for-read)