Lines Matching +defs:summary +defs:line
94 (defcustom gnus-agent-summary-mode-hook nil
95 "Hook run in Agent summary minor modes."
101 (add-hook 'gnus-agent-summary-mode-hook 'gnus-xmas-agent-summary-menu-add))
104 "Hook run in Agent summary minor modes."
269 (add-hook 'gnus-summary-mode-hook 'gnus-agent-mode)
537 (defvar gnus-agent-summary-mode-map (make-sparse-keymap))
538 (gnus-define-keys gnus-agent-summary-mode-map
540 "Ju" gnus-agent-summary-fetch-group
542 "Js" gnus-agent-summary-fetch-series
548 (defun gnus-agent-summary-make-menu-bar ()
549 (unless (boundp 'gnus-agent-summary-menu)
551 gnus-agent-summary-menu gnus-agent-summary-mode-map ""
557 ["Fetch downloadable" gnus-agent-summary-fetch-group t]
575 (defun gnus-agent-make-mode-line-string (string mouse-button mouse-func)
577 (fboundp 'make-mode-line-mouse-map))
579 (make-mode-line-mouse-map mouse-button mouse-func)
587 ((facep 'mode-line-highlight) ;; Emacs 22
588 'mode-line-highlight)
589 ((facep 'mode-line) ;; Emacs 21
590 'mode-line)) )
602 (gnus-agent-make-mode-line-string " Plugged"
612 (gnus-agent-make-mode-line-string " Unplugged"
782 (error "No group on the current line"))
947 (error "No server on the current line"))
965 (error "No server on the current line"))
1038 (gnus-summary-set-agent-mark
1039 (gnus-summary-article-number) unmark)
1040 (zerop (gnus-summary-next-subject (if backward -1 1) nil t))))
1044 (gnus-summary-recenter)
1045 (gnus-summary-position-point)
1062 (defun gnus-summary-set-agent-mark (article &optional unmark)
1072 (when (gnus-summary-goto-subject article nil t)
1073 (gnus-summary-update-mark
1104 ;; displayed in the summary.
1154 (gnus-summary-mark-article
1156 (gnus-summary-position-point)))
1158 (defun gnus-agent-summary-fetch-series ()
1165 (gnus-agent-summary-fetch-group)
1170 (mapc #'gnus-summary-remove-process-mark
1173 ;; The preceeding call to (gnus-agent-summary-fetch-group)
1180 (defun gnus-agent-summary-fetch-group (&optional all)
1207 (gnus-summary-mark-article article gnus-unread-mark))
1209 (gnus-summary-set-agent-mark article t)))
1210 (when (gnus-summary-goto-subject article nil t)
1211 (gnus-summary-update-download-mark article))))))
1225 (gnus-summary-update-download-mark gnus-current-article)))))
1369 (gnus-delete-line)))
1517 ;; 65 char/line. If the line count
1638 (when (nnheader-find-nov-line article)
1641 (setq end (progn (forward-line 1) (point)))))
1656 (nnheader-find-nov-line (string-to-number (cdar crosses)))
1705 "Duplicate overview line for %d" cur)
1706 (delete-region p (progn (forward-line 1) (point))))
1716 (forward-line 1)))))))
1877 (defsubst gnus-agent-copy-nov-line (article)
1884 (forward-line 1))
1885 (beginning-of-line)
1890 (setq e (progn (forward-line 1) (point)))
1909 (forward-line -1)
1914 (when (nnheader-find-nov-line (car articles))
1916 (delete-region (point) (progn (forward-line 1) (point))))
1917 (gnus-agent-copy-nov-line (pop articles))
1923 (forward-line 1)
1926 (beginning-of-line)
1928 (point) (progn (forward-line 1) (point)))
1931 (beginning-of-line)
1934 (gnus-agent-copy-nov-line (pop articles)))))
1955 ;; Bad art num - delete this line
1956 (beginning-of-line)
1957 (delete-region (point) (progn (forward-line 1) (point))))
1961 (forward-line 1))
1963 ;; Bad repeat of art number - delete this line
1964 (beginning-of-line)
1965 (delete-region (point) (progn (forward-line 1) (point))))
1969 (forward-line 1))))
2025 (forward-line 1))
2128 (line 1))
2138 (forward-line 1)
2139 (setq line (1+ line)))
2158 (gnus-message 3 "Warning - invalid agent local: %s on line %d: %s"
2159 file line (error-message-string err))))
2160 (forward-line 1)
2161 (setq line (1+ line))))
2313 (gnus-summary-expunge-below gnus-summary-expunge-below)
2314 (gnus-summary-mark-below gnus-summary-mark-below)
2316 ;; Maybe some other gnus-summary local variables should also
2335 ;; a gnus-summary local variable that is NOT bound to any
2416 gnus-summary-default-score))
2448 ;; Update the summary buffer
2451 (gnus-summary-set-agent-mark article t))
2456 (gnus-summary-mark-article
2458 (when (gnus-summary-goto-subject article nil t)
2459 (gnus-summary-update-download-mark article)))
2461 (gnus-summary-mark-article
2500 (defvar gnus-category-line-format " %(%20c%): %g\n"
2510 (defvar gnus-category-mode-line-format "Gnus: %%b"
2511 "The format specification for the category mode line.")
2533 (defvar gnus-category-line-format-alist
2537 (defvar gnus-category-mode-line-format-alist
2540 (defvar gnus-category-line-format-spec nil)
2541 (defvar gnus-category-mode-line-format-spec nil)
2599 (gnus-simplify-mode-line)
2603 (setq mode-line-process nil)
2612 (defun gnus-category-insert-line (category)
2615 (beginning-of-line)
2620 (eval gnus-category-line-format-spec))
2643 (gnus-category-insert-line (pop alist)))
2649 (error "No category on the current line")))
2761 (gnus-delete-line)
3148 line." (point) nov-file)))
3150 ;; Move to the next line then try again.
3151 (forward-line 1)))
3284 (to (progn (forward-line 1) (point))))
3337 (gnus-summary-update-info))))
3630 (forward-line 1)))
3786 (forward-line 1)
3790 (gnus-delete-line)
3800 ;; that every line begins with a number
3803 (forward-line -1)
3806 (gnus-delete-line)
3810 entries contained line that did not begin with an article number. Deleted\
3811 line.")
3812 (gnus-delete-line))))
3841 (forward-line 1))