Re: gnus-summary-scroll-upでス クロールされないときがあります

>>>>> In [semi-gnus-ja : No.20957]  wrote:

> ;; 
> ;; 

 scroll-margin 
system-type  darwin 

>  EMACS_22_BASE  CVS  No Gnus 

>  Enter(gnus-summary-scroll-up) 
>  End of message 
> 

> 

> gnus-summary-scroll-up ->
>  gnus-article-next-page ->
>   gnus-article-next-page-1 ->
>    :
>    (scroll-up lines)  1
>    :
>    (gnus-article-beginning-of-window) 1
>                                       

gnus-eval-in-buffer-window 
 article windows  gnus-article-next-page
 window 
:

(setq cursor-in-non-selected-windows t)

(let ((buffer (get-buffer-create "*testing*"))
      (pop-up-frames nil) (pop-up-windows t))
  (with-current-buffer buffer
    (erase-buffer)
    (insert "Hello World")
    (goto-char (point-min)))
  (display-buffer buffer)
  (with-current-buffer buffer
    (goto-char 7)
    (buffer-substring (point) (point-max))))
 => "World"

 "*testing*" 
 with-current-buffer  gnus-eval-in-buffer-window 
 "W" 


> (scroll-up lines) 1
> 

> 
> (gnus-article-beginning-of-window) 

> (move-to-window-line (min (max 0 scroll-margin)
> 			  (max 1 (- (window-height)
> 				    (if mode-line-format 1 0)
> 				    (if header-line-format 1 0)))))

> scroll-margin = 3
> (window-height) = 18
> mode-line-format = t
> header-line-format = nil

>  (move-to-window-line 3) 
>  (move-to-window-line 3)
> 1
> 


 frame (height=55) 
Gnus 

> 
> 

 system-type  gnu/linux scroll-margin 



Article  18  gnus-summary-scroll-up
 X-Face  scroll-up 


gnus-face-properties-alist  X-Face 

 scroll-margin  3 Article 


 summary 



( article  scroll-margin 
?)

 overlay 
Emacs 

 window 
 Emacs 


 emacs-devel 
--