Lines Matching +defs:value +defs:get
259 :type '(repeat :value-to-internal (lambda (widget value)
260 (custom-split-regexp-maybe value))
261 :match (lambda (widget value)
262 (or (stringp value)
263 (widget-editable-list-match widget value)))
280 :type '(repeat :value-to-internal (lambda (widget value)
281 (custom-split-regexp-maybe value))
282 :match (lambda (widget value)
283 (or (stringp value)
284 (widget-editable-list-match widget value)))
461 (sexp :tag "unique" :format "unique\n" :value unique
462 :match (lambda (widget value) (memq value '(unique t))))
553 :type '(repeat :value-to-internal (lambda (widget value)
554 (custom-split-regexp-maybe value))
555 :match (lambda (widget value)
556 (or (stringp value)
557 (widget-editable-list-match widget value)))
564 :type '(repeat :value-to-internal (lambda (widget value)
565 (custom-split-regexp-maybe value))
566 :match (lambda (widget value)
567 (or (stringp value)
568 (widget-editable-list-match widget value)))
665 If nil, always ignore the header. If it is t, use its value, but
666 query before using the \"poster\" value. If it is the symbol `ask',
667 always query the user whether to use the value. If it is the symbol
668 `use', always use the value."
679 query the user whether to use the value. If it is the symbol `use',
680 always use the value."
884 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
892 Fix `message-cite-prefix-regexp' if it is set to an abnormal value.
1032 (let ((buffer (get-buffer-create " *temp*")))
1048 The value should be an expression to test whether the problem will
1105 A value of nil means exclude your own user name only."
1397 and Emacs, you may use `iso-2022-7bit' for this value at your own risk.
1728 (value (mail-fetch-field header nil (not not-all))))
1729 (when value
1730 (while (string-match "\n[\t ]+" value)
1731 (setq value (replace-match " " t t value)))
1732 (set-text-properties 0 (length value) nil value)
1733 value)))
1735 (defun message-field-value (header &optional not-all)
1930 "to get rid of this query."
1983 ;; reverse insertion to get correct result.
2284 (or (get-text-property (point) 'message-rank)
2553 (symbol-value 'egg-modefull-mode)
2554 (or (memq (get-text-property pos 'intangible)
2556 (get-text-property pos 'egg-end)
2557 (get-text-property pos 'egg-lang)
2558 (get-text-property pos 'egg-start)))))
2569 (when (not (get-text-property begin 'message-hidden))
2682 ;; message-yank-prefix is set to an abnormal value.
2871 (message-get-reply-headers t))))
2920 (message-get-reply-headers t)))))
3182 (or (message-field-value "Reply-to")
3183 (message-field-value "From")
3203 (prefix-numeric-value current-prefix-arg))))
3236 (list (prefix-numeric-value current-prefix-arg))
3368 (let ((message-reply-buffer (get-buffer buffer)))
3394 ;; modify the value of `message-reply-headers' with that article.
3443 ;; modify the value of `message-reply-headers' with that article.
3682 (when (get-text-property point prop)
3725 (not (get-text-property
3756 (not (get-text-property
3777 (delq action (symbol-value var))))))
4049 (error "Sending...failed with exit value %d" cpr)))
4145 This is the value of `canlock-password', if that option is non-nil.
4146 Otherwise, generate and save a value for `canlock-password' first."
4169 ;; BUG: We really need to get the charset for each name in the
4203 ;; Note: This check will be disabled by the ".*" default value for
4256 (nnheader-get-report (car method)))
4683 (set-buffer (get-buffer-create " *message temp*"))
5202 header value elem header-string)
5211 (get-text-property (1+ (match-beginning 0)) 'message-deletable)
5241 ;; So we find out what value we should insert.
5242 (setq value
5254 (symbol-value (cdr elem)))))
5258 ;; function, and we insert the value returned from
5265 (symbol-value header))
5266 ;; The element is a symbol. We insert the value
5268 (symbol-value header))
5271 ;; We couldn't generate a value for this header,
5274 (format "Empty header for %s; enter value: " header)))))
5276 (when (and value
5277 (not (equal value "")))
5286 (funcall formatter header value)
5287 (insert header-string ": " value))
5288 ;; We check whether the value was ended by a
5293 ;; The value of this header was empty, so we clear
5294 ;; totally and insert the new value.
5300 (insert value)))
5356 (defun message-fill-address (header value)
5361 (if (consp value) (car value) value)
5395 (defun message-fill-header (header value)
5401 (if (consp value) (car value) value)
5502 "Move point to beginning of header value or to beginning of line.
5510 line, move point to the beginning of the header value or the beginning of line,
5512 beginning of header value. Therefore, repeated calls will toggle point
5587 (let ((buffer (get-buffer name)))
5590 (let ((window (get-buffer-window buffer 0)))
5837 OTHER-HEADERS is an alist of header/value pairs. CONTINUE says whether
5873 (defun message-get-reply-headers (wide &optional to-address address-headers)
5911 (let ((value (message-fetch-field header)))
5912 (when value
5913 (setq recipients (concat recipients ", " value))))))
5919 article, it has the value of
5940 want to get rid of this query permanently.")))
6075 (setq follow-to (message-get-reply-headers wide to-address))))
6167 want to get rid of this query permanently."))
6193 want to get rid of this query permanently."))
6277 (setq buf (set-buffer (get-buffer-create " *message cancel*"))))
6628 (set-buffer (get-buffer-create " *message resend*"))
6833 (defun message-tool-bar-update (&optional symbol value)
6839 (set-default symbol value)))
6964 :type '(alist :key-type regexp :value-type function))
7147 ;; header. This is because some broken MTAs and MUAs get
7191 (defun message-options-get (symbol)
7194 (defun message-options-set (symbol value)
7197 (if value
7198 (setcdr the-cons value)
7200 (and value
7201 (push (cons symbol value) message-options))))
7202 value)