[Mew-dist 08491] Re: mew-1.94b21.tar.gz and im-114.tar.gz
Kazu Yamamoto ( 山本和彦 )
kazu at example.com
1999年 4月 6日 (火) 12:16:21 JST
From: mmatsu at example.com (Masafumi Matsumura)
Subject: [Mew-dist 08486] Re: mew-1.94b21.tar.gz and im-114.tar.gz
Date: Mon, 5 Apr 1999 17:46:26 +0900
> 報告だけで申し訳ありませんが、
> Subject のみのメール受信時、
> Subject 行に Content-Transfer-Encoding: と Subject: が1行表示される、
> つまり Content-Transfer-Encoding: に、改行が入らずに
> 表示されてしまうようです。
以下のパッチで直ると思います。
--かず
-------------- next part --------------
Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.62
retrieving revision 1.63
diff -c -r1.62 -r1.63
*** mew-decode.el 1999/04/05 04:07:35 1.62
--- mew-decode.el 1999/04/06 00:28:49 1.63
***************
*** 54,60 ****
(` (progn
(if (re-search-forward mew-eoh nil t)
(beginning-of-line)
! (mew-decode-error "No end-of-header"))
(if (> (count-lines (point-min) (point)) mew-header-max-length)
(mew-decode-error "Too long header"))
(save-restriction
--- 54,61 ----
(` (progn
(if (re-search-forward mew-eoh nil t)
(beginning-of-line)
! (goto-char (point-max))
! (insert "\n"))
(if (> (count-lines (point-min) (point)) mew-header-max-length)
(mew-decode-error "Too long header"))
(save-restriction
***************
*** 232,238 ****
;; the narrowed region. So, this must be (point).
(setq value (buffer-substring med (1- (point))))))
(aset vec n value)))))
! (forward-line)
;; the beginning of the content body
(setq syntax (vconcat (list 'single (point) nil nil) vec))
(or (mew-syntax-get-ct syntax)
--- 233,241 ----
;; the narrowed region. So, this must be (point).
(setq value (buffer-substring med (1- (point))))))
(aset vec n value)))))
! (if (eobp)
! (insert "\n")
! (forward-line))
;; the beginning of the content body
(setq syntax (vconcat (list 'single (point) nil nil) vec))
(or (mew-syntax-get-ct syntax)
Mew-dist メーリングリストの案内