Lines Matching +refs:default +refs:value
170 :type '(repeat :value-to-internal (lambda (widget value)
171 (custom-split-regexp-maybe value))
172 :match (lambda (widget value)
173 (or (stringp value)
174 (widget-editable-list-match widget value)))
216 By default, if you set this t, then Gnus will display citations and
243 (integer :value 200)
244 (number :value 4.0)
246 (regexp :value ".*"))
296 :value nil
323 (choice :tag "Banner" :value nil
337 (defun gnus-emphasis-custom-value-to-external (value)
339 (if (consp (car value))
340 (list (format format (car (car value)) (cdr (car value)))
342 (if (nth 1 value) 2 3)
343 (nth 2 value))
344 value)))
346 (defun gnus-emphasis-custom-value-to-internal (value)
353 (if (string-match regexp (setq pattern (car value)))
355 (= (nth 2 value) 2)
356 (nth 3 value))
357 value))))
400 :value ("" 0 0 default)
401 :value-create
403 (let ((value (widget-get
406 :value)))
407 (if (not (eq (nth 2 value) 'default))
410 :value
411 (gnus-emphasis-custom-value-to-external value))))
412 (widget-group-value-create widget))
418 :value (("_" . "_") nil default)
426 (mapcar 'gnus-emphasis-custom-value-to-internal
427 (default-value symbol)))
428 :set (lambda (symbol value)
429 (set-default symbol (mapcar 'gnus-emphasis-custom-value-to-external
430 value)))
497 the saver function, which is specified by `gnus-default-article-saver',
505 saved to the default files. If this variable is `always', each and
513 (sexp :tag "once" :format "%t\n" :value t)))
522 `gnus-default-article-saver', might have."
526 (defcustom gnus-default-article-saver 'gnus-summary-save-in-rmail
545 The value non-nil means save decoded articles. This is meaningful
550 The value specifies an alternative function which appends, not
557 The value specifies the symbol of a variable of which the value
588 and the functions to which you may set `gnus-default-article-saver':
596 buffer to a file if the value of this variable is non-nil. Note that
649 value is a list of possible files to save in if the match is non-nil.
660 :type '(repeat (choice (list :value (fun) function)
661 (cons :value ("" "") regexp (repeat string))
662 (sexp :value nil))))
666 The default value is \"^\^L\", which is a form linefeed at the
779 In the default setup this face is only used for crossposted
836 (face :value default))
839 (face :value default)))))
909 When nil (the default value), then some MIME parts do not get buttons,
922 :type '(choice (item :tag "None" :value nil)
971 For `undisplayed-alternative' (default), the first undisplayed
979 (item :tag "first" :value nil)
980 (item :tag "undisplayed" :value undisplayed)
982 :value undisplayed-alternative)
1343 :set (lambda (symbol value)
1344 (set-default
1346 (cond ((or (boundp symbol) (get symbol 'saved-value))
1347 value)
1352 (default-value 'gnus-treat-display-xface))
1353 ((get 'gnus-treat-display-xface 'saved-value)
1357 (eval (car (get 'gnus-treat-display-xface 'saved-value))))
1359 value)))))
1524 This requires GNU Libidn, and by default only enabled if it is found."
2231 (push (mail-header-field-value) faces))))
2274 (push (mail-header-field-value) x-faces))
2621 ;; The default.
2907 (prefix-numeric-value current-prefix-arg)
2978 how much time has lapsed since DATE. For `lapsed', the value of
3332 (when (or (get gnus-default-article-saver :headers)
3334 ;; Remove headers according to `gnus-saved-headers' or the value
3337 (or (symbol-value (get gnus-default-article-saver :headers))
3344 (if (not gnus-default-article-saver)
3345 (error "No default saver is defined")
3353 ((not gnus-prompt-before-saving) 'default)
3360 (funcall gnus-default-article-saver filename)))))
3365 (let ((default-name
3366 (funcall function group headers (symbol-value variable)))
3371 ((eq filename 'default)
3372 default-name)
3374 default-name)
3377 (when (symbol-value dir-var)
3378 (setq default-name (expand-file-name
3379 (file-name-nondirectory default-name)
3380 (symbol-value dir-var))))
3381 (let* ((split-name (gnus-get-split-value gnus-split-methods))
3395 (concat prompt " (default "
3396 (file-name-nondirectory default-name) "): ")
3397 (file-name-directory default-name)
3398 default-name))
3401 (setq default-name
3403 (symbol-value variable)))
3405 (concat prompt " (default "
3406 (file-name-nondirectory default-name) "): ")
3407 (file-name-directory default-name)
3408 default-name))
3419 (concat prompt " (default " name "): ")
3437 ;; If we have read a directory, we append the default file name.
3440 default-name)
3466 Directory to save to is default to `gnus-article-save-directory'."
3481 Directory to save to is default to `gnus-article-save-directory'."
3502 Directory to save to is default to `gnus-article-save-directory'."
3567 (cond ((and (eq command 'default)
3592 default-value)
3597 `(read-string ,prompt ,initial-contents ,history ,default-value)))
3618 (let ((default
3626 (string-equal (file-name-directory default)
3629 default
3630 (or last-file default))))
3636 (let ((default
3644 (string-equal (file-name-directory default)
3647 default
3648 (or last-file default))))
3660 default-directory))
3932 (gnus-set-default-directory)
3945 "The value of `gnus-button-alist' when `gnus-button-regexp' was build.")
4452 (def-type (and name (mm-default-file-encoding name))))
4462 (let ((default (gnus-mime-view-part-as-type-internal)))
4464 (format "View as MIME type (default %s): "
4465 (car default))
4468 (car default)))))
5034 ;;;!!!We should find the start part, but we just default
5282 (defun gnus-article-wash-status-entry (key value)
5284 (if value (nth 1 entry) (nth 2 entry))))
5348 text and used as the value of the coding cookie which is added to the
5400 (setq arg (if arg (prefix-numeric-value arg) 0))
5506 (symbol-value 'header-line-format))
5513 (numberp (symbol-value 'scroll-margin))
5514 (> (symbol-value 'scroll-margin) 0))
5519 (symbol-value 'scroll-margin))))))
5554 (symbol-value 'gnus-article-boring-faces))
5562 (symbol-value 'gnus-article-boring-faces)))
6220 If the default site is too slow, try to find a CTAN mirror, see
6637 ;; them by default (use a high button level).
6701 CALLBACK can also be a variable, in that case the value of that
6754 call it with the value of the `gnus-data' text property."
6767 call it with the value of the `gnus-data' text property."
7016 (fboundp (symbol-value fun)))
7017 (apply (symbol-value fun) args))
7343 (symbol-value (car elem))))
7393 (error "%S is not a valid value" val))))