🚀 go-pugleaf

In article <ybs4tus3tvp.fsf@uno.sat.t.u-tokyo.ac.jp> simokawa@sat.t.u-tokyo.ac.jp (Hidetoshi Shimokawa) writes:

> $B2<@n!wEl5~Bg3X$H?=?=$7$^$9!%:#F|(Bemacs-19.30+mule-2.3+sgnus-0.26$B$K$7(B
> $B$F(Bnews$B$r(Bpost$B$7$?$i2<$N$h$&$K!$!$$?$^$KJ8;z$,Fs=E$K$J$C$F$7$^$$$^$7$?!%(B

$B860x$N>\:Y$K$D$$$F$O!"(B

<48ugin$gmj@isnews.is.s.u-tokyo.ac.jp>
<ygclop69hd2.fsf@spp.sys.ptg.sony.co.jp>
<496hrs$3mk@isnews.is.s.u-tokyo.ac.jp>

$B$"$?$j$r;2>H$7$F$_$F2<$5$$!#;d$O0J2<$N$h$&$J%Q%C%A$rEv$F$F;H$C$F$$$^$9!#(B

					$B;3K\(B $B8w@2(B
				mituharu@is.s.u-tokyo.ac.jp

--- nntp.el.dist	Mon Dec 18 02:01:34 1995
+++ nntp.el	Mon Dec 18 13:17:44 1995
@@ -1004,7 +1004,12 @@
 	  (size 100))			;Size of text sent at once.
       (while (/= last (point-max))
 	(process-send-region 
-	 nntp-server-process last (setq last (min (+ last size) (point-max))))
+	 nntp-server-process last ;(setq last (min (+ last size) (point-max)))
+	 ;; Mule gets confused if character at `last' is a multi-byte char.
+	 (setq last (save-excursion
+		      (goto-char (min (+ last size) (point-max)))
+		      (or (eobp) (forward-char 1)) ;Adjust point
+		      (point))))
 	;; Read any output from the server.  May be unnecessary.
 	(accept-process-output)))
     ;; Delete the area we sent.