Lines Matching +defs:face +defs:or +defs:list
12 ;; GNU Emacs is free software; you can redistribute it and/or modify
14 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
107 "Showing slices of the group list."
341 (list 'display
354 (list str))
376 "Level 1 newsgroup face."
379 (put 'gnus-group-news-1-face 'face-alias 'gnus-group-news-1)
390 "Level 1 empty newsgroup face."
393 (put 'gnus-group-news-1-empty-face 'face-alias 'gnus-group-news-1-empty)
404 "Level 2 newsgroup face."
407 (put 'gnus-group-news-2-face 'face-alias 'gnus-group-news-2)
418 "Level 2 empty newsgroup face."
421 (put 'gnus-group-news-2-empty-face 'face-alias 'gnus-group-news-2-empty)
432 "Level 3 newsgroup face."
435 (put 'gnus-group-news-3-face 'face-alias 'gnus-group-news-3)
446 "Level 3 empty newsgroup face."
449 (put 'gnus-group-news-3-empty-face 'face-alias 'gnus-group-news-3-empty)
460 "Level 4 newsgroup face."
463 (put 'gnus-group-news-4-face 'face-alias 'gnus-group-news-4)
474 "Level 4 empty newsgroup face."
477 (put 'gnus-group-news-4-empty-face 'face-alias 'gnus-group-news-4-empty)
488 "Level 5 newsgroup face."
491 (put 'gnus-group-news-5-face 'face-alias 'gnus-group-news-5)
502 "Level 5 empty newsgroup face."
505 (put 'gnus-group-news-5-empty-face 'face-alias 'gnus-group-news-5-empty)
516 "Level 6 newsgroup face."
519 (put 'gnus-group-news-6-face 'face-alias 'gnus-group-news-6)
530 "Level 6 empty newsgroup face."
533 (put 'gnus-group-news-6-empty-face 'face-alias 'gnus-group-news-6-empty)
544 "Low level newsgroup face."
547 (put 'gnus-group-news-low-face 'face-alias 'gnus-group-news-low)
558 "Low level empty newsgroup face."
561 (put 'gnus-group-news-low-empty-face 'face-alias 'gnus-group-news-low-empty)
572 "Level 1 mailgroup face."
575 (put 'gnus-group-mail-1-face 'face-alias 'gnus-group-mail-1)
586 "Level 1 empty mailgroup face."
589 (put 'gnus-group-mail-1-empty-face 'face-alias 'gnus-group-mail-1-empty)
600 "Level 2 mailgroup face."
603 (put 'gnus-group-mail-2-face 'face-alias 'gnus-group-mail-2)
614 "Level 2 empty mailgroup face."
617 (put 'gnus-group-mail-2-empty-face 'face-alias 'gnus-group-mail-2-empty)
628 "Level 3 mailgroup face."
631 (put 'gnus-group-mail-3-face 'face-alias 'gnus-group-mail-3)
642 "Level 3 empty mailgroup face."
645 (put 'gnus-group-mail-3-empty-face 'face-alias 'gnus-group-mail-3-empty)
656 "Low level mailgroup face."
659 (put 'gnus-group-mail-low-face 'face-alias 'gnus-group-mail-low)
670 "Low level empty mailgroup face."
673 (put 'gnus-group-mail-low-empty-face 'face-alias 'gnus-group-mail-low-empty)
681 (put 'gnus-summary-selected-face 'face-alias 'gnus-summary-selected)
689 (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)
703 (put 'gnus-summary-high-ticked-face 'face-alias 'gnus-summary-high-ticked)
717 (put 'gnus-summary-low-ticked-face 'face-alias 'gnus-summary-low-ticked)
731 (put 'gnus-summary-normal-ticked-face 'face-alias 'gnus-summary-normal-ticked)
745 (put 'gnus-summary-high-ancient-face 'face-alias 'gnus-summary-high-ancient)
759 (put 'gnus-summary-low-ancient-face 'face-alias 'gnus-summary-low-ancient)
773 (put 'gnus-summary-normal-ancient-face 'face-alias 'gnus-summary-normal-ancient)
785 (put 'gnus-summary-high-undownloaded-face 'face-alias 'gnus-summary-high-undownloaded)
797 (put 'gnus-summary-low-undownloaded-face 'face-alias 'gnus-summary-low-undownloaded)
809 (put 'gnus-summary-normal-undownloaded-face 'face-alias 'gnus-summary-normal-undownloaded)
817 (put 'gnus-summary-high-unread-face 'face-alias 'gnus-summary-high-unread)
825 (put 'gnus-summary-low-unread-face 'face-alias 'gnus-summary-low-unread)
833 (put 'gnus-summary-normal-unread-face 'face-alias 'gnus-summary-normal-unread)
849 (put 'gnus-summary-high-read-face 'face-alias 'gnus-summary-high-read)
865 (put 'gnus-summary-low-read-face 'face-alias 'gnus-summary-low-read)
879 (put 'gnus-summary-normal-read-face 'face-alias 'gnus-summary-normal-read)
890 (or (get-buffer name)
894 "Add the current buffer to the list of Gnus buffers."
898 "Kill BUFFER and remove from the list of Gnus buffers."
905 "Return a list of live Gnus buffers."
935 (put 'gnus-splash-face 'face-alias 'gnus-splash)
988 :type `(choice ,@(mapcar (lambda (elem) (list 'const (car elem)))
1006 (list data-directory))
1016 ("background" . ,(face-background 'default))))
1019 :background ,(face-foreground 'gnus-splash)
1020 :foreground ,(face-background 'default))
1023 :background ,(face-foreground 'gnus-splash)
1024 :foreground ,(face-background 'default))))))
1028 (or y (cdr size)) 1) 2)))
1030 (or x (car size))) 2)))
1059 (/ (max (- (window-width) (or x 46)) 0) 2))
1067 (put-text-property (point-min) (point-max) 'face 'gnus-splash)
1096 (\"list\\\\..*\" (total-expire . t)
1119 :type One of `bool', `list' or nil.
1132 (function (or (plist-get rest :function)
1134 (function-document (or (plist-get rest :function-document) ""))
1135 (variable (or (plist-get rest :variable)
1137 (variable-document (or (plist-get rest :variable-document) ""))
1139 (variable-type (or (plist-get rest :variable-type)
1141 (list (regexp :tag "Group")
1144 (list
1154 `(add-to-list 'gnus-group-parameters-more
1155 (list ',param
1182 (or (gnus-group-find-parameter name ',param ,(and type t))
1200 (defcustom gnus-directory (or (getenv "SAVEDIR")
1229 "NNTP service name (\"nntp\" or 119).
1246 (or (getenv "NNTPSERVER")
1254 ;; starting or even loading Gnus.
1261 (list 'nntp (or (condition-case nil
1268 (if (or (null gnus-nntp-service)
1271 (list gnus-nntp-service)))
1274 This variable should be a list, where the first element is how the
1284 \(setq gnus-select-method (list 'nnspool (system-name)))
1305 This can either be a string; a list of strings; or an alist
1306 of regexps/functions/forms to be evaluated to return a string (or a list
1308 group (or nil) as a parameter.
1345 "A list of secondary methods that will be used for reading news.
1346 This is a list where each element is a complete select method (see
1385 It can also be a list of select methods, as well as the special symbol
1387 list, Gnus will try all the methods in the list until it finds a match."
1418 This variable can also be a list of directories. In that case, the
1419 first element in the list will be used by default. The others can
1508 If this variable is a list, and the list contains the element
1546 If a list, then the values `word' and `line' are meaningful. The
1597 (list :convert-widget
1599 (list 'integer :tag "group level"
1695 The first element of each list lists should be a string with the name
1697 this method (i. e., `post', `mail', `none' or whatever) or other
1717 (define-widget 'gnus-select-method 'list
1723 (list 'const :format "%v\n"
1730 (list :format "%v"
1738 The list may contain the symbols `group', `article', `tree' and
1775 writes to the mailing list is subscribed to it. Since using this
1776 parameter ensures that the mail only goes to the mailing list itself,
1779 Using `to-address' will actually work whether the group is foreign or
1783 is therefore impossible--you have to send mail to the mailing list
1790 to-list
1792 "Return GROUP's to-list."
1819 When constructing a list of subscribed groups using
1821 above, or the list address (if the To address has not been set).")
1828 "Check whether GROUP is auto-expirable or not."
1847 "Check whether GROUP is total-expirable or not."
1887 :variable-type '(repeat (list (regexp :tag "Group")
1895 :type list
1907 (list :convert-widget
1909 (list 'sexp :tag "Methods"
1928 articles to list when the group is a large newsgroup (see
1935 :type list
1944 (list
1978 :type list
1980 "The spam type (spam, ham, or neither) of the group."
1984 "*Group classification (spam, ham, or neither). Only
1986 list of group name regexps associated with a classification for
1992 (list :tag "Group contents spam/ham classification"
1999 :parameter-type '(list :tag "Group contents spam/ham classification"
2005 "The spam classification (spam, ham, or neither) of this group.
2059 :type list
2064 (list :tag "Spam Summary Exit Processor Choices"
2093 "Which spam or ham processors will be applied when the summary is exited."
2097 "*Groups in which to automatically process spam or ham articles with
2098 a backend on summary exit. If non-nil, this should be a list of group
2104 (list :tag "Spam Summary Exit Processor Choices"
2136 "Which spam or ham processors will be applied when the summary is exited.")
2140 :type list
2155 (list
2165 :type list
2196 (list
2222 :type list
2235 another group, or expire them (the default). If non-nil, this should
2236 be a list of group name regexps that should match all groups in which
2238 group or nil for explicit expiration. This only makes sense for
2244 (list
2257 :type list
2272 another group, or do nothing (the default). If non-nil, this should
2273 be a list of group name regexps that should match all groups in which
2275 group or nil for explicit ignoring. This only makes sense for
2281 (list
2295 :type 'list
2296 :parameter-type '(list :tag "Ham mark choices"
2320 :type 'list
2321 :parameter-type '(list :tag "Spam mark choices"
2366 (list
2386 mouse-face
2397 This variable can also be a list of visual elements to switch on. For
2403 `article-highlight', `mouse-face', `summary-menu', `group-menu',
2412 (const mouse-face)
2434 (if (listp gnus-visual) ; It's a list, so we check it.
2435 (or (memq type gnus-visual)
2439 (defcustom gnus-mouse-face
2441 (if (gnus-visual-p 'mouse-face 'highlight)
2442 (if (boundp 'gnus-mouse-face)
2443 (or gnus-mouse-face 'highlight)
2447 "*Face used for group or summary buffer mouse highlighting.
2449 face."
2451 :type 'face)
2459 "Whether Gnus is plugged or not.")
2480 "Whether we want to use the Gnus agent or not.
2499 This should be an alist for Emacs, or a plist for XEmacs."
2502 '(repeat (list :inline t :format "%v"
2512 Can be a list of symbols or a string. Valid symbols are `gnus'
2515 \(S\)XEmacs codename\) or either `config' \(show system
2516 configuration\) or `type' \(show system type\). If you set it to
2521 :type '(choice (list (set :inline t
2571 "A list of servers, NOT methods, showing which servers are covered by the agent.")
2635 ;; `bookmark': don't propagated it, or fix the bug in update-mark.
2672 "Whether this Gnus is a slave or not.")
2675 "Whether this Gnus is running in batch mode or not.")
2677 (defvar gnus-variable-list
2681 gnus-killed-list gnus-zombie-list
2687 "Assoc list of read articles.
2691 "Assoc list of registry data.
2697 (defvar gnus-killed-list nil
2701 "Hash table equivalent of `gnus-killed-list'.")
2703 (defvar gnus-zombie-list nil
2709 (defvar gnus-list-of-killed-groups nil
2739 ;; This little mapcar goes through the list below and marks the
2784 ("gnus-fun" gnus-convert-gray-x-face-to-xpm gnus-display-x-face-in-from
2785 gnus-convert-image-to-gray-x-face gnus-convert-face-to-png
2786 gnus-face-from-file)
2863 gnus-list-of-unread-articles gnus-list-of-read-articles
2869 gnus-group-list-groups gnus-group-first-unread-group
2886 gnus-article-display-x-face gnus-article-de-quoted-unreadable
2915 gnus-agent-get-undownloaded-list gnus-agent-fetch-session
2945 %f Contents of the From: or To: headers (string)
2954 For example, \"1.2k\" or \"0.4M\".
2960 is on thread level two or larger and 0 spaces on level one
2962 %U Status of this article (character, \"R\", \"K\", \"-\" or \" \")
2963 %[ Opening bracket (character, \"[\" or \"<\")
2964 %] Closing bracket (character, \"]\" or \">\")
2970 %e Whether the thread is empty or not (character).
3092 (or (and (consp rank) (cdr rank)) 0)))
3116 (nconc info (list nil)))
3166 It consists of the `to-address' or `to-list' parameter of all groups
3173 (or (gnus-group-fast-parameter group 'to-address)
3174 (gnus-group-fast-parameter group 'to-list))))
3176 (add-to-list 'addresses address))))
3178 (list (mapconcat 'regexp-quote addresses "\\|")))))
3180 (defmacro gnus-string-or (&rest strings)
3182 STRINGS will be evaluated in normal `or' order."
3183 `(gnus-string-or-1 ',strings))
3185 (defun gnus-string-or-1 (strings)
3207 (when (or (string-match "^\\([^ ]+\\)? ?Gnus v?\\([0-9.]+\\)$" version)
3238 (Info-goto-node (or nodename (cadr (assq major-mode gnus-info-nodes))))
3253 "Return a list that can be fed to `interactive'.
3259 Y -- A list of the current symbolic prefix(es).
3330 (or (get-text-property (point) 'gnus-number)
3364 GROUP can either be a string (a group name) or a select method."
3374 "Check whether GROUP supports editing or not.
3377 (let ((group (or group gnus-newsgroup-name)))
3381 "Say whether GROUP is virtual or not."
3400 ;; Returns a list of writable groups.
3413 ;; If it isn't a list, then we return t.
3414 (or (not (listp gnus-use-long-file-name))
3415 ;; If it is a list, and the list contains `symbol', we
3428 "Say whether GROUP is ephemeral or not."
3456 (append method (list (list (intern (concat method-name "-address"))
3462 (setq method (or method gnus-select-method))
3478 (let ((alists (list gnus-server-alist
3481 (push (list (cons "native" gnus-select-method)) alists))
3494 (or (and server (listp server) server)
3497 (or
3540 ;; Input either a server name, and extended server name, or a
3560 (or (equal s1 s2)
3568 (let ((m1 (or m1 gnus-select-method))
3569 (m2 (or m2 gnus-select-method)))
3570 (or (equal m1 m2)
3572 (or (not (memq 'address (assoc (symbol-name (car m1))
3587 "Return a list of known servers using BACKEND."
3599 ((or (not gnus-message-archive-method)
3614 (or (assoc (format "%s" (car method))
3630 (if (or (not method)
3683 "Return the server or method used for selecting GROUP.
3701 (or (car (rassoc found gnus-server-alist))
3705 (list backend server))))))
3723 "Return the shortest uniquely identifying string or method for METHOD."
3734 "Return a list of all groups that are fetched from SERVER."
3743 "Say whether a group is foreign or not."
3748 "Say whether the group is native or not."
3752 "Say whether the group is secondary or not."
3760 params-list)
3763 (setq params-list
3766 params-list))))
3767 params-list))
3790 (defun gnus-group-fast-parameter (group symbol &optional allow-list)
3799 (gnus-group-parameter-value params symbol allow-list t)))
3815 symbol allow-list))
3826 (defun gnus-group-find-parameter (group &optional symbol allow-list)
3835 (gnus-group-fast-parameter group symbol allow-list)
3841 (defun gnus-group-get-parameter (group &optional symbol allow-list)
3844 If ALLOW-LIST, also allow list as a result.
3849 (gnus-group-parameter-value params symbol allow-list)
3853 allow-list present-p)
3855 If ALLOW-LIST, also allow list as a result."
3859 (or (car (memq symbol params))
3866 (or allow-list
3868 (throw 'found (if present-p (list (cdr elem))
3886 (new-params (list (cons name value))))
3888 (when (or (not (listp (car old-params)))
3890 (setq new-params (append new-params (list (car old-params)))))
3910 (gnus-info-set-score info (+ (gnus-info-score info) (or score 1))))))
3920 (levels (or levels
3972 (or (search-forward "\n\n" nil t)
3985 (if (or (file-exists-p (gnus-newsgroup-kill-file nil))
4010 ((or (null newsgroup)
4055 (if (or (not (inline (gnus-similar-server-opened method)))
4071 (list (intern (substring server 0 (match-beginning 0)))
4073 (list (intern server) "")))
4087 (or gnus-override-method
4091 ;; Killed or otherwise unknown group.
4092 (or
4097 (let ((info (or info (gnus-get-info group)))
4099 (if (or (not info)
4113 (list (car method) ""))
4128 (autoload 'message-y-or-n-p "message" nil nil 'macro))
4139 (cons (or default "") 0)
4144 (message-y-or-n-p
4168 (if (or (memq 'prompt-address method)
4189 (or (cadr (assoc (format "%s:%s" method address) open-servers))
4190 (list (intern method) address))))
4194 (list (intern method) "")))))
4200 (or (eq (car gnus-agent-method-p-cache) method)
4248 omitted or the function `make-frame-on-display' is not available, the
4253 (setq display (gnus-frame-or-window-display-name (selected-frame))))
4260 (when (and (or (not display)
4262 (gnus-frame-or-window-display-name
4283 (cdr (frame-list)))