[Mew-dist 09843] Re: b44

Kazu Yamamoto ( 山本和彦 ) kazu at example.com
1999年 7月 27日 (火) 18:44:05 JST


From: SAKAI Kiyotaka <ksakai at example.com>
Subject: [Mew-dist 09839] Re: b44
Date: Tue, 27 Jul 1999 13:51:06 +0900

> で、'-' と '-' の間に文字が挿入されるようになってしまいました。

これでどうでしょう?

> 00diff の update もでしょうか。

昨日、帰りの電車の中でやりました。:-)

--かず
-------------- next part --------------
Index: mew-syntax.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-syntax.el,v
retrieving revision 1.95
diff -c -r1.95 mew-syntax.el
*** mew-syntax.el	1999/07/26 11:53:03	1.95
--- mew-syntax.el	1999/07/27 09:44:27
***************
*** 431,438 ****
  	     (goto-char (mew-attach-begin))
  	     (insert "X")))
         (put-text-property (mew-attach-begin) (point-max) 'read-only t)
!        (mew-front-nonsticky (mew-attach-begin) (point-max))
!        (mew-rear-sticky (mew-attach-begin) (point-max))
         (if mew-xemacs-p
  	   (progn
  	     (goto-char (1- (mew-attach-begin)))
--- 431,438 ----
  	     (goto-char (mew-attach-begin))
  	     (insert "X")))
         (put-text-property (mew-attach-begin) (point-max) 'read-only t)
!        (mew-front-nonsticky (mew-attach-begin) (1+ (mew-attach-begin)))
!        (mew-rear-sticky (1- (point-max)) (point-max))
         (if mew-xemacs-p
  	   (progn
  	     (goto-char (1- (mew-attach-begin)))
***************
*** 862,869 ****
  	    (insert (, sep))
  	  (forward-line))
  	(put-text-property end (point) 'read-only t)
! 	(mew-front-nonsticky end (point))
! 	(mew-rear-nonsticky end (point))
  	end))))
  
  (defmacro mew-header-clear ()
--- 862,869 ----
  	    (insert (, sep))
  	  (forward-line))
  	(put-text-property end (point) 'read-only t)
! 	(mew-front-nonsticky end (1+ end))
! 	(mew-rear-nonsticky (1- (point)) (point))
  	end))))
  
  (defmacro mew-header-clear ()


Mew-dist メーリングリストの案内