base-64 error

[Katsumi Yamaoka]

>>>>> In [semi-gnus-ja : No.5746] 
>>>>>	Jsme for student work group <jsme ＠ mech.eng.osaka-cu.ac.jp> wrote:

瀧山さん> User-Agent: T-gnus/6.14.1 (based on Gnus v5.8.3) (revision 18)
瀧山さん>  SEMI/1.13.7 (Awazu) FLIM/1.13.2 (Kasanui)
瀧山さん>  Emacs/20.6 (i686-pc-linux-gnu) MULE/4.0 (HANANOEN)

瀧山さん> T-gnusでbase64で添付しようとしたら
瀧山さん> 以下のようなエラーになりました
瀧山さん> どのように対応したら良いのでしょうか。お教え下さい。

瀧山さん> Signaling: (wrong-type-argument integer-or-marker-p nil)
瀧山さん>   next-visible-point(205)
瀧山さん>   mime-edit-content-end()
瀧山さん>   mime-edit-normalize-body()
瀧山さん>   mime-edit-translate-region(72 94913 "Multipart_Fri_Jan_12_09:07:53_2001-1")
瀧山さん>   mime-edit-translate-body()
瀧山さん>   byte-code("..." [mime-edit-pgp-enclose-buffer mime-edit-translate-body] 1)
瀧山さん>   message-maybe-encode()
瀧山さん>   message-send(nil)
瀧山さん>   message-send-and-exit(nil)
瀧山さん>   call-interactively(message-send-and-exit)

たいへん遅いフォローで申し訳ありません。_o_
こちらでは症状を再現できないのですが、次のことが言えると思います。

`next-visible-point' は (瀧山さんの場合) inv-19.el の関数ですが、バッ
ファの途中 (または先頭) から最後までが invisible になっているときに使
うと問題があります。以下の式で再現させることができます。

(let ((buffer (get-buffer-create "*temp*")))
  (pop-to-buffer buffer)
  (erase-buffer)
  (insert "foo\nbar\n")
  (goto-char (point-min))
  (forward-line 1)
  (put-text-property (point) (point-max) 'invisible t)
  (require 'invisible)
  (if (invisible-p (point))
      (next-visible-point (point))))

APEL の inv-19.el は汎用プログラムだと思うので、このメールに添付したパッ
チのような改修が必要なのではないでしょうか?
おそらく SEMI 1.13.7 の MIME-Edit などにも何らかの問題がある気がします
が、こちらは追いきれていません。ごめんなさい。
-------------- next part --------------
テキスト形式以外の添付ファイルを保管しました...
ファイル名: inv-19.el.diff
型:         application/octet-stream
サイズ:     366 バイト
説明:       無し
URL:        <http://lists.chise.org/pipermail/apel-ja/attachments/20010118/a9291da8/attachment-0001.obj>
-------------- next part --------------
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>