Lines Matching +defs:article +defs:window
84 "u" gnus-pick-unmark-article-or-thread
85 "." gnus-pick-article-or-thread
141 '(gnus-configure-windows ,gnus-current-window-configuration t)
160 (gnus-summary-first-article)
162 (if gnus-pick-display-summary 'article 'pick) t))
172 (defun gnus-pick-goto-article (arg)
173 "Go to the article number indicated by ARG.
174 If ARG is an invalid article number, then stay on current line."
184 (defun gnus-pick-article (&optional arg)
185 "Pick the article on the current line.
186 If ARG, pick the article on that line instead."
189 (gnus-pick-goto-article arg))
192 (defun gnus-pick-article-or-thread (&optional arg)
194 Otherwise pick the article on the current line.
195 If ARG, pick the article/thread on that line instead."
198 (gnus-pick-goto-article arg))
206 (defun gnus-pick-unmark-article-or-thread (&optional arg)
208 Otherwise unmark the article on current line.
209 If ARG, unmark thread/article on that line instead."
212 (gnus-pick-goto-article arg))
233 (start-window (posn-window start-posn))
234 (bounds (gnus-window-edges start-window))
236 (bottom (if (window-minibuffer-p start-window)
248 (gnus-pick-article)
252 ;; (but not outside the window where the drag started).
265 ;; Are we moving within the original window?
266 ((and (eq (posn-window end) start-window)
273 (gnus-pick-article)
282 (gnus-pick-article)
292 (mouse-scroll-subr start-window (- mouse-row top)))
294 (mouse-scroll-subr start-window
338 "g" gnus-binary-show-article))
359 (make-local-variable 'gnus-summary-display-article-function)
360 (setq gnus-summary-display-article-function 'gnus-binary-display-article)
367 (defun gnus-binary-display-article (article &optional all-header)
369 (when (gnus-summary-goto-subject article)
373 (defun gnus-binary-show-article (&optional arg)
374 "Bypass the binary functions and show the article."
376 (let (gnus-summary-display-article-function)
377 (gnus-summary-show-article arg)))
388 (defcustom gnus-tree-minimize-window t
389 "If non-nil, minimize the tree buffer window.
461 "\r" gnus-tree-select-article
462 gnus-mouse-2 gnus-tree-pick-article
476 ["Select article" gnus-tree-select-article t]))))
506 (set-buffer gnus-article-buffer)
507 (gnus-article-read-summary-keys arg nil t)
508 (when (setq win (get-buffer-window buf))
509 (select-window win)
519 (gnus-configure-windows 'article)
520 (gnus-summary-goto-subject gnus-current-article)))
522 (defun gnus-tree-select-article (article)
523 "Select the article under point, if any."
524 (interactive (list (gnus-tree-article-number)))
526 (when article
529 (gnus-summary-goto-article article))
530 (select-window (get-buffer-window buf)))))
532 (defun gnus-tree-pick-article (e)
533 "Select the article under the mouse pointer."
536 (gnus-tree-select-article (gnus-tree-article-number)))
538 (defun gnus-tree-article-number ()
541 (defun gnus-tree-article-region (article)
542 "Return a cons with BEG and END of the article region."
544 (point-min) (point-max) 'gnus-number article)))
548 (defun gnus-tree-goto-article (article)
550 (point-min) (point-max) 'gnus-number article)))
555 "Center point in the tree window."
556 (let ((selected (selected-window))
557 (tree-window (gnus-get-buffer-window gnus-tree-buffer t)))
558 (when tree-window
559 (select-window tree-window)
562 (let* ((top (cond ((< (window-height) 4) 0)
563 ((< (window-height) 7) 1)
565 (height (1- (window-height)))
569 ;; Set the window start to either `bottom', which is the biggest
572 (set-window-start
573 tree-window (min bottom (save-excursion
575 (select-window selected))))
586 (when (and gnus-tree-minimize-window
587 (not (one-window-p)))
590 (walk-windows (lambda (window) (incf windows)))
593 (* window-min-height (1- windows))
595 (let* ((window-min-height 2)
597 (min (max (1- window-min-height) height))
598 (tot (if (numberp gnus-tree-minimize-window)
599 (min gnus-tree-minimize-window min)
601 (win (get-buffer-window (current-buffer)))
602 (wh (and win (1- (window-height win)))))
606 (let ((selected (selected-window)))
607 (when (ignore-errors (select-window win))
608 (enlarge-window (- tot wh))
609 (select-window selected))))))))
661 (defun gnus-tree-highlight-node (article beg end)
667 (let* ((score (or (cdr (assq article gnus-newsgroup-scored))
672 (uncached (memq article gnus-newsgroup-undownloaded))
674 (mark (or (gnus-summary-article-mark article) gnus-unread-mark)))
703 (let ((selected (selected-window)))
704 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
705 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
707 (select-window selected))))))
718 ;; We don't want this article.
721 ;; Not the first article on the line, so we insert a "-".
737 ;; Insert the article node.
743 ;; Recurse downwards in all children of this article.
771 ;; We don't want this article.
774 ;; Not the first article on the line, so we insert a "-".
797 ;; Insert the article node.
807 ;; Recurse downwards in all children of this article.
815 (defun gnus-possibly-generate-tree (article &optional force)
821 (vectorp (gnus-summary-article-header article))))
828 (gnus-summary-article-header article))
844 (when (and gnus-tree-minimize-window
850 (defun gnus-highlight-selected-tree (article)
851 "Highlight the selected article in the tree."
855 (when (setq region (gnus-tree-article-region article))
863 ;; Move the overlay to the article.
868 (let ((selected (selected-window)))
869 (when (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t)
870 (select-window (gnus-get-buffer-window (set-buffer gnus-tree-buffer) t))
872 (select-window selected))))
879 (defun gnus-tree-highlight-article (article face)
883 (when (setq region (gnus-tree-article-region article))
885 (set-window-point
886 (gnus-get-buffer-window (current-buffer) t) (cdr region))))))
920 ("tick" . gnus-summary-tick-article-forward)
925 ("next-unread" . gnus-summary-next-unread-article)
926 ("prev-unread" . gnus-summary-prev-unread-article)
927 ("first" . gnus-summary-first-unread-article)
928 ("best" . gnus-summary-best-unread-article)
929 "article"
933 ("fetch-parent" . gnus-summary-refer-parent-article)
935 ("move" . gnus-summary-move-article)
936 ("copy" . gnus-summary-copy-article)
937 ("respool" . gnus-summary-respool-article)
943 ("local" . gnus-summary-news-other-window)
944 ("mail" . gnus-summary-mail-other-window)
947 ("cancel" . gnus-summary-cancel-article)
1040 (let ((fill-column (- (window-width) 2)))
1042 (set-window-point (get-buffer-window (current-buffer))