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
Subject: Re: rmail.el -- Illegal folding of In-Reply-To field
Message-ID: <SEKIMIZU.94Mar17202243@jaga.niigata.fukuda.snet.or.jp>
Date: 17 Mar 94 11:22:43 GMT
References: <SEKIMIZU.94Mar11174818@jaga.niigata.fukuda.snet.or.jp>
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: 25
Nntp-Posting-Host: jaga
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-2022-JP
In-reply-to: sekimizu@niigata.fukuda.snet.or.jp's message of 11 Mar 94
 17:48:18 JST
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:4553
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=4553&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.

In article <SEKIMIZU.94Mar11174818@jaga.niigata.fukuda.snet.or.jp>,
sekimizu@niigata.fukuda.snet.or.jp (Sekimizu Hidemasa) writes:

 >$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

$B4V0c$($F$$$?$h$&$G$9!#(B_o_
--- rmail.el-distMon Mar 14 11:16:43 1994
+++ rmail.elThu Mar 17 11:32:38 1994
@@ -1332,8 +1332,11 @@
 (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)))
+    (if (string-match "\n$" str)
+(substring str 0 (match-beginning 0))
+      str))
+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)
