[Mew-dist 09709] Re: attachments trouble??

[SAKAI Kiyotaka]

>> In article <199907151038.TAA09483 at example.com>, Koga Youichirou <y-koga at example.com> writes:

> 少なくとも Emacs 19.34 Mule 2.3 では、

> M-x mew-draft-prepare-attachments
> M-x end-of-buffer

> これで、
> --------0-1-2-3-4-5-6-7-8-9----------------------------------------------

> X←ここにカーソルが移動します。ここでは通常のキー入力は効きませんが、

> M-x insert-file
> ファイル名

> であっさりファイルが挿入されます。

insert-file に限らず、

  (define-key mew-draft-attach-map "a" 'self-insert-command)

とかやって a を押しても、文字が挿入されてしまいます。

read-only 属性が後方に継承されるよう、rear-nonsticky を nil にセットし
てやる必要がありそうですね。
-- 
酒井 清隆 (E-mail: ksakai at example.com)

-------------- next part --------------
===================================================================
RCS file: RCS/mew-syntax.el,v
retrieving revision 1.1
diff -u -r1.1 mew-syntax.el
--- mew-syntax.el	1999/07/16 01:25:56	1.1
+++ mew-syntax.el	1999/07/16 01:26:18
@@ -426,6 +426,7 @@
        (mew-syntax-multipart syntax nil nil 'mew-draft-button)
        (mapcar (function insert-and-inherit)
 	       (nreverse mew-syntax-multi-form))
+       (put-text-property (mew-attach-begin) (point-max) 'rear-nonsticky nil)
        (put-text-property (mew-attach-begin) (point-max) 'read-only t)
        (if mew-icon-p
 	   (mew-syntax-print-icon-spec (nreverse mew-syntax-icon-spec)