Lines Matching +defs:default +defs:frame +defs:alist
40 (defvar gnus-parameter-ham-marks-alist)
41 (defvar gnus-parameter-spam-marks-alist)
214 (defgroup gnus-score-default nil
965 (defvar gnus-logo-color-alist
984 "Color alist used for the Gnus logo.")
989 gnus-logo-color-alist))
993 (cdr (assq gnus-logo-color-style gnus-logo-color-alist))
1016 ("background" . ,(face-background 'default))))
1020 :foreground ,(face-background 'default))
1024 :foreground ,(face-background 'default))))))
1076 (if (string-match "gnus-other-frame" command)
1103 (defcustom gnus-parameters-case-fold-search 'default
1105 If it is nil, don't ignore case. If it is `default', which is for the
1110 (const :tag "Use `case-fold-search'" default)
1128 :variable-default The default value of the variable."
1136 (intern (format "gnus-parameter-%s-alist" param))))
1143 (variable-default (plist-get rest :variable-default)))
1146 `(defcustom ,variable ,variable-default
1171 (let ((alist ,variable)
1173 (while (setq elem (pop alist))
1176 (setq alist nil
1183 (let ((alist ,variable)
1185 (while (setq elem (pop alist))
1188 (setq alist nil
1211 (defcustom gnus-default-directory nil
1220 (defvar gnus-default-nntp-server nil
1221 "Specify a default NNTP server.
1243 "Find default nntp server.
1264 (when (and gnus-default-nntp-server
1265 (not (string= gnus-default-nntp-server "")))
1266 gnus-default-nntp-server)
1292 :initialize 'custom-initialize-default
1305 This can either be a string; a list of strings; or an alist
1356 (defvar gnus-backup-default-subscribed-newsgroups
1358 "Default default new newsgroups the first time Gnus is run.
1367 :type '(choice (const :tag "default" nil)
1389 :type '(choice (const :tag "default" nil)
1419 first element in the list will be used by default. The others can
1422 Note that Gnus uses an aol machine as the default directory. If this
1426 If the default site is too slow, try one of these:
1442 (defcustom gnus-group-charter-alist
1464 "*An alist of (HIERARCHY . FORM) pairs used to construct the URL of a charter.
1505 "*Non-nil means that the default name of a file to save articles in is the group name.
1514 Note that the default for this variable varies according to what system
1528 "*Name of the directory where kill files will be stored (default \"~/News\")."
1600 :value (if (boundp 'gnus-level-default-subscribed)
1601 gnus-level-default-subscribed
1617 It calls `gnus-summary-expire-articles' by default."
1648 which is the default, quite fast, and too simplistic solution, and
1694 "*An alist of valid select methods.
1752 of the mode line intact. Note that the default of nil is unlikely
1830 :variable-default nil
1849 :variable-default nil
1869 "Return the default charset of GROUP."
1870 :variable gnus-group-charset-alist
1871 :variable-default
1885 "Alist of regexps (to match group names) and default charsets to be used when reading."
1891 The default charset to use in the group.")
1898 :variable gnus-post-method-alist
1929 `gnus-large-newsgroup'). If it is nil, the default value is the
1939 :variable-default nil
1982 :variable-default nil
2095 :variable-default nil
2146 :variable-default nil
2169 (const default)
2186 :variable-default nil
2200 (const default)
2232 :variable-default nil
2235 another group, or expire them (the default). If non-nil, this should
2269 :variable-default nil
2272 another group, or do nothing (the default). If non-nil, this should
2309 :variable-default '((".*" ((gnus-del-mark
2332 :variable-default '((".*" ((gnus-spam-mark))))
2357 The function `gnus-apply-kill-file' is called by default.
2445 'default)
2454 "*Name of the directory articles will be saved in (default \"~/News\")."
2470 (defcustom gnus-default-charset 'undecided
2473 `gnus-group-charset-alist' variable and is only used on groups not
2489 (defcustom gnus-other-frame-function 'gnus
2490 "Function called by the command `gnus-other-frame'."
2497 (defcustom gnus-other-frame-parameters nil
2498 "Frame parameters used by `gnus-other-frame' to create a Gnus frame.
2499 This should be an alist for Emacs, or a plist for XEmacs."
2594 (defvar gnus-server-alist nil
2603 (defvar gnus-predefined-server-alist
2680 gnus-newsrc-alist gnus-server-alist
2682 gnus-topic-topology gnus-topic-alist
2686 (defvar gnus-newsrc-alist nil
2690 (defvar gnus-registry-alist nil
2695 "Hashtable of `gnus-newsrc-alist'.")
2724 (defvar rmail-default-rmail-file)
2731 (defvar gnus-other-frame-object nil
2732 "A frame object which will be created by `gnus-other-frame'.")
2815 gnus-summary-current-score gnus-score-delta-default
3144 (defvar gnus-shutdown-alist nil)
3148 (push (cons function symbols) gnus-shutdown-alist))
3152 (let ((alist gnus-shutdown-alist)
3154 (while (setq entry (pop alist))
3169 (dolist (entry (cdr gnus-newsrc-alist))
3288 (read-file-name prompt nil default-directory 'lambda))
3402 (let ((alist gnus-newsrc-alist)
3404 (while (setq group (car (pop alist)))
3471 (lambda (server-alist)
3477 server-alist))
3478 (let ((alists (list gnus-server-alist
3479 gnus-predefined-server-alist)))
3500 ;; It should be in the server alist.
3501 (cdr (assoc server gnus-server-alist))
3502 ;; It could be in the predefined server alist.
3503 (cdr (assoc server gnus-predefined-server-alist))
3521 ;; of the entire gnus-newsrc-alist for the server name
3533 (cdr gnus-newsrc-alist))
3701 (or (car (rassoc found gnus-server-alist))
3703 (car (rassoc possible gnus-server-alist))
3735 (let ((alist (cdr gnus-newsrc-alist))
3737 (while (setq info (pop alist))
3757 (let ((case-fold-search (if (eq gnus-parameters-case-fold-search 'default)
3860 ;; Handle alist.
4130 (defun gnus-read-group (prompt &optional default)
4139 (cons (or default "") 0)
4175 gnus-predefined-server-alist
4176 gnus-server-alist))
4241 (defun gnus-other-frame (&optional arg display)
4242 "Pop up a frame to read news.
4244 option `gnus-other-frame-function' (default `gnus') with the argument
4245 ARG if Gnus is not running, otherwise just pop up a Gnus frame. The
4247 such as \"unix:0\" to specify where to pop up a frame. If DISPLAY is
4248 omitted or the function `make-frame-on-display' is not available, the
4251 (if (fboundp 'make-frame-on-display)
4253 (setq display (gnus-frame-or-window-display-name (selected-frame))))
4262 (gnus-frame-or-window-display-name
4267 (gnus-select-frame-set-input-focus
4268 (setq gnus-other-frame-object (window-frame window)))
4272 (gnus-select-frame-set-input-focus
4273 (setq gnus-other-frame-object
4275 (make-frame-on-display display gnus-other-frame-parameters)
4276 (make-frame gnus-other-frame-parameters))))
4279 (funcall gnus-other-frame-function arg)
4282 (when (and (frame-live-p gnus-other-frame-object)
4283 (cdr (frame-list)))
4284 (delete-frame gnus-other-frame-object))
4285 (setq gnus-other-frame-object nil)))))))