Lines Matching +defs:all +defs:headers
80 (defgroup gnus-article-headers nil
81 "Article headers."
115 (defcustom gnus-ignored-headers
157 "*All headers that start with this regexp will be hidden.
158 This variable can also be a list of regexps of headers to be ignored.
159 If `gnus-visible-headers' is non-nil, this variable will be ignored."
165 (defcustom gnus-visible-headers
167 "*All headers that do not match this regexp will be hidden.
168 This variable can also be a list of regexp of headers to remain visible.
169 If this variable is non-nil, `gnus-ignored-headers' will be ignored."
182 If it is non-nil, headers that match the regular expressions will
188 (defcustom gnus-boring-article-headers '(empty followup-to reply-to)
211 (const :tag "Multiple To and/or Cc headers." many-to))
437 and the latter avoids underlining any whitespace at all."
484 "Format for display of Date headers in article bodies.
494 (defcustom gnus-save-all-headers t
495 "*If non-nil, don't remove any headers before saving.
496 This will be overridden by the `:headers' property that the symbol of
515 (defcustom gnus-saved-headers gnus-visible-headers
516 "Headers to keep if `gnus-save-all-headers' is nil.
517 If `gnus-save-all-headers' is non-nil, this variable will be ignored.
518 If that variable is nil, however, all headers that match this regexp
520 `gnus-save-all-headers' will be overridden by the `:headers' property
552 articles at a time, `gnus-prompt-before-saving' is bound to t and all
556 * :headers
558 specifies headers to be saved. If it is omitted,
559 `gnus-save-all-headers' and `gnus-saved-headers' control what
560 headers should be saved."
748 "Face used for displaying from headers."
749 :group 'gnus-article-headers
763 "Face used for displaying subject headers."
764 :group 'gnus-article-headers
778 "Face used for displaying newsgroups headers.
781 :group 'gnus-article-headers
796 :group 'gnus-article-headers
810 :group 'gnus-article-headers
820 "*Controls highlighting of article headers.
831 :group 'gnus-article-headers
845 :group 'gnus-article-headers
854 "Function used to decode headers.")
908 "If non-nil, all MIME parts get buttons.
960 "Whether the X-Sent and Date headers can coexist.
965 :group 'gnus-article-headers
1087 "Remove leading whitespace in headers.
1095 (defcustom gnus-treat-hide-headers 'head
1096 "Hide headers.
1103 (defcustom gnus-treat-hide-boring-headers nil
1104 "Hide boring headers.
1172 (defcustom gnus-treat-highlight-headers 'head
1173 "Highlight the headers.
1179 (put 'gnus-treat-highlight-headers 'highlight t)
1249 (defcustom gnus-treat-strip-headers-in-body t
1263 When set to t, it also strips trailing blanks in all MIME parts.
1274 When set to t, it also strips trailing blanks in all MIME parts."
1287 (defcustom gnus-treat-unfold-headers 'head
1296 (defcustom gnus-treat-fold-headers nil
1297 "Fold headers.
1306 "Fold the Newsgroups and Followup-To headers.
1334 "Display X-Face headers.
1366 "Display Face headers.
1409 "Display picons in To and Cc headers.
1425 "Display picons in the Newsgroups and Followup-To headers.
1442 "Draw a boundary at the end of the headers.
1523 "Whether IDNA decoding of headers is used when viewing messages.
1526 :group 'gnus-article-headers
1550 (gnus-treat-strip-headers-in-body gnus-article-strip-headers-in-body)
1566 (gnus-treat-hide-headers gnus-article-maybe-hide-headers)
1567 (gnus-treat-hide-boring-headers gnus-article-hide-boring-headers)
1575 (gnus-treat-highlight-headers gnus-article-highlight-headers)
1584 (gnus-treat-unfold-headers gnus-article-treat-unfold-headers)
1585 (gnus-treat-fold-headers gnus-article-treat-fold-headers)
1630 (defmacro gnus-with-article-headers (&rest forms)
1640 (put 'gnus-with-article-headers 'lisp-indent-function 0)
1641 (put 'gnus-with-article-headers 'edebug-form-spec '(body))
1714 b (or (text-property-not-all b (point-max) 'article-type type)
1718 "Delete all invisible text in the current buffer."
1723 b (or (text-property-not-all b (point-max) 'invisible t)
1741 (defun article-hide-headers (&optional arg delete)
1742 "Hide unwanted headers and possibly sort them as well."
1753 ;; `gnus-ignored-headers' and `gnus-visible-headers' may be
1759 (setq ignored (when (not gnus-visible-headers)
1760 (cond ((stringp gnus-ignored-headers)
1761 gnus-ignored-headers)
1762 ((listp gnus-ignored-headers)
1764 gnus-ignored-headers
1766 visible (cond ((stringp gnus-visible-headers)
1767 gnus-visible-headers)
1768 ((and gnus-visible-headers
1769 (listp gnus-visible-headers))
1771 gnus-visible-headers
1775 ;; First we narrow to just the headers.
1784 ;; `gnus-ignored-headers' and `gnus-visible-headers' to
1798 (message-sort-headers-1)
1801 ;; We delete the unwanted headers.
1802 (gnus-add-wash-type 'headers)
1804 '(article-type headers dummy-invisible t))
1807 (defun article-hide-boring-headers (&optional arg)
1808 "Toggle hiding of headers that aren't very interesting.
1812 (when (and (not (gnus-article-check-hidden-text 'boring-headers arg))
1813 (not gnus-show-all-headers))
1817 (list gnus-boring-article-headers)
1825 ;; Hide empty headers.
1836 'boring-headers)))
1966 'boring-headers))))
1969 "Length of normalized headers.")
1971 (defun article-normalize-headers ()
1972 "Make all header lines 40 characters long."
2013 "Translate all characters in the body of the article according to FROM and TO.
2030 "Translate all string in the body of the article according to MAP.
2067 (defun gnus-article-treat-unfold-headers ()
2068 "Unfold folded message headers.
2069 Only the headers that fit into the current window width will be
2072 (gnus-with-article-headers
2089 (defun gnus-article-treat-fold-headers ()
2090 "Fold message headers."
2092 (gnus-with-article-headers
2113 "Remove all images from the article buffer."
2120 "Unfold folded message headers.
2121 Only the headers that fit into the current window width will be
2124 (gnus-with-article-headers
2134 "Place a boundary line at the end of the headers."
2138 (gnus-with-article-headers
2194 "Remove all trailing blank lines from the article."
2211 "Display any Face headers in the header."
2214 (gnus-with-article-headers
2252 (gnus-with-article-headers
2312 "Decode all MIME-encoded words in the article."
2370 "Remove encoded-word encoding from headers."
2440 "Decode IDNA strings in RHS in various headers in current buffer.
2441 The following headers are decoded: From:, To:, Cc:, Reply-To:,
2655 "Toggle hiding of any PEM headers and signatures in the current article.
2762 (defun article-strip-headers-in-body ()
2763 "Strip offensive headers from bodies."
2772 "Remove all blank lines from the beginning of the article."
2812 ;; First make all blank lines empty.
2826 "Remove all white space from the beginning of the lines in the article."
2836 "Remove all white space from the end of the lines in the article."
2852 (defun article-strip-all-blank-lines ()
2853 "Strip all blank lines."
2944 "Show all hidden text of type TYPE.
3014 ;; Delete any old Date headers.
3098 ;; liable to bug out, so we ignore all errors.
3252 ;; (defun article-show-all ()
3253 ;; "Show all hidden text in the article buffer."
3260 "Remove excessive whitespace from all headers."
3332 (when (or (get gnus-default-article-saver :headers)
3333 (not gnus-save-all-headers))
3334 ;; Remove headers according to `gnus-saved-headers' or the value
3335 ;; of the `:headers' property that the saver function might have.
3336 (let ((gnus-visible-headers
3337 (or (symbol-value (get gnus-default-article-saver :headers))
3338 gnus-saved-headers gnus-visible-headers))
3342 (article-hide-headers 1 t))))
3346 ;; !!! Magic! The saving functions all save
3363 function group headers variable
3366 (funcall function group headers (symbol-value variable)))
3402 (funcall function split-name headers
3470 gnus-current-headers 'gnus-newsgroup-last-rmail))
3485 gnus-current-headers 'gnus-newsgroup-last-mail))
3498 (put 'gnus-summary-save-in-file :headers 'gnus-saved-headers)
3506 gnus-current-headers 'gnus-newsgroup-last-file))
3519 (put 'gnus-summary-write-to-file :headers 'gnus-saved-headers)
3527 gnus-current-headers nil 'gnus-newsgroup-last-directory))
3538 gnus-current-headers 'gnus-newsgroup-last-file))
3561 gnus-current-headers nil 'gnus-newsgroup-last-directory))
3614 (defun gnus-Numeric-save-name (newsgroup headers &optional last-file)
3623 "/" (int-to-string (mail-header-number headers)))
3632 (defun gnus-numeric-save-name (newsgroup headers &optional last-file)
3641 "/" (int-to-string (mail-header-number headers)))
3650 (defun gnus-plain-save-name (newsgroup headers &optional last-file)
3663 (defun gnus-sender-save-name (newsgroup headers &optional last-file)
3665 (let ((from (mail-header-from headers)))
3678 items info headers)
3688 ;; Don't verify multiple headers.
3689 (setq headers (mapconcat (lambda (header)
3697 (insert headers)
3771 '(article-hide-headers
3774 article-hide-boring-headers
3792 article-strip-headers-in-body
3799 article-strip-all-blank-lines
3812 article-normalize-headers
3813 ;; (article-show-all . gnus-article-show-all-headers)
3873 ["Hide headers" gnus-article-hide-headers t]
3896 The following commands are available in addition to all summary mode
3907 (kill-all-local-variables)
3940 ;; at all?
4020 (defun gnus-article-prepare (article &optional all-headers header)
4023 If ARTICLE is an id, HEADER should be the article headers.
4024 If ALL-HEADERS is non-nil, no headers are hidden."
4070 gnus-current-headers nil
4091 gnus-current-headers
4095 (unless (vectorp gnus-current-headers)
4096 (setq gnus-current-headers nil))
4110 (setq gnus-have-all-headers
4111 (or all-headers gnus-show-all-headers))))
4244 (defun gnus-mime-view-all-parts (&optional handles)
4245 "View all the MIME parts."
4328 ,(or (mail-header-references gnus-current-headers) "")
4409 ,(or (mail-header-references gnus-current-headers) "")
4632 (gnus-newsgroup-ignored-charsets 'gnus-all)
4975 ;; Highlight the headers.
5256 (headers "h" "Hidden headers"
5257 " " "All headers visible.")
5291 (headers (memq 'headers gnus-article-wash-types))
5292 (boring (memq 'boring-headers gnus-article-wash-types))
5302 (gnus-article-wash-status-entry 'headers (or headers boring))
5325 "Delete all images in CATEGORY."
5332 (defalias 'gnus-article-hide-headers-if-wanted 'gnus-article-maybe-hide-headers)
5334 (defun gnus-article-maybe-hide-headers ()
5335 "Hide unwanted headers if `gnus-have-all-headers' is nil.
5339 gnus-have-all-headers)))
5341 (gnus-article-hide-headers)))
5784 "Hide all the gruft in the current article.
5785 This means that signatures, cited text and (some) headers will be
5789 (gnus-article-hide-headers arg)
5815 (gnus-kill-all-overlays)
5823 ;; headers for it, so we'll have to get those.
5926 (gnus-kill-all-overlays)
6029 "\C-c\C-o" message-sort-headers
6095 ,(or (mail-header-references gnus-current-headers) "")
6136 ;; We remove all text props from the article buffer.
6137 (kill-all-local-variables)
6158 (kill-all-local-variables)
6253 It should match all directories in the top level of `gnus-ctan-url'."
6684 ;; all kind of allowed MIDs or mail addresses. Domain part must contain
6729 "*Alist of headers and regexps to match buttons in article heads.
6739 :group 'gnus-article-headers
6776 This function calls `gnus-article-highlight-headers',
6781 (gnus-article-highlight-headers)
6789 This function calls `gnus-article-highlight-headers',
6793 (gnus-article-highlight-headers)
6797 (defun gnus-article-highlight-headers ()
6798 "Highlight article headers as specified by `gnus-header-face-alist'."
6859 (text-property-not-all b e prop nil))
6873 ;; Remove all old markers.
6885 ;; We skip the headers.
7284 "List of methods used to decode headers.
7287 is FUNCTION, FUNCTION will be applied to all newsgroups. If item is a
7424 (or (mail-header-references gnus-current-headers) ""))
7427 (headers
7444 (insert (apply 'concat headers))
7546 (or (text-property-not-all