[Mew-dist 15220] Re: b83

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 15219] b83

> 遅くなりましたが、b83 を出します。
> 
> 	ftp://ftp.mew.org/pub/Mew/alpha/mew-1.95b83.tar.gz

Emacs 21 で動きませんでした。以下のパッチを当て下さい。(_ _)

--かず

Index: mew-syntax.el
===================================================================
RCS file: /usr/home/kazu/cvsroot/Mew/mew/mew-syntax.el,v
retrieving revision 1.141
diff -c -r1.141 mew-syntax.el
*** mew-syntax.el	2000/10/09 10:55:28	1.141
--- mew-syntax.el	2000/11/29 17:05:57
***************
*** 280,286 ****
  (defun mew-syntax-number ()
    (let ((event last-command-event)
  	ret str)
!     (if (and mew-icon-p
  	     (mouse-event-p event)
  	     (event-over-toolbar-p event)
  	     (or (button-press-event-p event)
--- 280,287 ----
  (defun mew-syntax-number ()
    (let ((event last-command-event)
  	ret str)
!     (if (and mew-xemacs-p
! 	     mew-icon-p
  	     (mouse-event-p event)
  	     (event-over-toolbar-p event)
  	     (or (button-press-event-p event)
***************
*** 314,320 ****
  (defun mew-summary-message-number ()
    (let ((event last-command-event)
  	ret str)
!     (if (and mew-icon-p	
  	     ;; exclude press button 2 in summary buffer.
  	     ;; exclude pulldown menu in Summary mode.
  	     ;; exclude popup menu of multipart icon because
--- 315,322 ----
  (defun mew-summary-message-number ()
    (let ((event last-command-event)
  	ret str)
!     (if (and mew-xemacs-p
! 	     mew-icon-p	
  	     ;; exclude press button 2 in summary buffer.
  	     ;; exclude pulldown menu in Summary mode.
  	     ;; exclude popup menu of multipart icon because
***************
*** 464,470 ****
  	   (progn
  	     (goto-char (1- (mew-attach-begin)))
  	     (delete-char 1)))
!        (if mew-icon-p
  	   (mew-syntax-print-icon-spec (nreverse mew-syntax-icon-spec)
  				       mew-draft-toolbar))
         (mew-attach-goto-number 'here nums))))))
--- 466,472 ----
  	   (progn
  	     (goto-char (1- (mew-attach-begin)))
  	     (delete-char 1)))
!        (if (and mew-xemacs-p mew-icon-p)
  	   (mew-syntax-print-icon-spec (nreverse mew-syntax-icon-spec)
  				       mew-draft-toolbar))
         (mew-attach-goto-number 'here nums))))))
***************
*** 491,497 ****
  	     (put-text-property
  	      (mew-decode-syntax-begin) (mew-decode-syntax-end)
  	      'face 'default)))
! 	 (if mew-icon-p
  	     (mew-syntax-print-icon-spec icon mew-summary-toolbar))
  	 (forward-line -1)
  	 (mew-summary-goto-message)
--- 493,499 ----
  	     (put-text-property
  	      (mew-decode-syntax-begin) (mew-decode-syntax-end)
  	      'face 'default)))
! 	 (if (and mew-xemacs-p mew-icon-p)
  	     (mew-syntax-print-icon-spec icon mew-summary-toolbar))
  	 (forward-line -1)
  	 (mew-summary-goto-message)
***************
*** 731,737 ****
  (defvar mew-syntax-icon-spec nil)
  
  (defun mew-syntax-set-icon-spec (part ct cd icon func)
!   (if mew-icon-p
        (setq mew-syntax-icon-spec 
  	    (cons
  	     (vector icon func t
--- 733,739 ----
  (defvar mew-syntax-icon-spec nil)
  
  (defun mew-syntax-set-icon-spec (part ct cd icon func)
!   (if (and mew-xemacs-p mew-icon-p)
        (setq mew-syntax-icon-spec 
  	    (cons
  	     (vector icon func t