[Mew-dist 04677] Re: mew-summary-pick completion

[Kazu Yamamoto ( 山本和彦 )]

From: Akihiro Motoki <motoki at example.com>
Subject: [Mew-dist 04656] mew-summary-pick completion
Date: Wed, 13 May 1998 10:30:00 +0900

> 通常の動作ですとさらにスペースキーをたたくと、スクロールされて
> 入り切っていない候補が表示されると思うのですが、pick の際には
> うまく次の候補の表示に切り替わってくれません。

知らなかったでちゅ。

これでどうでしょう？

--かず

Index: mew-complete.el
===================================================================
RCS file: /usr/local/cvsroot/Mew/mew/mew-complete.el,v
retrieving revision 1.8
diff -c -r1.8 mew-complete.el
*** mew-complete.el	1998/05/06 03:50:26	1.8
--- mew-complete.el	1998/05/13 07:21:48
***************
*** 56,61 ****
--- 56,63 ----
  ;; Window management for completion candidates
  ;;
  
+ (defvar mew-complete-candidates nil)
+ 
  (defun mew-complete-window-delete ()
    (if (null mew-complete-window-config)
        ()
***************
*** 74,89 ****
      )
    (and (get-buffer mew-buffer-completions)
         (kill-buffer mew-buffer-completions))
    )
  
  
  (defun mew-complete-window-show (all)
    (or mew-complete-window-config
        (setq mew-complete-window-config (current-window-configuration)))
!   (with-output-to-temp-buffer
!       mew-buffer-completions
!     (display-completion-list all))
!   )
  
  ;;
  ;; Completion function
--- 76,100 ----
      )
    (and (get-buffer mew-buffer-completions)
         (kill-buffer mew-buffer-completions))
+   (setq mew-complete-candidates nil)
    )
  
  
  (defun mew-complete-window-show (all)
    (or mew-complete-window-config
        (setq mew-complete-window-config (current-window-configuration)))
!   (if (and (get-buffer-window mew-buffer-completions)
! 	   (equal mew-complete-candidates all))
!       (let ((win (get-buffer-window mew-buffer-completions)))
! 	(save-excursion
! 	  (set-buffer mew-buffer-completions)
! 	  (if (pos-visible-in-window-p (point-max) win)
! 	      (set-window-start win 1)
! 	    (scroll-other-window))))
!     (setq mew-complete-candidates all)
!     (with-output-to-temp-buffer
! 	mew-buffer-completions
!       (display-completion-list all))))
  
  ;;
  ;; Completion function