[Mew-dist 09644] Re: xemacs-21.2.18

[Kazu Yamamoto ( 山本和彦 )]

From: Kazu Yamamoto (山本和彦) <kazu at example.com>
Subject: [Mew-dist 09643] Re: xemacs-21.2.18
Date: Wed, 14 Jul 1999 20:20:34 +0900

> > こちらではqしたら「ほぼ確実に」アイコンがMewのもののままになります。
> > C-lでXEmacs本来のものに変わりますが。
> 
> このパッチでどうでしょうか？

間違いがありました。ごめんなさい。さっきのパッチは忘れて、こっちを試し
て下さい。

--かず
-------------- next part --------------
Index: mew-temacs.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew-temacs.el,v
retrieving revision 1.8
diff -c -r1.8 mew-temacs.el
*** mew-temacs.el	1999/06/28 02:59:05	1.8
--- mew-temacs.el	1999/07/14 11:27:52
***************
*** 27,35 ****
  (defmacro mew-draft-toolbar-update ()
    (` ()))
  
- (defmacro mew-toolbar-clean-up ()
-   (` ()))
- 
  (defmacro mew-message-set-end-of-message ()
    (` (mew-overlay-put mew-message-overlay
  		      'before-string
--- 27,32 ----
Index: mew-xemacs.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew-xemacs.el,v
retrieving revision 1.29
diff -c -r1.29 mew-xemacs.el
*** mew-xemacs.el	1999/07/13 11:35:44	1.29
--- mew-xemacs.el	1999/07/14 11:17:40
***************
*** 65,73 ****
    (toolbar-make-button-list
     (expand-file-name "mew-Unknown.xpm" mew-icon-directory)))
  
- (defmacro mew-toolbar-clean-up ()
-   (` (set-specifier default-toolbar default-toolbar)))
- 
  ;;
  ;; Summary mode
  ;;
--- 65,70 ----
Index: mew.el
===================================================================
RCS file: /home/kazu/cvsroot/Mew/mew/mew.el,v
retrieving revision 1.186
diff -c -r1.186 mew.el
*** mew.el	1999/07/14 05:47:51	1.186
--- mew.el	1999/07/14 11:18:39
***************
*** 609,619 ****
    "Suspend Mew then switch to another buffer. All buffers of 
  Mew retain, so you can resume with buffer operations."
    (interactive)
-   (mew-window-pop)
-   ;; bury buffers
    (mew-buffer-message-clean-up (function mew-bury-buffer))
    (mew-buffers-bury)
!   (set-buffer (car (buffer-list)))
    (run-hooks 'mew-suspend-hook))
  
  (defun mew-summary-quit ()
--- 609,618 ----
    "Suspend Mew then switch to another buffer. All buffers of 
  Mew retain, so you can resume with buffer operations."
    (interactive)
    (mew-buffer-message-clean-up (function mew-bury-buffer))
    (mew-buffers-bury)
!   (mew-window-pop)
!   (redraw-frame) ;; update toolbar
    (run-hooks 'mew-suspend-hook))
  
  (defun mew-summary-quit ()
***************
*** 621,627 ****
    (interactive)
    (if (not (y-or-n-p "Quit Mew? "))
        ()
-     (mew-window-pop)
      ;; killing buffers
      (mew-buffer-message-clean-up (function mew-kill-buffer)) ;; Message mode
      (mew-buffer-draft-clean-up) ;; Draft mode
--- 620,625 ----
***************
*** 641,647 ****
      (mew-current-clean-up)
      (mew-addrbook-clean-up)
      (mew-config-clean-up) ;; MUST be last
!     (mew-toolbar-clean-up) ;; due to XEmacs's bug, maybe
      ;; flush minibuffer
      (message "")))
  
--- 639,646 ----
      (mew-current-clean-up)
      (mew-addrbook-clean-up)
      (mew-config-clean-up) ;; MUST be last
!     (mew-window-pop)
!     (redraw-frame) ;; update toolbar
      ;; flush minibuffer
      (message "")))