Lines Matching +refs:gnus +refs:article +refs:maybe +refs:highlight
71 (require 'gnus-sum)
468 (defcustom org-highlight-sparse-tree-matches t
469 "Non-nil means, highlight all matches that define a sparse tree.
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1270 link type that is created. For example, calling `remember' in emails or gnus
1282 gnus | %:group, for messages also all email fields
2428 (defcustom org-export-highlight-first-table-line t
2429 "Non-nil means, highlight the first table line.
2559 (defcustom org-export-html-inline-images 'maybe
2562 link to the image. If this option is `maybe', then images in links with
2568 (const :tag "When there is no description" maybe)))
3080 (defvar org-maybe-keyword-time-regexp nil
3082 (make-variable-buffer-local 'org-maybe-keyword-time-regexp)
3272 org-maybe-keyword-time-regexp
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3731 (list 'mouse-face 'highlight
3742 (list 'mouse-face 'highlight
3748 (defmacro org-maybe-intangible (props)
3768 (ip (org-maybe-intangible
3770 'keymap org-mouse-map 'mouse-face 'highlight
3773 'keymap org-mouse-map 'mouse-face 'highlight
3794 (list 'mouse-face 'highlight
3817 (list 'mouse-face 'highlight
3838 (add-text-properties s e (org-maybe-intangible '(invisible org-cwidth)))
3879 (list 'mouse-face 'highlight
4052 (org-table-justify-field-maybe)
5080 (org-maybe-renumber-ordered-list)
5081 (and checkbox (org-update-checkbox-count-maybe))
5119 (org-update-checkbox-count-maybe))
5121 (defun org-update-checkbox-count-maybe ()
5321 (org-maybe-renumber-ordered-list))
5357 (org-maybe-renumber-ordered-list))
5361 (defun org-maybe-renumber-ordered-list ()
5766 (defvar org-inhibit-highlight-removal nil)
6135 (defun org-table-justify-field-maybe (&optional new)
6178 (org-table-maybe-eval-formula)
6179 (org-table-maybe-recalculate-line)
6207 (org-table-justify-field-maybe)
6208 (org-table-maybe-recalculate-line)
6225 (org-table-maybe-eval-formula)
6226 (org-table-maybe-recalculate-line)
6282 (org-table-maybe-recalculate-line)
6335 "Show info about the current field, and highlight any reference at point."
7354 (defun org-table-maybe-eval-formula ()
7443 (defun org-table-maybe-recalculate-line ()
7643 (org-table-justify-field-maybe
7648 (and down (org-table-maybe-recalculate-line))
7652 (defun org-table-get-range (desc &optional tbeg col highlight)
7656 HIGHLIGHT means, just highlight the range."
7692 (if highlight (org-table-highlight-rectangle (point) (point)))))
7707 (if highlight
7708 (org-table-highlight-rectangle
7990 (org-table-remove-rectangle-highlight)
8018 (org-table-remove-rectangle-highlight)
8070 (org-table-remove-rectangle-highlight)
8073 (face2 'highlight)
8074 (org-inhibit-highlight-removal t)
8090 'org-table-remove-rectangle-highlight)
8123 (org-table-highlight-rectangle nil nil face2))
8130 (org-table-get-range match nil nil 'highlight))
8135 (org-table-highlight-rectangle (point) (point))
8139 (org-table-highlight-rectangle (point) (point))
8145 (org-table-highlight-rectangle)
8151 (org-table-highlight-rectangle (point) (point))
8158 (org-table-highlight-rectangle)
8248 (defun org-table-highlight-rectangle (&optional beg end face)
8274 (add-hook 'before-change-functions 'org-table-remove-rectangle-highlight))
8276 (defun org-table-remove-rectangle-highlight (&rest ignore)
8278 (unless org-inhibit-highlight-removal
8279 (remove-hook 'before-change-functions 'org-table-remove-rectangle-highlight)
8617 (org-table-maybe-eval-formula)
8620 (org-table-maybe-recalculate-line))
8622 (orgtbl-send-table 'maybe))
8636 (org-table-justify-field-maybe)
8642 (org-table-justify-field-maybe)
8683 (defun orgtbl-send-table (&optional maybe)
8696 (if maybe
9135 ((eq major-mode 'gnus-group-mode)
9136 (let ((group (cond ((fboundp 'gnus-group-group-name) ; depending on Gnus
9137 (gnus-group-group-name)) ; version
9138 ((fboundp 'gnus-group-name)
9139 (gnus-group-name))
9142 (org-store-link-props :type "gnus" :group group)
9146 "gnus:")
9150 ((memq major-mode '(gnus-summary-mode gnus-article-mode))
9151 (and (eq major-mode 'gnus-article-mode) (gnus-article-show-summary))
9152 (let* ((group gnus-newsgroup-name)
9153 (article (gnus-summary-article-number))
9154 (header (gnus-summary-article-header article))
9158 (subject (gnus-summary-subject-string)))
9159 (org-store-link-props :type "gnus" :from from :subject subject
9168 (setq link (org-make-link "gnus:" group
9169 "#" (number-to-string article))))))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9712 article (match-string 3 path))
9713 (org-follow-gnus-link group article)))
9716 (let (folder article)
9720 article (match-string 3 path))
9722 (org-follow-vm-link folder article in-emacs)))
9725 (let (folder article)
9729 article (match-string 3 path))
9730 (org-follow-wl-link folder article)))
9733 (let (folder article)
9737 article (match-string 3 path))
9738 (org-follow-mhe-link folder article)))
9741 (let (folder article)
9745 article (match-string 3 path))
9746 (org-follow-rmail-link folder article)))
10062 (defun org-follow-gnus-link (&optional group article)
10064 (require 'gnus)
10065 (funcall (cdr (assq 'gnus org-link-frame-setup)))
10066 (if gnus-other-frame-object (select-frame gnus-other-frame-object))
10067 (cond ((and group article)
10068 (gnus-group-read-group 0 nil group)
10069 (gnus-summary-goto-article (string-to-number article) nil t))
10070 (group (gnus-group-jump-to-group group))))
10072 (defun org-follow-vm-link (&optional folder article readonly)
10075 (setq article (org-add-angle-brackets article))
10094 (when article
10100 (concat "^" "message-id: *" (regexp-quote article))))
10107 (defun org-follow-wl-link (folder article)
10110 article
10111 (string-match "^\\([^#]+\\)\\(#\\(.*\\)\\)?" article))
10113 ;; Thus, we recompose folder and article ids.
10114 (setq folder (format "%s#%s" folder (match-string 1 article))
10115 article (match-string 3 article)))
10119 (and article
10120 (wl-summary-jump-to-msg-by-message-id (org-add-angle-brackets article))
10123 (defun org-follow-rmail-link (folder article)
10125 (setq article (org-add-angle-brackets article))
10136 (or article "")))
10223 (defun org-follow-mhe-link (folder article)
10234 (if (not article)
10236 (setq article (org-add-angle-brackets article))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10245 (mh-search "+" article))
10988 (and dostates (org-add-log-maybe 'state state 'findpos)))
10990 (org-add-log-maybe 'state state 'findpos))
10995 (org-add-log-maybe 'done state 'findpos))))
10999 (and (equal state org-done-string) (org-auto-repeat-maybe))
11022 (defun org-auto-repeat-maybe ()
11040 (org-add-log-maybe 'done org-done-string 'findpos)))
11165 (defun org-add-log-maybe (&optional purpose state findpos)
11267 (org-highlight-new-match (match-beginning 0) (match-end 0))
11325 (defun org-highlight-new-match (beg end)
11326 "Highlight from BEG to END and mark the highlight is an occur headline."
11336 (unless org-inhibit-highlight-removal
11429 'mouse-face 'highlight
12187 nil 'mouse-face 'highlight))
12284 (org-clock-update-time-maybe)
12480 (org-clock-update-time-maybe)
12579 (org-add-log-maybe 'clock-out)
12697 (unless org-inhibit-highlight-removal
12751 (defun org-clock-update-time-maybe ()
13589 (org-agenda-maybe-reset-markers 'force)
13695 (defun org-agenda-maybe-reset-markers (&optional force)
14002 (org-agenda-add-time-grid-maybe
14290 'mouse-face 'highlight
14351 (org-agenda-maybe-reset-markers)
14450 'mouse-face 'highlight
14507 'mouse-face 'highlight
14575 (let* ((props (list 'mouse-face 'highlight
14628 (props (list 'mouse-face 'highlight
14686 'mouse-face 'highlight
14736 'mouse-face 'highlight
14899 (defun org-agenda-add-time-grid-maybe (list ndays todayp)
15005 (setq list (mapcar 'org-agenda-highlight-todo list))
15010 (defun org-agenda-highlight-todo (x)
15096 (org-agenda-maybe-reset-markers 'force))
15233 ;; Initialize the highlight
15235 (org-overlay-put org-hl 'face 'highlight)
15237 (defun org-highlight (begin end &optional buffer)
15246 (defun org-highlight-until-next-command (beg end &optional buffer)
15247 (org-highlight beg end buffer)
15328 (defun org-agenda-goto (&optional highlight)
15343 (and highlight (org-highlight (point-at-bol) (point-at-eol)))))
15577 (org-agenda-highlight-todo 'line)
16248 (insert "\\documentclass{article}
16311 (:table-auto-headline . org-export-highlight-first-table-line)
17388 (setq-default org-maybe-keyword-time-regexp org-maybe-keyword-time-regexp)
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17786 (org-close-par-maybe)
17818 (org-close-par-maybe)
17929 (let ((head (and org-export-highlight-first-table-line
18017 (head org-export-highlight-first-table-line)
18074 (while (string-match org-maybe-keyword-time-regexp s)
18116 (while (string-match org-maybe-keyword-time-regexp s)
18207 (org-close-par-maybe)
18210 (defun org-close-par-maybe ()
18217 (org-close-par-maybe)
18227 (org-close-par-maybe)
18257 (org-close-par-maybe)
19031 (org-table-maybe-eval-formula)
19034 (org-table-maybe-recalculate-line))
19067 (org-table-justify-field-maybe)