Lines Matching +refs:gnus +refs:group +refs:list +refs:limit
62 ;; A list of recent changes can be found at
71 (require 'gnus-sum)
105 :group 'outlines
106 :group 'hypermedia
107 :group 'calendar)
112 :group 'org)
122 :group 'org-startup
132 :group 'org-startup
143 :group 'org-startup
153 :group 'org-startup
176 :group 'org-startup
201 :group 'org-startup
211 :group 'org)
219 :group 'org-keywords
228 :group 'org-keywords
233 :group 'org-keywords
238 :group 'org-keywords
246 :group 'org-keywords
255 :group 'org-keywords
260 After a match, group 1 contains the repeat expression.")
265 :group 'org)
270 :group 'org-structure)
289 :group 'org-reveal-location
317 :group 'org-reveal-location
348 :group 'org-reveal-location
369 :group 'org-structure)
380 :group 'org-cycle
391 :group 'org-cycle
406 :group 'org-cycle
413 :group 'org-structure)
427 :group 'org-edit-structure
428 :group 'org-font-lock
437 :group 'org-edit-structure
441 (plain-list-item . nil))
443 The value is an alist, with `heading' and `plain-list-item' as car,
445 :group 'org-edit-structure
446 :type '(list
448 (cons (const plain-list-item) (boolean))))
452 :group 'org-edit-structure
460 :group 'org-edit-structure
466 :group 'org-structure)
472 :group 'org-sparse-trees
481 :group 'org-sparse-trees
482 :group 'org-time
490 :group 'org-sparse-trees
496 :group 'org-structure)
500 This means that during cycling, plain list items will *temporarily* be
502 indentation of the bullet. In all other operations, plain list items are
505 :group 'org-plain-lists
508 (defcustom org-plain-list-ordered-item-terminator t
509 "The character that makes a line with leading number an ordered list item.
514 :group 'org-plain-lists
524 :group 'org-plain-lists
532 :group 'org-plain-lists
538 :group 'org-structure)
544 :group 'org-archive
545 :group 'org-keywords
551 :group 'org-archive
552 :group 'org-agenda-skip
560 :group 'org-archive
561 :group 'org-cycle
568 :group 'org-archive
569 :group 'org-sparse-trees
605 :group 'org-archive
610 :group 'org-archive
618 :group 'org-archive
624 :group 'org)
651 :group 'org-table
668 :group 'org-table
693 :group 'org-table
695 (list (symbol :tag "Major mode")
701 :group 'org-table)
705 :group 'org-table-settings
721 :group 'org-table-settings
742 :group 'org-table-settings
748 :group 'org-table)
754 :group 'org-table-editing
762 :group 'org-table-editing
771 :group 'org-table-editing
778 :group 'org-table-editing
784 :group 'org-table)
788 :group 'org-table-calculation
801 The list must contain alternating symbols (Calc modes variables and values).
803 relies on the variables to be present in the list."
804 :group 'org-table-calculation
815 :group 'org-table-calculation
826 :group 'org-table-calculation
838 :group 'org-table-calculation
846 :group 'org-table-calculation
852 :group 'org)
871 :group 'org-link
879 :group 'org-link
892 :group 'org-link
901 This is a list of symbols, each leading to the activation of a certain link
914 :group 'org-link
925 :group 'org-link)
941 This is for example useful to limit the length of the subject.
944 :group 'org-link-store
956 :group 'org-link-store
966 :group 'org-link-store
970 "Non-nil means, keep link in list for entire session.
973 location to an internal list. These links accumulate during a session.
977 will be removed from the list, to make completing the unused links
979 :group 'org-link-store
987 :group 'org-link-store
993 :group 'org-link)
998 :group 'org-link-follow
1004 :group 'org-link-follow
1011 :group 'org-link-follow
1017 :group 'org-link-follow
1022 (gnus . gnus-other-frame)
1032 `gnus'
1033 `gnus-other-frame'
1041 :group 'org-link-follow
1042 :type '(list
1048 (cons (const gnus)
1050 (const gnus)
1051 (const gnus-other-frame)))
1066 :group 'org-link-follow
1072 :group 'org-link-follow
1077 This is a list with the first element being a lisp function, and the
1081 :group 'org-link-follow
1099 :group 'org-link-follow
1116 :group 'org-link-follow
1143 (list
1146 (list (if (featurep 'xemacs)
1166 extension. The entries in this list are cons cells where the car identifies
1187 :group 'org-link-follow
1205 :group 'org-link-follow
1211 :group 'org)
1217 :group 'org-remember
1226 :group 'org-remember
1236 :group 'org-remember
1242 When not nil, this is a list of 4-element lists. In each entry, the first
1270 link type that is created. For example, calling `remember' in emails or gnus
1272 with %:author and %:subject, respectively. Here is a complete list of what
1282 gnus | %:group, for messages also all email fields
1286 :group 'org-remember
1295 (list :value (?a "\n" nil nil)
1304 :group 'org-remember
1314 :group 'org)
1319 :group 'org-time)
1323 \\<org-mode-map>By default, this is '(\"TODO\" \"DONE\"). The last entry in the list is
1331 :group 'org-todo
1332 :group 'org-keywords
1341 `org-todo-keywords' list. When `type', \\[org-todo] only cycles from state
1345 :group 'org-todo
1346 :group 'org-keywords
1354 :group 'org-todo
1362 This can also be a list of symbols indicating under which conditions
1364 Valid members of this list are
1375 timestamp, as a plain list item. See also the variable
1386 :group 'org-todo
1387 :group 'org-progress
1408 :group 'org-todo
1409 :group 'org-progress
1410 :type '(list :greedy t
1422 :group 'org-todo
1423 :group 'org-progress
1429 :group 'org-todo)
1434 :group 'org-priorities
1439 :group 'org-priorities
1445 :group 'org)
1450 entry, just after the headline. When scheduling from the global TODO list,
1452 :group 'org-time
1465 :group 'org-time
1473 :group 'org-time
1483 :group 'org-time
1497 :group 'org-time
1505 :group 'org-time
1512 :group 'org-time
1518 :group 'org)
1522 When this list is nil, Org-mode will base TAG input on what is already in the
1527 :group 'org-tags
1532 (const :tag "Start radio group" (:startgroup))
1533 (const :tag "End radio group" (:endgroup)))))
1544 :group 'org-tags
1556 :group 'org-tags
1567 :group 'org-tags
1575 :group 'org-tags
1582 companion option `org-tags-match-list-sublevels'."
1583 :group 'org-tags
1586 (defcustom org-tags-match-list-sublevels nil
1587 "Non-nil means list also sublevels of headlines matching tag search.
1597 make sure all corresponding TODO items find their way into the list."
1598 :group 'org-tags
1609 :group 'org)
1627 Entries may be added to this list with \\[org-agenda-file-to-front] and removed with
1628 \\[org-remove-file]. You can also use customize to edit the list.
1630 If the value of the variable is not a list but a single file name, then
1631 the list of agenda files is actually stored and maintained in that file, one
1633 :group 'org-agenda
1636 (file :tag "Store list in a file\n" :value "~/.agenda_files")))
1643 :group 'org-agenda
1654 :group 'org-agenda
1660 :group 'org-agenda)
1665 agenda dispatcher \\[org-agenda]. Each entry is a list like this:
1681 options A list of option setttings, similar to that in a let form, so like
1693 are no allowed, but instead you can get agenda and global todo list.
1702 Each command can carry a list of options, and another set of options can be
1705 :group 'org-agenda-custom-commands
1708 (list :tag "Single command"
1720 (list (variable :tag "Option") (sexp :tag "Value"))))
1721 (list :tag "Command series, all agenda files"
1727 (const :tag "TODO list" (alltodo))
1729 (list :tag "Tags search"
1733 (list (variable :tag "Option")
1736 (list :tag "Tags search, TODO entries only"
1740 (list (variable :tag "Option")
1743 (list :tag "TODO keyword search"
1747 (list (variable :tag "Option")
1750 (list :tag "Other, user-defined function"
1754 (list (variable :tag "Option")
1758 (list (variable :tag "Option")
1764 This is a list of three items:
1767 2. A list of TODO keywords itentifying non-stuck projects.
1770 3. A list of tags identifying non-stuck projects.
1774 After defining this variable, you may use \\[org-agenda-list-stuck-projects]
1775 or `C-c a #' to produce the list."
1776 :group 'org-agenda-custom-commands
1777 :type '(list
1786 :group 'org-agenda)
1788 (defcustom org-agenda-todo-list-sublevels t
1792 :group 'org-agenda-skip
1793 :group 'org-todo
1797 "Non-nil means, don't show scheduled entries in the global todo list.
1800 :group 'org-agenda-skip
1801 :group 'org-todo
1805 "Non-nil means, don't show near deadline entries in the global todo list.
1808 :group 'org-agenda-skip
1809 :group 'org-todo
1814 This is relevant for the daily/weekly agenda, not for the TODO list."
1815 :group 'org-agenda-skip
1824 :group 'org-agenda-skip
1834 :group 'org-agenda)
1838 :group 'org-agenda-startup
1845 :group 'org-agenda-startup
1850 :group 'org-agenda-startup
1856 :group 'org-agenda)
1868 :group 'org-agenda-windows
1882 :group 'org-agenda-windows
1894 :group 'org-structure
1895 :group 'org-agenda-windows
1905 :group 'org-agenda)
1910 :group 'org-agenda-daily/weekly
1917 :group 'org-agenda-daily/weekly
1924 :group 'org-agenda-daily/weekly
1932 :group 'org-agenda-daily/weekly
1937 :group 'org-agenda-daily/weekly
1944 :group 'org-agenda-daily/weekly
1950 :group 'org-agenda)
1959 :group 'org-agenda-time-grid
1968 This is a list of three items. The first item is again a list. It contains
1978 The third item is a list of integers, indicating the times that should have
1980 :group 'org-agenda-time-grid
1982 '(list
1997 :group 'org-agenda)
2011 This is a list of symbols which will be used in sequence to determine
2038 :group 'org-agenda-sorting
2041 (list :tag "Individually"
2056 :group 'org-agenda-sorting
2062 :group 'org-agenda)
2078 first in the list.
2119 (list :greedy t :tag "View dependent"
2124 :group 'org-agenda-prefix)
2141 :group 'org-agenda-prefix
2151 :group 'org-agenda-prefix
2159 :group 'org-agenda-prefix
2165 :group 'org)
2171 This is a property list with the following properties:
2175 :matchers a list indicating which matchers should be used to
2176 find LaTeX fragments. Valid members of this list are:
2182 :group 'org-latex
2188 :group 'org)
2193 :group 'org-export)
2203 :group 'org-export-general
2226 :group 'org-export-general
2228 (list
2237 :group 'org-export-general
2247 :group 'org-export-general
2254 :group 'org-export-general
2273 :group 'org-export-general
2281 :group 'org-export-general
2290 :group 'org-export-general
2299 :group 'org-export-general
2300 :group 'org-archive
2308 :group 'org-export-general
2313 :group 'org-export-general
2320 :group 'org-export-general
2329 :group 'org-export)
2339 :group 'org-export-translation
2361 :group 'org-export-translation
2368 for math can be used as macro names as well. For a list of supported
2373 :group 'org-export-translation
2374 :group 'org-latex
2385 :group 'org-export-translation
2386 :group 'org-latex
2400 :group 'org-export-translation
2406 :group 'org-export-translation
2412 :group 'org-export)
2425 :group 'org-export-tables
2434 :group 'org-export-tables
2443 :group 'org-export-tables
2454 :group 'org-export-tables
2460 :group 'org-export)
2465 :group 'org-export-ascii
2472 the list will be repeated.
2475 :group 'org-export-ascii
2481 :group 'org-export)
2486 :group 'org-export)
2534 :group 'org-export-html
2539 :group 'org-export-html
2544 :group 'org-export-html
2556 :group 'org-export-html
2565 :group 'org-export-html
2577 :group 'org-export-html
2585 :group 'org-export-html
2592 :group 'org-export-html
2598 :group 'org-export-html
2604 :group 'org-export)
2610 :group 'org-export-icalendar
2615 :group 'org-export-icalendar
2623 :group 'org-export-icalendar
2629 :group 'org)
2636 :group 'org-font-lock
2652 :group 'org-font-lock
2660 :group 'org-font-lock
2666 :group 'org-font-lock
2714 This is a list with 6 entries. Terminology: In an emphasis string
2732 :group 'org-font-lock
2734 :type '(list
2755 :group 'org-font-lock
2758 (list
2762 (plist :tag "Face property list"))
2771 :group 'org-font-lock)
2777 to the top of the list. The `min-colors' attribute will be removed from
2785 (nconc r (list (cons (cons '(type tty) (delq (car a) (car e)))
2800 :group 'org-faces)
2811 :group 'org-faces)
2821 :group 'org-faces)
2833 :group 'org-faces)
2845 :group 'org-faces)
2853 :group 'org-faces)
2861 :group 'org-faces)
2869 :group 'org-faces)
2877 :group 'org-faces)
2885 :group 'org-faces)
2895 :group 'org-faces)
2904 :group 'org-faces)
2917 :group 'org-faces)
2924 :group 'org-faces)
2931 :group 'org-faces)
2936 :group 'org-faces)
2946 :group 'org-faces)
2955 :group 'org-faces)
2966 :group 'org-faces)
2976 :group 'org-faces)
2985 :group 'org-faces)
2995 :group 'org-faces)
3005 :group 'org-faces)
3013 :group 'org-faces)
3034 "Matches a headline and puts TODO state into group 2 if present.")
3037 "Matches a headline and puts TODO state into group 2 if present.
3038 Also put tags into group 4 if tags are present.")
3113 (defsubst org-last (list)
3115 (car (last list)))
3117 (defun org-let (list &rest body)
3118 (eval (cons 'let (cons list body))))
3122 (eval (cons 'let (cons list1 (list (cons 'let (cons list2 body)))))))
3144 Each element is a list of three items: The startup options as written
3147 means to push this value onto the list in the variable.")
3194 (add-to-list var val)))))
3216 (t (push (list e) tgs))))
3309 (defvar gnus-other-frame-object)
3310 (defvar gnus-group-name)
3311 (defvar gnus-article-current)
3342 (defvar org-agenda-undo-list)
3343 (defvar org-agenda-pending-undo-list)
3399 (extent-list nil start end)
3445 (setq buffer-invisibility-spec (list arg)))
3596 (append (list 0 (* r (floor (+ .5 (/ (float (nth 1 time)) r)))))
3602 PLIST may be a list of properties, PROPS are individual properties and values
3630 "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
3713 (defun org-do-emphasis-faces (limit)
3715 (if (re-search-forward org-emph-re limit t)
3726 (defun org-activate-plain-links (limit)
3728 (if (re-search-forward org-plain-link-re limit t)
3731 (list 'mouse-face 'highlight
3737 (defun org-activate-angle-links (limit)
3739 (if (re-search-forward org-angle-link-re limit t)
3742 (list 'mouse-face 'highlight
3760 (defun org-activate-bracket-links (limit)
3762 (if (re-search-forward org-bracket-link-regexp limit t)
3769 (list 'invisible 'org-link 'rear-nonsticky t
3772 (vp (list 'rear-nonsticky t
3789 (defun org-activate-dates (limit)
3791 (if (re-search-forward org-tsr-regexp-both limit t)
3794 (list 'mouse-face 'highlight
3810 (defun org-activate-target-links (limit)
3814 (if (re-search-forward org-target-link-regexp limit t)
3817 (list 'mouse-face 'highlight
3832 (defun org-hide-wide-columns (limit)
3834 (setq s (text-property-any (point) (or limit (point-max))
3849 "Return a list of all targets in this file.
3856 (add-to-list 'rtn (downcase (org-match-string-no-properties 1))))
3875 (defun org-activate-tags (limit)
3876 (if (re-search-forward "[ \t]\\(:[A-Za-z_@0-9:]+:\\)[ \r\n]" limit t)
3879 (list 'mouse-face 'highlight
3903 (list
3917 (list (concat "^\\*+[ \t]*" org-not-done-regexp)
3920 (list (concat "\\[#[A-Z]\\]") '(0 'org-special-keyword t))
3922 (list org-repeat-re '(0 'org-special-keyword t))
3923 (list (concat "\\<" org-deadline-string) '(0 'org-special-keyword t))
3924 (list (concat "\\<" org-scheduled-string) '(0 'org-special-keyword t))
3925 (list (concat "\\<" org-closed-string) '(0 'org-special-keyword t))
3926 (list (concat "\\<" org-clock-string) '(0 'org-special-keyword t))
3939 (list (concat "^\\*+[ \t]*\\<\\(" org-comment-string
3945 (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\(.*\\)\\>")
3947 (list (concat "^[*]+ +\\<\\(" org-done-string "\\)\\>")
3981 (let* ((buffer-undo-list t)
4450 (modify-frame-parameters (selected-frame) (list (cons 'name title)))))
4458 If point is in a plain list and FORCE-HEADING is nil, create a new list item.
4714 (error "Cannot move past superior level or buffer limit")))
4955 ;; Make a list that can be sorted.
4965 ;; Sort the list
5023 ;;;; Plain list items, including checkboxes
5025 ;;; Plain list items
5029 (let ((llt org-plain-list-ordered-item-terminator))
5037 (t (error "Invalid value of `org-plain-list-ordered-item-terminator'")))))))
5041 "It the cursor inside a plain list item.
5065 (blank (cdr (assq 'plain-list-item org-blank-before-new-entry)))
5080 (org-maybe-renumber-ordered-list)
5087 "Is point at a line starting a plain-list item with a checklet?"
5222 (limit (save-excursion (org-back-to-heading)
5233 (if (< (point) limit) (throw 'exit nil))
5248 (limit (save-excursion (outline-next-heading) (point)))
5257 (if (>= (point) limit) (throw 'exit t))
5267 "Move to the beginning of the next item in the current plain list.
5268 Error if not at a plain list, or if this is the last item in the list."
5280 "Move to the beginning of the previous item in the current plain list.
5281 Error if not at a plain list, or if this is the last item in the list."
5301 "Move the plain list item at point down, i.e. swap with following item.
5321 (org-maybe-renumber-ordered-list))
5326 "Move the plain list item at point up, i.e. swap with previous item.
5357 (org-maybe-renumber-ordered-list))
5361 (defun org-maybe-renumber-ordered-list ()
5362 "Renumber the ordered list at point if setup allows it.
5368 (org-renumber-ordered-list 1)))
5381 (defun org-renumber-ordered-list (arg)
5382 "Renumber an ordered plain list.
5388 (error "This is not an ordered list"))
5395 ;; find where this list begins
5418 (error "unordered bullet in ordered list. Press \\[undo] to recover"))
5429 "Outdent a local list item."
5434 "Indent a local list item."
5808 (line (concat (apply 'concat indent "|" (make-list columns " |"))
5814 ;; (mapcar (lambda (x) (insert line)) (make-list rows t))
5996 ;; A list of empty strings to fill any short rows on output
5997 (setq emptystrings (make-list maxfields ""))
6021 (add-text-properties f1 (length xx) (list 'org-cwidth t) xx)
6023 (list 'display org-narrow-column-arrow)
6342 (name (car (rassoc (list (org-current-line) col)
6534 (org-table-fix-formulas "$" (list (cons (number-to-string col) "INVALID"))
6577 "$" (list (cons (number-to-string col) (number-to-string colpos))
6616 "@" (list (cons (number-to-string dline1) (number-to-string dline2))
6681 (org-table-fix-formulas "@" (list (cons (number-to-string dline) "INVALID"))
6914 (mapcar 'list (org-wrap (mapconcat 'car org-table-clip " ")
7011 The return value is a list of lines, without newlines at the end."
7031 "Create lines of maximum width WIDTH (in characters) from word list WORDS."
7047 (list nil))
7058 (setq list
7060 list)))
7063 (setq list
7065 list)))
7066 (nreverse list)))
7165 (let* ((name (car (rassoc (list (org-current-line)
7171 (stored-list (org-table-get-stored-formulas))
7172 (ass (or (assoc name stored-list)
7173 (assoc ref stored-list)
7174 (assoc scol stored-list))))
7181 (let* ((stored-list (org-table-get-stored-formulas))
7182 (name (car (rassoc (list (org-current-line)
7187 (refass (assoc ref stored-list))
7196 (stored (cdr (assoc scol stored-list)))
7210 (setq stored-list (delq (assoc scol stored-list) stored-list))
7211 (org-table-store-formulas stored-list)
7217 (setq stored-list (delq (assoc name stored-list) stored-list)
7220 (setcdr (assoc scol stored-list) eq)
7221 (setq stored-list (cons (cons scol eq) stored-list)))
7223 (org-table-store-formulas stored-list))
7227 "Store the list of formulas below the current table."
7265 (defun org-table-fix-formulas (key replace &optional limit delta remove)
7287 ((and limit (> n limit))
7333 (push (list field line col) org-table-named-field-locations))))
7493 history list, and the last used formula is offered as a default.
7545 (list (cdr (assoc c '((?n . float) (?f . fix)
7768 "Convert list ELEMENTS to something appropriate to insert into formula.
7771 LISPP means to return something appropriate for a Lisp list."
7816 ;; Split the equation list
7862 (list
7958 (org-set-local 'font-lock-global-modes (list 'not major-mode))
8380 (list (list (concat "^" orgtbl-line-start-regexp ".*")
8451 (list 'defun
8459 (list 'if
8461 (list 'call-interactively (list 'quote fun))
8462 (list 'let '(orgtbl-mode)
8463 (list 'call-interactively
8466 (list 'key-binding k))
8479 (list
8495 (list (org-key 'S-return) 'org-table-copy-down)
8746 (defun org-remove-by-index (list indices &optional i0)
8750 list
8751 (if (integerp indices) (setq indices (list indices)))
8756 list))))
8797 If the value is a protperty list, get the element for the current column.
8806 TABLE is a list, each entry either the symbol `hline' for a horizontal
8807 separator line, or a list of fields for that line.
8808 PARAMS is a property list of parameters that can influence the conversion.
8832 This may also be a property list with column numbers and
8843 may also be a property list with column numbers and
8868 ;; A normal line. Convert the fields, push line onto the result list
8897 TABLE is a list, each entry either the symbol `hline' for a horizontal
8898 separator line, or a list of fields for that line.
8899 PARAMS is a property list of parameters that can influence the conversion.
8908 use :fmt \"$%s$\". This may also be a property list with column
8914 This may also be a property list with column numbers and formats.
8921 (list
8930 TABLE is a list, each entry either the symbol `hline' for a horizontal
8931 separator line, or a list of fields for that line.
8932 PARAMS is a property list of parameters that can influence the conversion.
8959 TABLE is a list, each entry either the symbol `hline' for a horizontal
8960 separator line, or a list of fields for that line.
8961 PARAMS is a property list of parameters that can influence the conversion.
8971 This may also be a property list with column numbers and
8986 (list
9060 (list 0 0 0 (nth 1 cd) (nth 0 cd) (nth 2 cd)
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))
9141 (unless group (error "Not on a group"))
9142 (org-store-link-props :type "gnus" :group group)
9145 "http://groups.google.com/groups?group="
9146 "gnus:")
9147 group)
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
9160 :message-id message-id :group group)
9168 (setq link (org-make-link "gnus:" group
9252 (cons (list cpltxt link desc) org-stored-links))
9285 (list
9343 "Association list of escapes for some characters problematic in links.")
9441 (setq remove (list (match-beginning 0) (match-end 0)))
9449 (setq remove (list (match-beginning 0) (match-end 0))
9699 (org-follow-gnus-link path))
9707 ((string= type "gnus")
9708 (let (group article)
9711 (setq group (match-string 1 path)
9713 (org-follow-gnus-link group article)))
9828 sparse tree. In ordinary files, `occur' will be used to list matches.
9905 (defun org-search-not-self (group &rest args)
9911 (goto-char (match-end group))
10019 (org-agenda-list nil t1 (1+ (- t2 t1)))))
10021 (org-agenda-list nil (time-to-days (org-time-string-to-time
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))))
10240 (mh-search folder (list "--message-id" article))
10244 (mh-search "+" (list "--message-id" article))))
10454 (append (list :annotation v-a :initial v-i)))
10477 ;; From the property list
10716 the property list including an extra property :name with the block name."
10721 (params (append (list :name name)
10841 (mapcar 'list org-todo-keywords))
10847 (push (list
10879 (message "Making completion list...")
10880 (let ((list (sort (all-completions pattern table confirm)
10885 (display-completion-list list pattern)
10886 (error (display-completion-list list)))))
10887 (message "Making completion list...%s" "done"))))))
10945 (completing-read "State: " (mapcar (lambda(x) (list x))
11109 (let (col list elt ts buffer-invisibility-spec)
11125 (setq list (cons what remove))
11126 (while list
11127 (setq elt (pop list))
11214 (list (cons "%u" (user-login-name))
11426 (props (list 'face nil
11437 tags tags-list tags-alist (llast 0) rtn level category i txt
11461 (setq tags-list
11468 (not (member org-archive-tag tags-list))))
11470 ;; list this headline
11477 (if org-tags-match-list-sublevels
11480 category tags-list))
11487 (or org-tags-match-list-sublevels (org-end-of-subtree t))))))
11549 (re-p `(org-match-any-p ,(substring tag 1 -1) tags-list))
11552 (t `(member ,(downcase tag) tags-list)))
11553 mm (if minus (list 'not mm) mm)
11576 (list 'equal 'todo kwd))
11577 mm (if minus (list 'not mm) mm))
11589 (list 'and tagsmatcher todomatcher)
11593 (defun org-match-any-p (re list)
11594 "Does re match any element of list?"
11595 (setq list (mapcar (lambda (x) (string-match re x)) list))
11596 (delq nil list))
11638 ;; No boolean logic, just a list
11716 CURRENT is the current list of tags in the headline, INHERITED is the
11717 list of inherited tags, and TABLE is an alist of tags and corresponding keys,
11846 (add-to-list 'buffer-tags (list tg))
11862 ;; Create a sorted list
11876 (list 'face
11903 (mapc (lambda (x) (add-to-list 'tags x))
11905 (mapcar 'list tags)))
12191 (list 'org-dwidth t 'org-dwidth-n (- w1 w2))))
12358 (list 0
12367 (make-list 9 0)))
12458 (list (or (car time0) 0))
12459 (list (+ (if (eq org-ts-what 'minute) n 0) (nth 1 time0)))
12460 (list (+ (if (eq org-ts-what 'hour) n 0) (nth 2 time0)))
12461 (list (+ (if (eq org-ts-what 'day) n 0) (nth 3 time0)))
12462 (list (+ (if (eq org-ts-what 'month) n 0) (nth 4 time0)))
12463 (list (+ (if (eq org-ts-what 'year) n 0) (nth 5 time0)))
12747 (org-create-dblock (list :name "clocktable"
12888 "Return an internal list with clocking information.
12889 This list has one entry for each CLOCK interval.
12919 (push (list beg end clockpos closedp donep
12948 (setq org-agenda-undo-list nil
12949 org-agenda-pending-undo-list nil)
12952 (org-set-local 'font-lock-global-modes (list 'not major-mode))
12971 (list
12976 '(org-edit-agenda-file-list)
12983 (list 'org-agenda-mode-hook)))
13126 ["Undo Remote Editing" org-agenda-undo org-agenda-undo-list]
13136 (defvar org-agenda-undo-list nil
13140 (defvar org-agenda-pending-undo-list nil
13141 "In a series of undo commands, this is the list of remaning undo items.")
13156 (_undo1 buffer-undo-list)
13157 (_undo2 (with-current-buffer ,_buffer buffer-undo-list))
13162 _undo1 (with-current-buffer _buf1 buffer-undo-list))
13164 _undo2 (with-current-buffer _buf2 buffer-undo-list)))
13170 (push (list _cmd _cline _buf1 _c1 _buf2 _c2)
13171 org-agenda-undo-list)))))
13182 org-agenda-pending-undo-list org-agenda-undo-list))
13183 (if (not org-agenda-pending-undo-list)
13185 (let* ((entry (pop org-agenda-pending-undo-list))
13197 (make-local-variable 'pending-undo-list)
13199 (while (and pending-undo-list
13200 (listp pending-undo-list)
13201 (not (car pending-undo-list)))
13202 (pop pending-undo-list))
13226 a Call `org-agenda-list' to display the agenda for current day or week.
13227 t Call `org-todo-list' to display the global todo list.
13228 T Call `org-todo-list' to display the global todo list, select only
13304 (put 'org-agenda-files 'org-restrict (list bfn))
13328 ;; For example the todo list should not need it (but does...)
13341 (org-let lprops '(org-todo-list match)))
13358 ((equal c ?a) (call-interactively 'org-agenda-list))
13359 ((equal c ?t) (call-interactively 'org-todo-list))
13360 ((equal c ?T) (org-call-with-arg 'org-todo-list (or arg '(4))))
13367 ((equal c ?#) (call-interactively 'org-agenda-list-stuck-projects))
13374 (redo (list 'org-run-agenda-series (list 'quote series)))
13383 (call-interactively 'org-agenda-list))
13385 (call-interactively 'org-todo-list))
13387 (call-interactively 'org-agenda-list-stuck-projects))
13396 '(org-todo-list match)))
13414 (push (list (pop parameters) (if parameters (pop parameters))) pars))
13416 (eval (list 'let (nreverse pars) '(org-agenda nil))))
13437 ;;; Agenda file list
13440 "Get the list of agenda files.
13441 Optional UNRESTRICTED means return the full list even if a restriction
13445 ((stringp org-agenda-files) (org-read-agenda-file-list))
13449 (defun org-edit-agenda-file-list ()
13450 "Edit the list of agenda files.
13452 `org-agenda-files', or it visits the file that is holding the list. In the
13466 (message "New agenda file list installed"))
13469 "Edit list and finish with \\[save-buffer]")))
13472 (defun org-store-new-agenda-file-list (list)
13473 "Set new value for the agenda file list and save it correcly."
13478 (insert (mapconcat 'identity list "\n") "\n")))
13480 (setq org-agenda-files list)
13483 (defun org-read-agenda-file-list ()
13484 "Read the list of agenda files from a file."
13494 If the current buffer visits an agenda file, find the next one in the list.
13498 (files (append fs (list (car fs))))
13512 "Move/add the current file to the end of the agenda file list.
13513 If the file is not present in the list, it is appended to the list. If it is
13519 "Move/add the current file to the top of the agenda file list.
13520 If the file is not present in the list, it is added to the front. If it is
13522 end of the list."
13533 (setq file-alist (append (delq x file-alist) (list x)))
13535 (org-store-new-agenda-file-list (mapcar 'cdr file-alist))
13537 (message "File %s to %s of agenda file list"
13541 "Remove current file from the list of files in variable `org-agenda-files'.
13556 (org-store-new-agenda-file-list files)
13559 (message "File was not in list: %s" afile))))
13562 (vector file (list 'find-file file) t))
13567 (message "non-existent file %s. [R]emove from list or [A]bort?"
13688 Org-mode keeps a list of these markers and resets them when they are
13709 it to the list of buffers which might be released later."
13719 "Release all buffers in list, asking the user for confirmation when needed.
13787 (list 'progn
13788 (list 'switch-to-buffer-other-window (current-buffer))
13789 (list 'org-timeline (list 'quote include-all))))
13791 ;; Remove past dates from the list of dates.
13841 "Return a list of all relevant day numbers from BEG to END buffer positions.
13844 sure that TODAY is included in the list. If INACTIVE is non-nil, also
13850 (setq dates (list (time-to-days (current-time)))))
13875 (push (list day) dates1))
13890 (defun org-agenda-list (&optional include-all start-day ndays)
13907 (setq org-agenda-last-arguments (list include-all start-day ndays))
13927 (day-numbers (list start))
13931 (list 'org-agenda-list (list 'quote include-all) start-day ndays))
13932 ;; Make the list of days
13956 (list 'face 'org-level-3))
13960 (add-text-properties s (1- (point)) (list 'face 'org-level-3))
14022 ;;; Agenda TODO list
14028 (defun org-todo-list (arg)
14029 "Show all TODO entries from all agenda file in a single list.
14030 The prefix arg can be used to select a specific TODO keyword and limit
14031 the list to these. When using \\[universal-argument], you will be prompted
14049 (completing-read "Keyword: " (mapcar 'list org-todo-keywords)
14056 '(org-todo-list (or current-prefix-arg org-last-arg)))
14067 (insert "Global list of TODO items of type: ")
14069 (list 'face 'org-level-3))
14072 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14082 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14100 (let* ((org-tags-match-list-sublevels
14101 (if todo-only t org-tags-match-list-sublevels))
14109 (list 'org-tags-view (list 'quote todo-only)
14110 (list 'if 'current-prefix-arg nil match)))
14121 (setq rtn (list
14141 (list 'face 'org-level-3))
14144 (add-text-properties pos (1- (point)) (list 'face 'org-warning))
14148 (add-text-properties pos (1- (point)) (list 'face 'org-level-3)))
14179 (defun org-agenda-list-stuck-projects (&rest ignore)
14208 '(org-agenda-list-stuck-projects
14219 (list-diary-entries-hook
14220 (cons 'org-diary-default-entry list-diary-entries-hook))
14222 (diary-modify-entry-list-string-function 'org-modify-diary-entry-string)
14227 (list-diary-entries date 1))) ;; Keep this name for now, compatibility
14276 '(if (boundp 'diary-modify-entry-list-string-function)
14280 (defadvice add-to-diary-list (before org-mark-diary-entry activate)
14303 (add-to-diary-list original-date "Org-mode dummy" "")
14305 (add-to-diary-list original-date "Org-mode dummy" "" nil)))))
14329 long list - so this is not turned on by default.
14356 (list entry)
14360 ;; the calendar. Org Agenda will list these entries itself.
14385 (list (format "ORG-AGENDA-ERROR: No such org-file %s" file))
14447 (let* ((props (list 'face nil
14475 (or org-agenda-todo-list-sublevels (org-end-of-subtree 'invisible))
14495 (if org-agenda-todo-list-sublevels
14505 (let* ((props (list 'face nil
14517 (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
14575 (let* ((props (list 'mouse-face 'highlight
14588 (list 0 0 0 (nth 1 date) (car date) (nth 2 date))))
14628 (props (list 'mouse-face 'highlight
14682 (let* ((props (list 'face 'org-scheduled-previously
14734 (let* ((props (list 'face nil
14853 ;; If the times are in TXT (not in DOTIMES), and the prefix will list
14899 (defun org-agenda-add-time-grid-maybe (list ndays todayp)
14901 (cond ((not org-agenda-use-time-grid) (throw 'exit list))
14905 (t (throw 'exit list)))
14908 list)))
14916 (throw 'exit list))
14927 (append new list)
14928 (append list new)))))
15003 (defun org-finalize-agenda-entries (list &optional nosort)
15005 (setq list (mapcar 'org-agenda-highlight-todo list))
15007 list
15008 (mapconcat 'identity (sort list 'org-entries-lessp) "\n")))
15121 When this is the global TODO list, a prefix argument will be interpreted."
15128 (setq org-agenda-undo-list nil
15129 org-agenda-pending-undo-list nil)
15160 (list (car org-agenda-last-arguments)
15172 (list (car org-agenda-last-arguments)
15186 (list (car org-agenda-last-arguments)
15203 (list (car org-agenda-last-arguments)
15574 (list 'face
15637 "Get a list of all headline tags applicable at POS.
15638 POS defaults to point. If tags are inherited, the list contains
15751 ex (list 'invisible t 'end-glyph gl 'duplicable t))
15755 (list 'display (org-add-props stamp nil
15881 (list (calendar-gregorian-from-absolute
15926 (org-agenda-execute-calendar-command 'list-calendar-holidays))
15957 (org-agenda-list nil (calendar-absolute-from-gregorian
16184 (re-list org-latex-regexps)
16194 (while (setq e (pop re-list))
16225 (list 'image :type 'png :file movefile :ascent 'center)))
16326 "Return the property list with default settings for the export variables."
16333 "Return the property list with file-local settings for export."
16380 (defun org-export-find-first-heading-line (list)
16382 (let ((orig-list list)
16384 (while (and list
16385 (not (string-match re (car list))))
16386 (pop list))
16387 (or list orig-list)))
16419 \[v] limit export to visible part of outline tree
16754 The list contains HTML entities for Latin-1, Greek and other symbols.
17189 (list (progn
17381 EXT-PLIST is a property list with external parameters overriding
17435 (in-local-list nil)
17436 (local-list-num nil)
17437 (local-list-indent nil)
17438 (llt org-plain-list-ordered-item-terminator)
17732 ((member type '("bbdb" "vm" "wl" "mhe" "rmail" "gnus" "shell" "info" "elisp"))
17756 (when in-local-list
17758 (while local-list-num
17760 (insert (if (car local-list-num) "</ol>\n" "</ul>"))
17761 (pop local-list-num))
17762 (setq local-list-indent nil
17763 in-local-list nil))
17795 (t (error "Invalid value of `org-plain-list-ordered-item-terminator'")))
17804 (setq ind (1+ (or (car local-list-indent) 1))))
17805 (while (and in-local-list
17806 (or (and (= ind (car local-list-indent))
17808 (< ind (car local-list-indent))))
17810 (insert (if (car local-list-num) "</ol>\n" "</ul>"))
17811 (pop local-list-num) (pop local-list-indent)
17812 (setq in-local-list local-list-indent))
17815 (or (not in-local-list)
17816 (> ind (car local-list-indent))))
17817 ;; Start new (level of ) list
17820 (push start-is-num local-list-num)
17821 (push ind local-list-indent)
17822 (setq in-local-list t))
17824 ;; continue current list
17851 (when in-local-list
17853 (while local-list-num
17855 (insert (if (car local-list-num) "</ol>\n" "</ul>\n"))
17856 (pop local-list-num))
17857 (setq local-list-indent nil
17858 in-local-list nil))
18159 delimiters. It will also define a single group which contains the
18304 :ical (list :publishing-directory
18470 (interactive (list (current-buffer)))
18788 COMMANDS is a list of alternating OLDDEF NEWDEF command names."
19008 - If the cursor is on a numbered item in a plain list, renumber the
19009 ordered list."
19039 (call-interactively 'org-renumber-ordered-list))
19207 ["Global TODO list" org-todo-list t]
19304 (add-to-list 'org-log-done type)))
19317 (let ((bl (buffer-list)))
19326 (list
19327 ["Edit File List" (org-edit-agenda-file-list) t]
19348 `(["Browse Org group" org-customize t]
19365 "Return a list of contexts of the current cursor position.
19367 Each context entry is a list with a symbol naming the context, and
19376 :item on the first line of a plain list item
19377 :item-bullet on the bullet/number of a plain list item
19378 :checkbox on the checkbox in a plain list item
19393 (faces (if (listp f) f (list f)))
19398 (push (list :headline (point-at-bol) (point-at-eol)) clist)
19402 (push (org-point-in-group p 1 :headline-stars) clist)
19403 (push (org-point-in-group p 2 :todo-keyword) clist)
19404 (push (org-point-in-group p 4 :tags) clist))
19408 (push (org-point-in-group p 0 :priority) clist)))
19411 (push (org-point-in-group p 2 :item-bullet) clist)
19412 (push (list :item (point-at-bol)
19416 (push (org-point-in-group p 0 :checkbox) clist)))
19419 (push (list :table (org-table-begin) (org-table-end)) clist)
19421 (push (list :table-special
19425 (push (list :table-table) clist)))
19431 (push (org-point-in-group p 0 :timestamp) clist))
19433 (push (list :link
19437 (push (list :keyword
19441 (push (org-point-in-group p 0 :target) clist)
19444 (push (org-point-in-group p 0 :radio-target) clist))
19451 (push (list :latex-fragment
19453 (push (list :latex-preview
19457 (push (list :latex-fragment (point) (point)) clist)))
19479 (defun org-point-in-group (point group &optional context)
19480 "Check if POINT is in match-group GROUP.
19481 If CONTEXT is non-nil, return a list with CONTEXT and the boundaries of the
19482 match. If the match group does ot exist or point is not inside it,
19484 (and (match-beginning group)
19485 (>= point (match-beginning group))
19486 (<= point (match-end group))
19488 (list context (match-beginning group) (match-end group))
19492 "Create a single property list from all plists in PLISTS.
19493 The process starts by copying the first list, and then setting properties
19494 from the other lists. Settings in the last list are the most significant
19533 TABLE is an association list with keys line \"%a\" and string values.
19548 (defun org-sublist (list start end)
19552 (setq list (nthcdr (1- start) list))
19553 (while (and list (<= c end))
19554 (push (pop list) rtn)
19849 '(add-to-list 'session-globals-exclude 'org-mark-ring))