Lines Matching +defs:forward +defs:visible +defs:line
159 If `gnus-visible-headers' is non-nil, this variable will be ignored."
165 (defcustom gnus-visible-headers
168 This variable can also be a list of regexp of headers to remain visible.
515 (defcustom gnus-saved-headers gnus-visible-headers
667 beginning of a line."
671 (defcustom gnus-article-mode-line-format "Gnus: %g [%w] %S%m"
672 "*The format specification for the article mode line.
673 See `gnus-summary-mode-line-format' for a closer description.
1250 "Strip the X-No-Archive header line from the beginning of the body.
1617 (defvar gnus-article-mode-line-format-alist
1620 gnus-summary-mode-line-format-alist))
1654 (re-search-forward (concat "^\\(" header "\\):") nil t))
1708 (end-of-line)
1709 (skip-chars-forward "\n")
1751 ignored visible beg)
1753 ;; `gnus-ignored-headers' and `gnus-visible-headers' may be
1759 (setq ignored (when (not gnus-visible-headers)
1766 visible (cond ((stringp gnus-visible-headers)
1767 gnus-visible-headers)
1768 ((and gnus-visible-headers
1769 (listp gnus-visible-headers))
1771 gnus-visible-headers
1779 (forward-line 1))
1784 ;; `gnus-ignored-headers' and `gnus-visible-headers' to
1785 ;; select which header lines is to remain visible in the
1787 (while (re-search-forward "^[^ \t:]*:" nil t)
1788 (beginning-of-line)
1792 (if (or (and visible (looking-at visible))
1797 (forward-line 1))
1827 (while (re-search-forward "^[^: \t]+:[ \t]*\n[^ \t]" nil t)
1828 (forward-line -1)
1832 (end-of-line)
1833 (if (re-search-forward "^[^ \t]" nil t)
1931 (while (re-search-forward "^to:" nil t)
1937 (re-search-forward "^to:" nil nil to-count)
1938 (forward-line -1)
1943 (while (re-search-forward "^cc:" nil t)
1949 (re-search-forward "^cc:" nil nil cc-count)
1950 (forward-line -1)
1958 (when (re-search-forward (concat "^" header ":") nil t)
1962 (end-of-line)
1963 (if (re-search-forward "^[^ \t]" nil t)
1983 (end-of-line)
1990 (forward-char gnus-article-normalized-header-length)
1997 (forward-line 1))))))
2038 (while (search-forward (car elem) nil t)
2047 (while (search-forward "\b" nil t)
2081 (while (re-search-forward "\n[\t ]" nil t)
2085 (while (re-search-forward "\n[\t ]" nil t)
2128 (while (re-search-forward ", *" nil t)
2134 "Place a boundary line at the end of the headers."
2160 (end-of-line)
2168 (forward-line 1)))))))
2179 (forward-sentence)))))
2187 (while (re-search-forward "\r+$" nil t)
2190 (while (search-forward "\r" nil t)
2206 (forward-line -1))
2207 (forward-line 1)
2226 (not (re-search-forward "^Face:[\t ]*" nil t)))
2266 (not (re-search-forward "^X-Face:[\t ]*" nil t)))
2354 (forward-line 1)
2381 (when (search-forward "\n\n" nil 'move)
2382 (forward-line -1))
2386 (forward-line -1)
2409 (while (re-search-forward
2415 (re-search-forward
2424 (while (re-search-forward
2430 (re-search-forward
2449 (while (re-search-forward "@[^ \t\n\r,>]*\\(xn--[-A-Za-z0-9.]*\\)[ \t\n\r,>]" nil t)
2537 (while (re-search-forward
2645 (while (re-search-forward
2649 (beginning-of-line))
2650 (when (re-search-forward
2664 (when (and (search-forward
2671 (if (search-forward "\n\n" nil t)
2676 (when (search-forward "\n-----END PRIVACY-ENHANCED MESSAGE-----\n"
2721 (forward-line -1)
2725 (while (re-search-forward banner nil t)
2728 (while (re-search-forward banner nil t)
2760 (gnus-set-mode-line 'article))
2769 (gnus-delete-line)))))
2780 (gnus-delete-line))))))
2787 (if (search-forward "\n\n" nil 1)
2800 ((search-forward "\n\n" nil t)
2807 "Replace consecutive blank lines with one empty line."
2814 (while (re-search-forward "^[ \t]+$" nil t)
2818 ;; Then replace multiple empty lines with a single empty line.
2820 (while (re-search-forward "\n\n\\(\n+\\)" nil t)
2832 (while (re-search-forward "^[ \t]+" nil t)
2842 (while (re-search-forward "[ \t]+$" nil t)
2859 (while (re-search-forward "^[ \t]*\n" nil t)
2866 (forward-line 1)
2880 (not (re-search-forward limit nil t))))
2964 (defun gnus-article-forward-header ()
2967 lines forward."
2970 (forward-line 1)
2972 (forward-line 1)
3009 (when (re-search-forward tdate-regexp nil t)
3015 (while (re-search-forward date-regexp nil t)
3019 (gnus-article-forward-header)
3023 (gnus-article-forward-header)
3024 (forward-char -1)
3028 (re-search-forward tdate-regexp nil t))
3029 (forward-line 1))
3031 (insert (article-make-date-line date (or type 'ut)))
3034 (forward-line -1))
3036 (beginning-of-line)
3046 (defun article-make-date-line (date type)
3047 "Return a DATE line of TYPE."
3185 "Function to be run from a timer to update the lapsed time line."
3196 (when (re-search-forward "^X-Sent:" nil t)
3200 nil 'visible))))))
3236 (when (and (re-search-forward "^date:[\t\n ]+" nil t)
3240 (re-search-forward "[\t ]*\n\\([^\t ]\\|\\'\\)"
3267 (while (re-search-forward "^[^ :]+: \\([ \t]+\\)" nil t)
3284 regexp elem beg invisible visible face)
3291 visible (nth 2 elem)
3293 (while (re-search-forward regexp nil t)
3294 (when (and (match-beginning visible) (match-beginning invisible))
3298 (match-beginning visible) (match-end visible) 'emphasis)
3300 (match-beginning visible) (match-end visible) 'face face)
3336 (let ((gnus-visible-headers
3338 gnus-saved-headers gnus-visible-headers))
3454 (when (re-search-forward "archive-name: *\\([^ \n\t]+\\)[ \t]*$" nil t)
3699 (forward-line)
3703 (forward-line))
3723 (forward-line -1)
3727 (if (re-search-forward "^X-PGP-Sig:" nil t)
3728 (forward-line)
3733 (forward-line)
3737 (forward-line))
3871 ;; Fixme: this should use :active (and maybe :visible).
3908 (gnus-simplify-mode-line)
4007 (defun gnus-article-set-window-start (&optional line)
4013 (if (not line)
4016 (search-forward "\n\n" nil t)
4017 (forward-line line)
4078 (gnus-set-mode-line 'article)))
4105 (gnus-set-mode-line 'summary)
4123 (gnus-set-mode-line 'article))
4126 (forward-line -1))
4153 (defvar gnus-mime-button-line-format "%{%([%p. %d%T]%)%}%e\n"
4168 (defvar gnus-mime-button-line-format-alist
4257 (or (search-forward "\n\n") (goto-char (point-max)))
4599 (forward-line 2)
4714 (let ((window (get-buffer-window gnus-article-buffer 'visible))
4813 (forward-line 1)
4830 (forward-line)
4841 (forward-line 1)
4850 (gnus-delete-line)
4887 gnus-mime-button-line-format gnus-mime-button-line-format-alist
5101 ;; Remember modify the number of forward lines.
5107 (forward-line -1)
5119 (forward-line -1)
5174 (forward-line 2)
5255 " " "All citation text visible")
5257 " " "All headers visible.")
5261 " " "Signature is visible")
5276 "Alist of strings describing wash status in the mode line.
5279 in the article mode line when the washing function is active, and OFF
5398 If given a numerical ARG, move forward ARG pages."
5414 (re-search-forward page-delimiter nil 'move arg)))
5419 (and (re-search-forward page-delimiter nil t) t))))
5423 (if (re-search-forward page-delimiter nil 'move)
5473 (move-to-window-line -1)
5475 (end-of-line)
5476 (and (pos-visible-in-window-p) ;Not continuation line.
5483 (forward-line)
5497 In Emacs, the point is placed at the line number which `scroll-margin'
5500 '(move-to-window-line 0)
5501 '(move-to-window-line
5504 (if mode-line-format 1 0)
5505 (if (and (boundp 'header-line-format)
5506 (symbol-value 'header-line-format))
5532 (move-to-window-line 0)
5558 (while (re-search-forward "\\b\\w\\w" nil t)
5559 (forward-char -1)
5571 (re-search-forward "<?news:<?\\|<" (gnus-point-at-eol) t)
5572 (if (re-search-forward "[^@ ]+@[^ \t>]+" (gnus-point-at-eol) t)
5811 (let (do-update-line sparse-header)
5841 (setq do-update-line article)
5975 (when (and do-update-line
5980 (gnus-summary-update-article do-update-line sparse-header)
5981 (gnus-summary-goto-subject do-update-line nil t)
6035 "\C-a" message-beginning-of-line
6173 (search-forward-regexp "^$" nil t)
6818 (while (and (re-search-forward regexp nil t)
6820 (beginning-of-line)
6822 (unless (search-forward ":" nil t)
6823 (forward-char 1))
6831 (if (re-search-forward "^[^ \t]" nil t)
6832 (forward-char -2)
6891 (while (re-search-forward regexp nil t)
6924 (while (re-search-forward (car entry) nil t)
6927 (setq end (or (and (re-search-forward "^[^ \t]" nil t)
6931 (while (re-search-forward (eval (nth 1 entry)) end t)
6986 (gnus-set-mode-line 'article))))
7196 (defvar gnus-next-page-line-format "%{%(Next page...%)%}\n")
7197 (defvar gnus-prev-page-line-format "%{%(Previous page...%)%}\n")
7221 gnus-prev-page-line-format nil
7253 (gnus-eval-format gnus-next-page-line-format nil
7432 (search-forward field nil t))
7468 (defvar gnus-mime-security-button-line-format "%{%([[%t:%i]%D]%)%}\n"
7475 (defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n"
7482 (defvar gnus-mime-security-button-line-format-alist
7534 (gnus-mime-security-button-line-format
7535 (get-text-property (point) 'gnus-line-format))
7537 (forward-char -1)
7538 (while (eq (get-text-property (point) 'gnus-line-format)
7539 gnus-mime-security-button-line-format)
7540 (forward-char -1))
7541 (forward-char)
7548 'gnus-line-format
7549 gnus-mime-security-button-line-format)
7596 gnus-mime-security-button-line-format
7597 gnus-mime-security-button-line-format-alist
7600 gnus-line-format ,gnus-mime-security-button-line-format
7632 (let ((gnus-mime-security-button-line-format
7633 gnus-mime-security-button-end-line-format))