Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!nirvana.cs.titech!wnoc-tyo-news!sh.wide!fgw!fssc!jaga!sekimizu
From: sekimizu@niigata.fukuda.snet.or.jp (Sekimizu Hidemasa)
Newsgroups: fj.editor.emacs,fj.editor.mule
Subject: rmail.el -- Illegal folding of In-Reply-To field
Message-ID: <SEKIMIZU.94Mar11174818@jaga.niigata.fukuda.snet.or.jp>
Date: 11 Mar 94 08:48:18 GMT
Sender: news@jaga.niigata.fukuda.snet.or.jp
Followup-To: fj.editor.emacs
Distribution: fj
Organization: Niigata Techno-House, FUKUDA DENSHI CO.,LTD., Niigata, Japan
Lines: 44
Nntp-Posting-Host: jaga
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4533 fj.editor.mule:150
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4533&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

10$BF|$[$IA0$K!"(B
 >Message-ID: <SEKIMIZU.94Mar1132845@jaga.niigata.fukuda.snet.or.jp>
 >From: sekimizu@niigata.fukuda.snet.or.jp (Sekimizu Hidemasa)
 >Subject: rmail.el bug?
 >Date: 01 Mar 94 04:28:45 GMT

 >mule 1.0$B$d(Bnemacs3.3.2$B$N(Brmail$B$G(B
 >$BNc$($P(B
 >From: hogehoge
 > <hogehoge@hoge.co.jp>
 >$B$H$$$&(Bfrom$B$r;}$D(Bmail$B$K(Breply$B$9$k$H!"(B
 >In-reply-to: hogehoge
 >'s message of ...
 >$B$H$$$&%X%C%@$,$G$-$F$7$^$$$^$9!#(B
 >fold$B$9$k>l9g$O(BCRLF$B$KB3$$$F:GDc0l$D$N(BSPACE$B$+(BHTAB$B$,MW$k$O$:$J$N$G!"(B
 >$B$*$+$7$$$H;W$$$^$9!#(B

$B$H$$$&Ej9F$r$7!"6K$a$F0BD>$J(Bpatch$B$r$D$1$F$*$$$?$N$G$9$,!"(B
$B$=$N8e!"(Btiny-mime.el$B$N:n<T$N<i2,$5$s$+$i!"%a!<%k$rD:$$$F!"(B
$B$b$&$A$g$C$H$^$7$J2r7hK!$,8+$D$+$j$^$7$?!#(B
# $B$[$H$s$I<i2,$5$s$N(Bsuggestion$BDL$j$J$N$G$9$,!"(B
# string$B$N@Z$j=P$7J}K!$rJQ$($F$"$j$^$9!#(B

$B$H$3$m$G!"$3$l$O(Bmule1.0(emacs-18.59base), nemacs3.3.2(emacs-18.55base)$B$N(B
$BN>J}$K8+$i$l$k8=>]$J$N$G$9$,!":G?7$N(Bemacs-19.XX$B$G$O$I$&$J$s$G$7$g$&$+(B?
$B?7$7$$$N$r;n$;$k4D6-$K$J$$$N$G$I$J$?$+$*65$(2<$5$$!#(B

--- rmail.el-distWed Aug  4 09:43:05 1993
+++ rmail.elFri Mar 11 17:36:51 1994
@@ -1332,8 +1332,10 @@
 (setq stop-pos (string-match ")" from pos))
 (if (zerop pos) 0 (+ 2 pos)))))))
   (setq field (if stop-pos
-  (substring from start-pos stop-pos)
-  from))))
+  (let ((str (substring from start-pos stop-pos)))
+    (string-match "\n$" str)
+    (substring str 0 (match-beginning 0)))
+from))))
     (if date (setq field (concat field "'s message of " date)))
     (if message-id (setq field (concat field " " message-id)))
     field))
--
$B4X?e(B $B1Q@5!w%U%/%@EE;R(B($B3t(B)$B?73c%F%/%N%O%&%9(B (025-228-5901)
