Lines Matching +defs:old +defs:mark
177 %p Process mark (char)
382 (defcustom gnus-new-mail-mark ?%
474 `((?M gnus-tmp-marked-mark ?c)
615 "#" gnus-group-mark-group
618 (gnus-define-keys (gnus-group-mark-map "M" gnus-group-mode-map)
619 "m" gnus-group-mark-group
621 "w" gnus-group-mark-region
622 "b" gnus-group-mark-buffer
623 "r" gnus-group-mark-regexp
773 ["See old articles" (gnus-group-select-group 'all)
883 ["Mark group" gnus-group-mark-group
890 ["Mark regexp..." gnus-group-mark-regexp t]
891 ["Mark region" gnus-group-mark-region :active (gnus-mark-active-p)]
892 ["Mark buffer" gnus-group-mark-buffer t]
898 :active (gnus-mark-active-p)]
1148 (gnus-update-group-mark-positions)
1155 (defun gnus-update-group-mark-positions ()
1157 (let ((gnus-process-mark ?\200)
1166 (setq gnus-group-mark-positions
1391 (defun gnus-group-prepare-flat-list-dead (groups level mark regexp)
1406 (insert " " mark " *: "
1564 (gnus-tmp-marked-mark
1576 gnus-process-mark ? ))
1597 gnus-marked ,gnus-tmp-marked-mark
1658 mark)
1660 (setq mark (point-marker))
1712 (goto-char mark)
1713 (set-marker mark nil)
1774 gnus-new-mail-mark
1832 (defun gnus-group-mark-line-p ()
1835 (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
1836 (eq (char-after) gnus-process-mark)))
1838 (defun gnus-group-mark-group (n &optional unmark no-advance)
1846 ;; Go to the mark position.
1848 (forward-char (or (cdr (assq 'process gnus-group-mark-positions)) 2))
1857 gnus-process-mark)))
1865 "Remove the mark from the current group."
1867 (gnus-group-mark-group n 'unmark)
1876 (gnus-group-remove-mark (pop groups)))))
1879 (defun gnus-group-mark-region (unmark beg end)
1880 "Mark all groups between point and mark.
1881 If UNMARK, remove the mark instead."
1886 (- num (gnus-group-mark-group num unmark)))))
1888 (defun gnus-group-mark-buffer (&optional unmark)
1890 If UNMARK, remove the mark instead."
1892 (gnus-group-mark-region unmark (point-min) (point-max)))
1894 (defun gnus-group-mark-regexp (regexp)
1903 (gnus-group-set-mark group)))))
1906 (defun gnus-group-remove-mark (group &optional test-marked)
1907 "Remove the process mark from GROUP and move point there.
1911 (gnus-group-mark-group 1 'unmark t)
1917 (defun gnus-group-set-mark (group)
1918 "Set the process mark on GROUP."
1921 (gnus-group-mark-group 1 nil t))
1957 ((and (gnus-region-active-p) (mark))
1958 ;; Work on the region between point and mark.
1959 (let ((max (max (point) (mark)))
1962 (goto-char (min (point) (mark)))
1997 (gnus-group-remove-mark ,group)
2128 (defcustom gnus-fetch-old-ephemeral-headers nil
2129 "Same as `gnus-fetch-old-headers', but only used for ephemeral newsgroups."
2197 (gnus-fetch-old-headers
2198 gnus-fetch-old-ephemeral-headers))
2240 (or (not test-marked) (gnus-group-mark-line-p)))
2248 (or (not test-marked) (gnus-group-mark-line-p)))))
2256 (or (not test-marked) (gnus-group-mark-line-p)))))
2268 (if (gnus-group-mark-line-p)
2900 (gnus-group-remove-mark s)
3094 ;; Go through all the infos and replace the old entries
3239 (gnus-request-set-mark ,group ',action)
3247 (gnus-request-set-mark group action)
3272 "Do you really want to mark all articles in %s as read? "
3279 (gnus-group-remove-mark group)
3318 (gnus-request-set-mark group (list (list (cdr (assq 'tick marks))
3331 (gnus-request-set-mark group (list (list (list article) 'add '(expire)))))
3346 (gnus-group-remove-mark group)
3417 (gnus-group-remove-mark group)
3442 (gnus-group-remove-mark group)
3556 (gnus-group-remove-mark group)
3573 (gnus-group-remove-mark group)
3796 (gnus-group-remove-mark group)
4293 (defun gnus-add-mark (group mark article)
4299 (gnus-summary-add-mark article mark))
4300 (gnus-add-marked-articles group (cdr (assq mark gnus-article-mark-lists))
4431 (defun gnus-group-mark-article-read (group article)
4434 (mark gnus-read-mark)
4442 (memq mark gnus-auto-expirable-marks))
4443 (setq mark gnus-expirable-mark))
4444 (setq mark (gnus-request-update-mark
4445 group article mark))
4446 (gnus-mark-article-as-read article mark)