[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 メーリングリストの案内