Lines Matching +defs:header +defs:text
117 (lambda (header)
118 (concat "^" header ":"))
178 (defcustom gnus-sorted-header-list
215 "Skip over text that is not worth reading.
218 only of boring text. Boring text is controlled by
241 regexp. If it matches, the text in question is not a signature."
250 "Property list to use for hiding text."
266 "*String or function to be executed to display an X-Face header.
313 to match a mail address in the From: header, BANNER is one of a symbol
377 ;; several times seen it triggered by normal text. --Stef
443 "Face used for displaying strong emphasized text (*word*)."
447 "Face used for displaying italic emphasized text (/word/)."
451 "Face used for displaying underlined emphasized text (_word_)."
455 "Face used for displaying underlined bold emphasized text (_*word*_)."
459 "Face used for displaying underlined italic emphasized text (_/word/_)."
463 "Face used for displaying bold italic emphasized text (/*word*/)."
468 "Face used for displaying underlined bold italic emphasized text.
475 "Face used for displaying strike-through text (-word-)."
488 header. The function is called with one argument, the time, which can
580 which can safely encode any characters in text. This is used by the
595 Those commands and functions save just text displayed in the article
710 An article button is a piece of text that you can activate by pressing
739 (defface gnus-header-from
752 (put 'gnus-header-from-face 'face-alias 'gnus-header-from)
754 (defface gnus-header-subject
767 (put 'gnus-header-subject-face 'face-alias 'gnus-header-subject)
769 (defface gnus-header-newsgroups
784 (put 'gnus-header-newsgroups-face 'face-alias 'gnus-header-newsgroups)
786 (defface gnus-header-name
795 "Face used for displaying header names."
799 (put 'gnus-header-name-face 'face-alias 'gnus-header-name)
801 (defface gnus-header-content
809 (:italic t))) "Face used for displaying header content."
813 (put 'gnus-header-content-face 'face-alias 'gnus-header-content)
815 (defcustom gnus-header-face-alist
816 '(("From" nil gnus-header-from)
817 ("Subject" nil gnus-header-subject)
818 ("Newsgroups:.*," nil gnus-header-newsgroups)
819 ("" gnus-header-name gnus-header-content))
825 header and NAME and CONTENT are either face names or nil.
827 The name of each header field will be displayed using the face
829 the header name and NAME is non-nil. Similarly, the content will
853 (defvar gnus-decode-header-function 'mail-decode-encoded-word-region
917 "String used to delimit header and body.
959 (defcustom gnus-article-date-lapsed-new-header nil
961 When using `gnus-treat-date-lapsed', the \"X-Sent:\" header will
962 either replace the old \"Date:\" header (if this variable is nil), or
989 ("display as text" . gnus-mime-inline-part)
1022 (defvar gnus-article-treat-types '("text/plain")
1028 (defcustom gnus-treat-highlight-signature '(or t (typep "text/x-vcard"))
1060 "Emphasize text.
1128 "Hide cited text.
1136 "Hide cited text.
1182 "Highlight cited text.
1216 "Display the Date header in a way that says how much time has elapsed.
1250 "Strip the X-No-Archive header line from the beginning of the body.
1288 "Unfold folded header lines.
1393 "Display picons in the From header.
1518 "Function used for converting HTML into text.")
1530 "If non-nil, allow scrolling the article buffer even when there no more text."
1603 (let ((table (copy-syntax-table text-mode-syntax-table)))
1613 Initialized from `text-mode-syntax-table.")
1652 (defun gnus-article-goto-header (header)
1654 (re-search-forward (concat "^\\(" header "\\):") nil t))
1656 (defsubst gnus-article-hide-text (b e props)
1657 "Set text PROPS on the B to E region, extending `intangible' 1 past B."
1658 (gnus-add-text-properties-when 'article-type nil b e props)
1660 (put-text-property
1664 (defsubst gnus-article-unhide-text (b e)
1665 "Remove hidden text properties from region between B and E."
1666 (remove-text-properties b e gnus-hidden-properties)
1668 (put-text-property (max (1- b) (point-min))
1671 (defun gnus-article-hide-text-type (b e type)
1672 "Hide text of TYPE between B and E."
1674 (gnus-article-hide-text
1677 (defun gnus-article-unhide-text-type (b e type)
1678 "Unhide text of TYPE between B and E."
1680 (remove-text-properties
1683 (put-text-property (max (1- b) (point-min))
1686 (defun gnus-article-hide-text-of-type (type)
1687 "Hide text of TYPE in the current buffer."
1691 (while (setq b (text-property-any b e 'article-type type))
1692 (add-text-properties b (incf b) gnus-hidden-properties)))))
1694 (defun gnus-article-delete-text-of-type (type)
1695 "Delete text of TYPE in the current buffer."
1702 (while (if (get-text-property (point) 'gnus-part)
1710 (when (eq (get-text-property b 'article-type) 'multipart)
1712 (while (setq b (text-property-any b (point-max) 'article-type type))
1714 b (or (text-property-not-all b (point-max) 'article-type type)
1717 (defun gnus-article-delete-invisible-text ()
1718 "Delete all invisible text in the current buffer."
1721 (while (setq b (text-property-any b (point-max) 'invisible t))
1723 b (or (text-property-not-all b (point-max) 'invisible t)
1726 (defun gnus-article-text-type-exists-p (type)
1727 "Say whether any text of type TYPE exists in the buffer."
1728 (text-property-any (point-min) (point-max) 'article-type type))
1730 (defsubst gnus-article-header-rank ()
1731 "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
1732 (let ((list gnus-sorted-header-list)
1748 (max (1+ (length gnus-sorted-header-list)))
1782 ;; Then treat the rest of the header lines.
1785 ;; select which header lines is to remain visible in the
1789 ;; Mark the rank of the header.
1790 (put-text-property
1795 (gnus-article-header-rank)
1799 (when (setq beg (text-property-any
1803 (add-text-properties (point-min) (+ 5 (point-min))
1812 (when (and (not (gnus-article-check-hidden-text 'boring-headers arg))
1829 (gnus-article-hide-text-type
1837 ;; Hide boring Newsgroups header.
1845 (gnus-article-hide-header "newsgroups")))
1858 (gnus-article-hide-header "to"))))
1871 (gnus-article-hide-header "to"))))
1884 (gnus-article-hide-header "cc"))))
1889 (gnus-article-hide-header "followup-to")))
1893 (gnus-article-hide-header "reply-to")
1909 (gnus-article-hide-header "reply-to")))))
1919 (gnus-article-hide-header "date"))))
1924 (gnus-article-hide-header "to"))
1926 (gnus-article-hide-header "cc"))))
1940 (gnus-article-hide-header "to"))
1952 (gnus-article-hide-header "cc"))
1955 (defun gnus-article-hide-header (header)
1958 (when (re-search-forward (concat "^" header ":") nil t)
1959 (gnus-article-hide-text-type
1968 (defvar gnus-article-normalized-header-length 40
1972 "Make all header lines 40 characters long."
1982 gnus-article-normalized-header-length)
1985 (- gnus-article-normalized-header-length column)
1987 ((> column gnus-article-normalized-header-length)
1988 (gnus-put-text-property
1990 (forward-char gnus-article-normalized-header-length)
2000 "Translate M****s*** sm*rtq**t*s and other symbols into proper text.
2042 "Translate overstrikes into bold text."
2051 ;; overstrikes and putting the proper text property
2055 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2056 (put-text-property (point) (1+ (point)) 'face 'bold))
2058 (gnus-article-hide-text-type
2060 (put-text-property
2063 (gnus-article-hide-text-type (- (point) 2) (point) 'overstrike)
2064 (put-text-property
2076 (mail-header-narrow-to-field)
2077 (let ((header (buffer-string)))
2079 (insert header)
2095 (mail-header-narrow-to-field)
2096 (mail-header-fold-field)
2125 (while (gnus-article-goto-header "newsgroups\\|followup-to")
2127 (mail-header-narrow-to-field)
2130 (mail-header-fold-field)
2142 (gnus-add-text-properties start (point) '(invisible t intangible t))
2148 (gnus-put-text-property start (point) 'gnus-decoration 'header)))))
2211 "Display any Face headers in the header."
2230 (while (gnus-article-goto-header "Face")
2231 (push (mail-header-field-value) faces))))
2234 (let ((from (gnus-article-goto-header "from"))
2249 "Look for an X-Face header and display it if present."
2273 (while (gnus-article-goto-header "X-Face")
2274 (push (mail-header-field-value) x-faces))
2325 "Decode charset-encoded text in the article.
2342 ctl (and ct (mail-header-parse-content-type ct))
2350 (setq cte (mail-header-strip cte)))
2359 ;; The text code could have been decoded.
2362 (equal (car ctl) "text/plain"))
2394 (funcall gnus-decode-header-function start end))
2473 (ctl (and ct (mail-header-parse-content-type ct))))
2501 (ctl (and ct (mail-header-parse-content-type ct))))
2567 (ctl (and ct (mail-header-parse-content-type ct))))
2578 (let* ((func (or gnus-article-wash-function mm-text-html-renderer))
2579 (entry (assq func mm-text-html-washer-alist)))
2605 (when (and mm-inline-text-html-with-w3m-keymap
2608 (add-text-properties
2612 'mm-inline-text-html-with-w3m t))))
2627 "w3m" t t nil "-dump" "-T" "text/html"
2629 (mm-inline-wash-with-stdin nil "w3m" "-dump" "-T" "text/html")))
2632 "Remove list identifies from the Subject header.
2659 (unless (gnus-article-check-hidden-text 'pem arg)
2663 ;; Hide the horrendously ugly "header".
2669 (gnus-article-hide-text-type
2678 (gnus-article-hide-text-type
2692 ;; Note that the From header is decoded here, so it is
2694 ;; supports non-ASCII text.
2753 (unless (gnus-article-check-hidden-text 'signature arg)
2758 (gnus-article-hide-text-type
2910 (defun gnus-article-check-hidden-text (type arg)
2916 (let ((hide (gnus-article-hidden-text-p type)))
2922 (gnus-article-show-hidden-text type)
2927 (gnus-article-show-hidden-text type)
2931 (defun gnus-article-hidden-text-p (type)
2932 "Say whether the current buffer contains hidden text of type TYPE."
2933 (let ((pos (text-property-any (point-min) (point-max) 'article-type type)))
2935 (not (get-text-property pos 'invisible))
2936 (not (get-text-property pos 'dummy-invisible)))
2938 (text-property-any (1+ pos) (point-max) 'article-type type)))
2943 (defun gnus-article-show-hidden-text (type &optional dummy)
2944 "Show all hidden text of type TYPE.
2948 (gnus-remove-text-properties-when
2964 (defun gnus-article-forward-header ()
2965 "Move point to the start of the next header.
2966 If the current header is a continuation header, this can be several
2979 `gnus-article-date-lapsed-new-header' says whether the \"X-Sent:\" header
2983 (date-regexp (cond ((not gnus-article-date-lapsed-new-header)
2999 (while (or (setq date (get-text-property (setq pos (point))
3003 (setq date (get-text-property pos 'original-date))
3005 (narrow-to-region pos (or (text-property-any pos (point-max)
3010 (setq bface (get-text-property (gnus-point-at-bol) 'face)
3011 eface (get-text-property (1- (gnus-point-at-eol)) 'face)))
3019 (gnus-article-forward-header)
3023 (gnus-article-forward-header)
3038 (put-text-property (match-beginning 1) (1+ (match-end 1))
3040 (put-text-property (match-beginning 2) (match-end 2)
3042 (put-text-property (point-min) (1- (point-max)) 'original-date date)
3203 "Start a timer to update the X-Sent header in the article buffers.
3232 "Save the original date as a text property and evaluate FORMS."
3246 (put-text-property (point-min) (point) 'original-date date)
3250 (put-text-property (point-min) (point) 'original-date date)))
3253 ;; "Show all hidden text in the article buffer."
3257 ;; (gnus-article-unhide-text (point-min) (point-max)))))
3271 "Emphasize text according to `gnus-emphasis-alist'."
3273 (unless (gnus-article-check-hidden-text 'emphasis arg)
3295 (gnus-article-hide-text
3297 (gnus-article-unhide-text-type
3623 "/" (int-to-string (mail-header-number headers)))
3641 "/" (int-to-string (mail-header-number headers)))
3665 (let ((from (mail-header-from headers)))
3689 (setq headers (mapconcat (lambda (header)
3690 (concat header ": "
3691 (mail-fetch-field header)
3724 (setq bface (get-text-property (gnus-point-at-bol) 'face)
3725 eface (get-text-property (1- (gnus-point-at-eol)) 'face))
3726 (message-remove-header "X-Gnus-PGP-Verify")
3741 (put-text-property (match-beginning 1) (1+ (match-end 1))
3743 (put-text-property (match-end 0) (point-max)
3747 "Verify Cancel-Lock header."
4020 (defun gnus-article-prepare (article &optional all-headers header)
4030 (let* ((gnus-article (if header (mail-header-number header) article))
4080 ;; or at least some text that is now displayed in the
4092 (gnus-summary-article-header gnus-current-article)
4273 (let* ((data (get-text-property (point) 'gnus-data))
4285 (mail-header-encode-parameter "name" (file-name-nondirectory file)))
4328 ,(or (mail-header-references gnus-current-headers) "")
4344 (let* ((data (get-text-property (point) 'gnus-data))
4371 nil `("text/plain") nil nil
4409 ,(or (mail-header-references gnus-current-headers) "")
4421 (let ((data (get-text-property (point) 'gnus-data)))
4429 (let ((data (get-text-property (point) 'gnus-data)))
4437 (let ((data (get-text-property (point) 'gnus-data)))
4446 (let* ((handle (get-text-property (point) 'gnus-data))
4470 (let ((handle (get-text-property (point) 'gnus-data)))
4525 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4551 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4576 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4630 (let ((handle (or handle (get-text-property (point) 'gnus-data)))
4631 (fun (get-text-property (point) 'gnus-callback))
4650 (get-text-property (point) 'gnus-data))))
4651 (setq parts (get-text-property (point) 'gnus-part))
4665 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4688 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4810 (let ((id (get-text-property (point) 'gnus-part))
4857 (gnus-goto-char (text-property-any (point-min) (point-max) 'gnus-part n)))
4945 (mm-uu-dissect-text-parts handles)))
5005 If displaying \"text/html\" is discouraged \(see
5066 display text)
5084 (when (equal (mm-handle-media-supertype handle) "text")
5085 (setq text t)))
5099 handle id (list (or display (and not-attachment text))))
5117 ((and text not-attachment)
5159 (gnus-put-text-property
5186 (gnus-add-text-properties
5208 (gnus-add-text-properties
5254 (let ((alist '((cite "c" "Possible hidden citation text"
5255 " " "All citation text visible")
5273 (put-text-property 0 1 'help-echo on-help on)
5274 (put-text-property 0 1 'help-echo off-help off)
5348 text and used as the value of the coding cookie which is added to the
5356 mm-text-coding-system))
5358 mm-text-coding-system-for-write
5359 mm-text-coding-system))
5375 ;; If the coding system is not suitable to encode the text,
5408 (gnus-remove-text-with-property 'gnus-prev)
5409 (gnus-remove-text-with-property 'gnus-next)))
5505 (if (and (boundp 'header-line-format)
5506 (symbol-value 'header-line-format))
5549 "Decide whether there is only boring text remaining in the article.
5747 The text in the region will be yanked. If the region isn't active,
5766 The text in the region will be yanked. If the region isn't active,
5785 This means that signatures, cited text and (some) headers will be
5787 If given a prefix, show the hidden text instead."
5811 (let (do-update-line sparse-header)
5825 (gnus-read-header article))
5836 (let ((header (gnus-summary-article-header article)))
5842 (setq article (mail-header-id header))
5843 (setq sparse-header (gnus-read-header article))
5846 ((vectorp header)
5848 (setq article (mail-header-id header)))
5852 (gnus-request-pseudo-article header))))
5857 (vectorp header))
5859 (mail-header-id header))))
5980 (gnus-summary-update-article do-update-line sparse-header)
6003 (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
6065 This is an extended text-mode.
6072 (set (make-local-variable 'mail-header-separator) "")
6095 ,(or (mail-header-references gnus-current-headers) "")
6136 ;; We remove all text props from the article buffer.
6138 (gnus-set-text-properties (point-min) (point-max) nil)
6659 ;; This is how URLs _should_ be embedded in text (RFC 1738, RFC 2396)...
6693 REGEXP: is the string (case insensitive) matching text around the button (can
6699 PAR: is a number of a regexp grouping whose text will be passed to CALLBACK.
6712 (defcustom gnus-header-button-alist
6736 HEADER is a regexp to match a header. For a fuller explanation, see
6752 "Check text under the mouse pointer for a callback function.
6753 If the text under the mouse pointer has a `gnus-callback' property,
6754 call it with the value of the `gnus-data' text property."
6758 (data (get-text-property pos 'gnus-data))
6759 (fun (get-text-property pos 'gnus-callback)))
6765 "Check text at point for a callback function.
6766 If the text at point has a `gnus-callback' property,
6767 call it with the value of the `gnus-data' text property."
6769 (let ((data (get-text-property (point) 'gnus-data))
6770 (fun (get-text-property (point) 'gnus-callback)))
6798 "Highlight article headers as specified by `gnus-header-face-alist'."
6803 (let ((alist gnus-header-face-alist)
6807 entry regexp header-face field-face from hpoints fpoints)
6816 header-face (nth 1 entry)
6824 (when (and header-face
6827 (gnus-put-text-property from (point) 'face header-face))
6834 (gnus-put-text-property from (point) 'face field-face))))))))
6859 (text-property-not-all b e prop nil))
6880 (put-text-property (match-beginning (nth 1 entry))
6916 (alist gnus-header-button-alist)
6925 ;; Each header matching the entry.
6932 ;; Each match within a header.
6952 (gnus-add-text-properties
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6976 (gnus-remove-text-properties-when
6981 (gnus-add-text-properties-when
7008 (gnus-set-text-properties
7282 (defvar gnus-decode-header-methods
7297 (defvar gnus-decode-header-methods-cache nil)
7299 (defun gnus-multi-decode-header (start end)
7301 (unless (and gnus-decode-header-methods-cache
7303 (car gnus-decode-header-methods-cache)))
7304 (setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
7307 (nconc gnus-decode-header-methods-cache (list x))
7310 (nconc gnus-decode-header-methods-cache
7312 gnus-decode-header-methods))
7313 (let ((xlist gnus-decode-header-methods-cache))
7424 (or (mail-header-references gnus-current-headers) ""))
7441 (message-remove-header "MIME-Version")
7533 (not (get-text-property (point) 'gnus-mime-details)))
7535 (get-text-property (point) 'gnus-line-format))
7538 (while (eq (get-text-property (point) 'gnus-line-format)
7546 (or (text-property-not-all