[MD:1066]bug in texinfmt.el

[Kenichi Handa <handa@xxxxxxxxx>]

I got this bug report.   The attached is my translation from the
original Japanese article.

---
Ken'ichi HANDA
handa@xxxxxxxxx

------- Start of forwarded message -------
Mailing-List: contact meadow-develop-help@xxxxxxxxxxxxxxxxxxxxxxxxxxx; run by ezmlm
Reply-To: meadow-develop@xxxxxxxxxxxxxxxxxxxxxxxxxxx
Sender: meadow-develop-owner@xxxxxxxxxxxxxxxxxxxxxxxxxxx
X-ML-NAME: meadow-develop
Precedence: bulk
To: meadow-develop@xxxxxxxxxxxxxxxxxxxxxxxxxxx
Cc: mule-ja@xxxxxxxxx, semi-gnus-ja@xxxxxxxxxxxxxxxxxxxxxxxxxxx
Subject: [MD:1065] Semi-gnus : gnus-ja.texi on Meadow 1.03a3.
Content-Type: text/plain; charset=ISO-2022-JP
From: Yoshiki Hayashi <g740685@xxxxxxxxxxxxxxxxxxxxxxxx>
Date: 06 Mar 1999 10:26:08 +0900
User-Agent: Semi-gnus/6.10.8 SEMI/1.13.3 (Komaiko) FLIM/1.12.6
 (=?ISO-8859-4?Q?Family-K=F2enmae?=) Emacs/20.3.5 (i386-*-nt4.0) MULE/4.0
 (HANANOEN) Meadow/1.03 Alpha3 (FUDI-GASANE)
X-ML-COUNT: 1065
Content-Length: 3102
[...]
If we do M-x texinfo-format-buffer in the buffer that contains this:
--------------------------------------------------
\input texinfo.tex      @c -*-texinfo-*-

@setfilename test.info

someone@@com.example.org

@bye
--------------------------------------------------
we get this backtrace.
--------------------------------------------------
Signaling: (error "@com is not handled by texinfo")
  signal(error ("@com is not handled by texinfo"))
  error("%s is not handled by texinfo" "@com")
  texinfo-unsupported()
  texinfo-format-scan()
  texinfo-format-buffer-1()
  texinfo-format-buffer(nil)
  call-interactively(texinfo-format-buffer)
--------------------------------------------------

The reason of this problem is that @refill is inserted unconditionally
at the place of @c.

This is a patch for texinfmt.el of Emacs 20.3.6.
--------------------------------------------------
*** texinfmt.el.orig	Thu Feb 04 15:38:54 1999
--- texinfmt.el	Sat Mar 06 10:04:54 1999
***************
*** 622,628 ****
  	    (delete-region
  	     (point)
  	     (save-excursion (skip-chars-backward " \t") (point)))
! 	    (search-backward "@c" line-beg t)
  	    (unless (re-search-backward "@refill\\|@bye" line-beg t)
  	      (insert "@refill")))
            (forward-line 1))))))
--- 622,630 ----
  	    (delete-region
  	     (point)
  	     (save-excursion (skip-chars-backward " \t") (point)))
! 	    (forward-char 1)
! 	    (unless (re-search-backward "@c[ \t\n]\\|@comment[ \t\n]" line-beg t)
! 	      (forward-char -1))
  	    (unless (re-search-backward "@refill\\|@bye" line-beg t)
  	      (insert "@refill")))
            (forward-line 1))))))
--------------------------------------------------

By the way, although texinfmt.el has this line:
;; Maintainer: Robert J. Chassell <bug-texinfo@xxxxxxxxxxxxxxx>
texinfmt.el is not included in the distribution of GNU Texinfo now.

To where should we report this kind of bug,
bug-texinfo@xxxxxxxxxxxxxxx or emacs-pretest-bug@xxxxxxx?

-- 
Yoshiki Hayashi
------- End of forwarded message -------