[Mew-dist 04918] Re: b36

[Kazu Yamamoto ( 山本和彦 )]

From: Hideyuki SHIRAI <Shirai at example.com>
Subject: [Mew-dist 04916] Re: b36
Date: Thu, 28 May 1998 11:34:31 +0900

> その1.
> Content-Description: fedcba
> となっていても、summary bufferでは "fedcb" まで表示しないようです。

> その2.
> From: =?iso-2022-jp?B?GyRCR3IwZj0oOVQbKEI=?=
>  <Shirai at example.com>

すみません。まだ見落しがあるような気もしますが、一応対処しました。

--かず＠ Let's blame on the rain...

Index: mew-bq.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-bq.el,v
retrieving revision 1.12
diff -c -r1.12 mew-bq.el
*** mew-bq.el	1998/05/27 08:42:12	1.12
--- mew-bq.el	1998/05/28 03:03:48
***************
*** 480,486 ****
  					    (mew-match 2)
  					    (mew-match 3)))
  	    (delete-region beg end)
! 	    (insert cs-str)))))
      (goto-char (point-max))))
  
  (provide 'mew-bq)
--- 480,498 ----
  					    (mew-match 2)
  					    (mew-match 3)))
  	    (delete-region beg end)
! 	    (insert cs-str)))
! 	;; Unfold folded lines.
! 	(goto-char (point-min))
! 	(cond
! 	 (addrp
! 	  (while (re-search-forward "\\([^,]\\)\n" (1- (point-max)) t)
! 	    ;; (1- (point-max)) is to prevent deleting the last \n.
! 	    (replace-match (mew-match 1) nil t)))
! 	 (t ;; text
! 	  (while (re-search-forward "\n" (1- (point-max)) t)
! 	    ;; (1- (point-max)) is to prevent deleting the last \n.
! 	    (replace-match "" nil t)))
! 	 )))
      (goto-char (point-max))))
  
  (provide 'mew-bq)
Index: mew-decode.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.28
diff -c -r1.28 mew-decode.el
*** mew-decode.el	1998/05/27 08:42:13	1.28
--- mew-decode.el	1998/05/28 03:03:48
***************
*** 136,142 ****
  	       ((equal act 'extract)
  		(setq value (mew-header-syntax value)))
  	       ((equal act 'decode)
! 		(mew-header-decode-region t med (1- (point)))
  		(setq value (buffer-substring med (1- (point)))))
  	       )
  	      (aset vec n value)))))
--- 136,144 ----
  	       ((equal act 'extract)
  		(setq value (mew-header-syntax value)))
  	       ((equal act 'decode)
! 		(mew-header-decode-region t med (point))
! 		;; mew-header-decode-region goes to the max point in
! 		;; the narrowed region. So, this must be (point).
  		(setq value (buffer-substring med (1- (point)))))
  	       )
  	      (aset vec n value)))))