Lines Matching +defs:forward +defs:visible +defs:line
98 (defcustom gnus-permanently-visible-groups nil
103 If nil, no groups are permanently visible."
154 (defcustom gnus-group-line-format "%M\%S\%p\%P\%5y:%B%(%g%)%l %O\n"
212 (defcustom gnus-group-mode-line-format "Gnus: %%b {%M\%:%S}"
213 "*The format specification for the group mode line.
277 (defcustom gnus-group-update-hook '(gnus-group-highlight-line)
278 "Hook called when a group line is changed.
281 The default function `gnus-group-highlight-line' will
282 highlight the line according to the `gnus-group-highlight'
362 particular group line should be displayed, each form is
396 particular group line should be displayed, each form is evaluated.
473 (defvar gnus-group-line-format-alist
520 (defvar gnus-group-mode-line-format-alist
553 "\M- " gnus-group-visible-select-group
1023 :visible (and gnus-agent (not gnus-plugged)))
1026 :visible (and gnus-agent gnus-plugged))
1030 :visible (and gnus-agent gnus-plugged)
1033 :visible (or (not gnus-agent)
1037 :visible (and (boundp 'gnus-topic-mode)
1040 :visible (not (and (boundp 'gnus-topic-mode)
1137 (gnus-simplify-mode-line)
1140 (gnus-group-set-mode-line)
1141 (setq mode-line-process nil)
1164 (gnus-group-insert-group-line "dummy.group" 0 nil 0 nil)
1167 (list (cons 'process (and (search-forward
1267 (gnus-group-search-forward t))
1288 (forward-line -1)))))))
1358 (and gnus-permanently-visible-groups
1359 (string-match gnus-permanently-visible-groups
1361 (memq 'visible params)
1362 (cdr (assq 'visible params)))))))
1363 (gnus-group-insert-group-line
1386 (gnus-group-set-mode-line)
1419 (gnus-group-insert-group-line
1429 (defun gnus-group-update-group-line ()
1430 "Update the current line in the group buffer."
1443 (gnus-delete-line)
1444 (gnus-group-insert-group-line-info group)
1445 (forward-line -1)
1448 (defun gnus-group-insert-group-line-info (group)
1449 "Insert GROUP on the current line."
1457 (gnus-group-insert-group-line
1461 (gnus-group-insert-group-line
1514 (defun gnus-group-insert-group-line (gnus-tmp-group gnus-tmp-level
1517 "Insert a group line in the group buffer."
1584 (beginning-of-line)
1592 (eval gnus-group-line-format-spec)))
1606 (forward-line -1)
1609 (forward-line)
1613 (defun gnus-group-highlight-line ()
1614 "Highlight the current line according to `gnus-group-highlight'."
1618 ;; now find out where the line starts and leave point there.
1619 (beg (progn (beginning-of-line) (point)))
1652 (defun gnus-group-update-group (group &optional visible-only)
1682 (gnus-delete-line)
1683 (gnus-group-insert-group-line-info group)
1685 (forward-line -1)
1688 (unless (or found visible-only)
1689 ;; No such line in the buffer, find out where it's supposed to
1703 ;; Finally insert the line.
1705 (gnus-group-insert-group-line-info group)
1707 (forward-line -1)
1711 (gnus-group-set-mode-line)))
1716 (defun gnus-group-set-mode-line ()
1717 "Update the mode line in the group buffer."
1719 ;; Yes, we want to keep this mode line updated.
1722 (let* ((gformat (or gnus-group-mode-line-format-spec
1739 (setq mode-line-modified
1740 (if modified (car gnus-mode-line-modified)
1741 (cdr gnus-mode-line-modified)))
1742 ;; If the line is too long, we chop it off.
1746 (setq mode-line-buffer-identification
1747 (gnus-mode-line-buffer-identification
1752 "Get the name of the newsgroup on the current line."
1758 "Get the level of the newsgroup on the current line."
1762 "Get the indentation of the newsgroup on the current line."
1769 "Get the number of unread articles of the newsgroup on the current line."
1783 (defun gnus-group-search-forward (&optional backward all level first-too)
1789 If FIRST-TOO, the current line is also eligible as a target."
1794 (if (and backward (progn (beginning-of-line)) (bobp))
1797 (forward-line way))
1822 (zerop (forward-line way)))))
1832 (defun gnus-group-mark-line-p ()
1834 (beginning-of-line)
1835 (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
1847 (beginning-of-line)
1848 (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
2020 (error "No group on current line"))
2050 (forward-line -1))
2070 (defun gnus-group-visible-select-group (&optional all)
2220 ;; Either go to the line in the group buffer...
2222 ;; ... or insert the line.
2230 If FAR, it is likely that the group is not on the current line.
2231 If TEST-MARKED, the line must be marked."
2233 (beginning-of-line)
2235 ;; It's quite likely that we are on the right line, so
2236 ;; we check the current line first.
2240 (or (not test-marked) (gnus-group-mark-line-p)))
2242 ;; Previous and next line are also likely, so we check them as well.
2245 (forward-line -1)
2248 (or (not test-marked) (gnus-group-mark-line-p)))))
2249 (forward-line -1)
2253 (forward-line 1)
2256 (or (not test-marked) (gnus-group-mark-line-p)))))
2257 (forward-line 1)
2268 (if (gnus-group-mark-line-p)
2270 (forward-line 1)))
2300 (gnus-group-search-forward
2356 (forward-line 1))
2417 ;; Insert the line.
2418 (gnus-group-insert-group-line-info nname)
2419 (forward-line -1)
2536 "Edit the group on the current line."
2541 (error "No group on current line"))
2674 "%sFile type (mbox, babyl, digest, forward, mmdf, guess) [m, b, d, f, a, g]: "
2679 ((= char ?f) 'forward)
2913 ;; Subscribe the new group after the group on the current line.
2916 (forward-line -1)
2944 (error "No group on current line"))
2956 (error "No group on current line"))
2975 l - lookup (mailbox is visible to LIST/LSUB commands)
3213 (gnus-group-update-group-line))))))
3244 (gnus-group-update-group-line))))
3290 (gnus-group-update-group-line)
3402 (error "No group on the current line"))
3424 (gnus-group-update-group-line)))
3455 (gnus-group-update-group-line))
3461 group line."
3504 (error "No group on current line"))
3507 (forward-line (- n))
3531 (beginning-of-line)
3535 (beginning-of-line)
3538 (beginning-of-line) ;Important when LINES < 1
3558 (gnus-delete-line)
3574 (gnus-delete-line)
3591 (gnus-delete-line)))
3618 (gnus-group-insert-group-line-info group)
3622 (forward-line -1)
4176 "Give a one line description of the group mode commands."
4396 (forward-char 1))