[Mew-dist 05607] patch1 for b48

[Kazu Yamamoto ( 山本和彦 )]

XEmacs の Draft モードで Config: が挿入できない問題は、これで解決でき
ます。

--かず


-------------- next part --------------
*** mew-syntax.el.orig	Sun Jul 19 14:47:49 1998
--- mew-syntax.el	Sun Jul 19 20:23:25 1998
***************
*** 440,446 ****
        (mew-syntax-print multi msg 'decoding 'mew-summary-button
  			(if mew-icon-p mew-summary-toolbar))
        (mew-decode-syntax-end-set)
!       (put-text-property (mew-decode-syntax-begin) (mew-decode-syntax-end) 'face 'default))
      (mew-summary-goto-message)
      (set-buffer-modified-p nil)
      (set-buffer cbuf)))
--- 440,447 ----
        (mew-syntax-print multi msg 'decoding 'mew-summary-button
  			(if mew-icon-p mew-summary-toolbar))
        (mew-decode-syntax-end-set)
!       (put-text-property (mew-decode-syntax-begin) (mew-decode-syntax-end)
! 			 'face 'default))
      (mew-summary-goto-message)
      (set-buffer-modified-p nil)
      (set-buffer cbuf)))
***************
*** 893,907 ****
  		   (mew-overlay-make (point-min) (mew-header-end)))
  	     (mew-overlay-put mew-overlay-header-keymap
  			      (if mew-xemacs-p 'keymap 'local-map)
! 			      mew-draft-header-map)))
         (goto-char (mew-header-end))
         (let ((beg (point))
  	     (inhibit-read-only t))
  	 (end-of-line)
  	 (if (eobp) (insert "\n"))
! 	 (put-text-property (1- (point)) (point) 'rear-nonsticky t)
  	 (put-text-property beg (point) 'read-only t)))))
- 
  
  (defmacro mew-draft-attach-keymap ()
    (` (progn
--- 894,912 ----
  		   (mew-overlay-make (point-min) (mew-header-end)))
  	     (mew-overlay-put mew-overlay-header-keymap
  			      (if mew-xemacs-p 'keymap 'local-map)
! 			      mew-draft-header-map)
! 	     (mew-overlay-put mew-overlay-header-keymap
! 			      (if mew-xemacs-p 'end-closed 'rear-sticky) t)))
         (goto-char (mew-header-end))
         (let ((beg (point))
  	     (inhibit-read-only t))
  	 (end-of-line)
  	 (if (eobp) (insert "\n"))
! 	 (put-text-property (1- (point)) (point)
! 			    (if mew-xemacs-p 'end-open 'rear-nonsticky) t)
! 	 (put-text-property beg (point)
! 			    (if mew-xemacs-p 'start-open 'front-nonsticky) t)
  	 (put-text-property beg (point) 'read-only t)))))
  
  (defmacro mew-draft-attach-keymap ()
    (` (progn