mime-edit-quitting-method

Yuuichi Teranishi teranisi @ gohome.org
2000年 7月 3日 (月) 17:19:45 JST


>>>>> In article <874s671vwz.fsf @ sodan.org>
>>>>> "yoshiki" = Yoshiki Hayashi <yoshiki @ xemacs.org> writes:

> すみません。
> remi-1_14 と同様の対処をして commit しました。

yoshiki> ありがとうございます。

そういえば、最新 CVS の emy は XEmacs でインライン画像を出すときに
エラーが出てしまいます (nil を insert しようとする)。
よくわかってませんが、こんなのでしのいでます。

Index: mime-image.el
===================================================================
RCS file: /cvs/root/semi/mime-image.el,v
retrieving revision 1.12.22.6
diff -u -r1.12.22.6 mime-image.el
--- mime-image.el	2000/06/28 00:20:59	1.12.22.6
+++ mime-image.el	2000/07/03 08:03:40
@@ -96,7 +96,10 @@
 	    glyph)))
 
       (defun mime-image-insert (image &optional string area)
-	(let ((extent (make-extent (point) (progn (insert string)(point)))))
+	(let ((extent (make-extent (point)
+				   (progn (and string
+					       (insert string))
+					  (point)))))
 	  (set-extent-property extent 'invisible t)
 	  (set-extent-end-glyph extent image))))
   (condition-case nil

--
Yuuichi Teranishi (寺西裕一) <teranisi @ gohome.org>
PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key
"Living is easy with eyes closed, misunderstanding all you see..."




More information about the Emacs-mime-ja mailing list