Lines Matching +defs:extra +defs:indent
296 (defcustom gnus-thread-indent-level 4
1009 (defcustom gnus-extra-headers '(To Newsgroups)
1152 (defvar gnus-thread-indent-array nil)
1153 (defvar gnus-thread-indent-array-level gnus-thread-indent-level)
1801 "x" gnus-summary-limit-to-extra
2444 ["Extra..." gnus-summary-limit-to-extra t]
2737 ("extra header" "extra" string)
2838 (gnus-make-thread-indent-array)
3170 (put 'gnus-save-hidden-threads 'lisp-indent-function 0)
3356 (defun gnus-make-thread-indent-array (&optional n)
3359 (null gnus-thread-indent-array)
3360 (/= gnus-thread-indent-level gnus-thread-indent-array-level))
3361 (setq gnus-thread-indent-array (make-vector (1+ n) "")
3362 gnus-thread-indent-array-level gnus-thread-indent-level)
3364 (aset gnus-thread-indent-array n
3365 (make-string (* n gnus-thread-indent-level) ? ))
3446 (let ((extra-headers (mail-header-extra header))
3450 ((setq to (cdr (assq 'To extra-headers)))
3455 ((setq newsgroups (cdr (assq 'Newsgroups extra-headers)))
3465 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
3466 (gnus-make-thread-indent-array (max (* 2 (length gnus-thread-indent-array))
3468 (let* ((gnus-tmp-indentation (aref gnus-thread-indent-array gnus-tmp-level))
4215 (nnheader-nov-parse-extra)))) ; extra
4220 (setq in-reply-to (mail-header-extra header))
4790 (defun gnus-extra-header (type &optional header)
4791 "Return the extra header of TYPE."
4792 (or (cdr (assq type (mail-header-extra (or header gnus-tmp-header))))
4809 (defcustom gnus-sum-thread-tree-single-indent ""
4820 (defcustom gnus-sum-thread-tree-indent " "
5030 (if (>= gnus-tmp-level (length gnus-thread-indent-array))
5031 (gnus-make-thread-indent-array
5032 (max (* 2 (length gnus-thread-indent-array))
5036 (aref gnus-thread-indent-array gnus-tmp-level)
5093 (or gnus-sum-thread-tree-single-indent subject))))
5099 gnus-sum-thread-tree-indent))
6078 (when gnus-extra-headers
6079 (let ((extra gnus-extra-headers)
6081 (while extra
6084 (concat "\n" (symbol-name (car extra)) ":") nil t)
6085 (push (cons (car extra) (nnheader-header-value))
6087 (pop extra))
6306 (put 'gnus-summary-iterate 'lisp-indent-function 1)
7859 (defun gnus-summary-limit-to-extra (header regexp &optional not-matching)
7860 "Limit the summary buffer to articles that match an 'extra' header."
7865 (symbol-name (car gnus-extra-headers))
7867 "Exclude extra header"
7868 "Limit extra header")
7871 gnus-extra-headers)
7882 (cons 'extra header) regexp 'all nil nil
8727 (if (eq (car header) 'extra)
8730 (or (cdr (assq ',(cdr header) (mail-header-extra h)))
8765 gnus-extra-headers))
10626 (put 'gnus-with-article 'lisp-indent-function 1)