[Mew-dist 09330] Re: mew-field-spec

[Kazu Yamamoto ( 山本和彦 )]

アニョンハセヨ。カズイムニダ。

From: Yoshinari NOMURA <nom at example.com>
Subject: [Mew-dist 09287] mew-field-spec 
Date: Wed, 9 Jun 1999 16:40:47 +0900

>   Mime-Version: 1.0
>   Message-Id: <19990520205018U.nom at example.com>
>   Content-Type: Text/Plain; charset=iso-2022-jp
>   Content-Transfer-Encoding: 7bit
> 
> を '.' や ' ' で表示しようとすると、以下のようにエラーになります。

これでどうでしょう。

--かず＠体脂肪率を落して帰国(謎)
-------------- next part --------------
Index: mew-decode.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-decode.el,v
retrieving revision 1.76
diff -c -r1.76 mew-decode.el
*** mew-decode.el	1999/06/08 14:44:41	1.76
--- mew-decode.el	1999/06/15 03:58:33
***************
*** 64,74 ****
      (narrow-to-region beg end)
      (mew-elet
       (let (ch-beg ch-end vs-beg vs-end contents cbeg)
-        (setq vs-beg (next-single-property-change (point-min) 'mew-visible))
-        (setq vs-end (next-single-property-change vs-beg 'mew-visible))
         (setq ch-beg (next-single-property-change (point-min) 'mew-noncontents))
         (if (null ch-beg)
  	   ()
  	 (setq ch-end (point-max))
  	 (mew-decode-header-property-region ch-beg ch-end)
  	 (setq contents (buffer-substring ch-beg ch-end))
--- 64,86 ----
      (narrow-to-region beg end)
      (mew-elet
       (let (ch-beg ch-end vs-beg vs-end contents cbeg)
         (setq ch-beg (next-single-property-change (point-min) 'mew-noncontents))
         (if (null ch-beg)
  	   ()
+ 	 (setq vs-beg (next-single-property-change (point-min) 'mew-visible))
+ 	 (if vs-beg
+ 	     (setq vs-end (next-single-property-change vs-beg 'mew-visible))
+ 	   (if mew-field-other-visible
+ 	       (progn
+ 		 (setq vs-beg (next-single-property-change (point-min)
+ 							   'mew-others))
+ 		 (if vs-beg 
+ 		     (setq vs-end (next-single-property-change vs-beg
+ 							       'mew-others))
+ 		   (setq vs-beg ch-beg)
+ 		   (setq vs-end ch-beg)))
+ 	     (setq vs-beg ch-beg)
+ 	     (setq vs-end ch-beg)))
  	 (setq ch-end (point-max))
  	 (mew-decode-header-property-region ch-beg ch-end)
  	 (setq contents (buffer-substring ch-beg ch-end))
***************
*** 77,83 ****
  	     (progn
  	       ;; visible
  	       (goto-char vs-end)
! 	       (insert contents))
  	   ;; invisible
  	   (goto-char vs-beg)
  	   (setq cbeg (point))
--- 89,97 ----
  	     (progn
  	       ;; visible
  	       (goto-char vs-end)
! 	       (setq cbeg (point))
! 	       (insert contents)
! 	       (put-text-property cbeg (point) 'mew-visible t)) ;; used later
  	   ;; invisible
  	   (goto-char vs-beg)
  	   (setq cbeg (point))
***************
*** 85,91 ****
  	   (put-text-property cbeg (point) 'mew-visible nil)) ;; for XEmacs
  	 (goto-char (point-max)))
         (mew-decode-syntax-insert-privacy)
!        (goto-char (next-single-property-change (point-min) 'mew-visible))
         (recenter 0)
         (save-excursion (mew-highlight-x-face (point-min) (point-max))))))
    (mew-header-goto-end)
--- 99,106 ----
  	   (put-text-property cbeg (point) 'mew-visible nil)) ;; for XEmacs
  	 (goto-char (point-max)))
         (mew-decode-syntax-insert-privacy)
!        (goto-char (or (next-single-property-change (point-min) 'mew-visible)
! 		      (point-max)))
         (recenter 0)
         (save-excursion (mew-highlight-x-face (point-min) (point-max))))))
    (mew-header-goto-end)