[mew-dist 19979] Re: NNTP on Mew 3.0.5x

[Tatsuya Kinoshita]

In message [mew-dist 19975], on Thu, 3 Jan 2002,
KUSAKABE -bourbon!- Toshiaki <kusakabe at example.com> wrote:

> <LIST>
> 215
> control 0000000000 0000000001 y

3桁の応答コードのうしろが空だと、うまくいかないようです。

また、ニュース記事の末尾の改行を削りすぎないよう修正しました。

-- 
木下達也
-------------- next part --------------
diff -cr mew.orig/mew-nntp.el mew/mew-nntp.el
*** mew.orig/mew-nntp.el	Wed Dec 26 17:16:42 2001
--- mew/mew-nntp.el	Fri Jan  4 13:16:32 2002
***************
*** 219,225 ****
  		(and (not mulrep)
  		     (goto-char (1- (point-max)))
  		     (looking-at "\n$")))
! 	    (and (goto-char (point-min)) (looking-at "\\([0-9][0-9][0-9]\\) ")))
         (setq code (mew-match 1))
         (setq next (mew-nntp-fsm-next status code mew-nntp-fsm)))
        (t
--- 219,225 ----
  		(and (not mulrep)
  		     (goto-char (1- (point-max)))
  		     (looking-at "\n$")))
! 	    (and (goto-char (point-min)) (looking-at "^\\([0-9][0-9][0-9]\\)")))
         (setq code (mew-match 1))
         (setq next (mew-nntp-fsm-next status code mew-nntp-fsm)))
        (t
***************
*** 361,370 ****
      (when (string= mew-cs-eol "\r\n")
        (goto-char (point-min))
        (while (search-forward "\r\n" nil t) (replace-match "\n" nil t)))
!     ;; deleting \n.\n
      (goto-char (point-max))
!     (forward-line -2)
!     (end-of-line)
      (delete-region (point) (point-max))
      ;; unescape ^.
      (goto-char (point-min))
--- 361,369 ----
      (when (string= mew-cs-eol "\r\n")
        (goto-char (point-min))
        (while (search-forward "\r\n" nil t) (replace-match "\n" nil t)))
!     ;; deleting .\n
      (goto-char (point-max))
!     (forward-line -1)
      (delete-region (point) (point-max))
      ;; unescape ^.
      (goto-char (point-min))