Lines Matching +defs:remove +defs:list +defs:of +defs:text +defs:properties
9 ;; This file is part of GNU Emacs.
12 ;; it under the terms of the GNU General Public License as published by
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; You should have received a copy of the GNU General Public License
158 This variable can also be a list of regexps of headers to be ignored.
168 This variable can also be a list of regexp of headers to remain visible.
174 (widget-editable-list-match widget value)))
178 (defcustom gnus-sorted-header-list
181 "*This variable is a list of regular expressions.
184 this list."
190 Possible values in this list are:
195 'to-list To identical to To-list.
196 'cc-list CC identical to To-list.
205 (const :tag "To identical to To-list." to-list)
206 (const :tag "CC identical to To-list." cc-list)
215 "Skip over text that is not worth reading.
218 only of boring text. Boring text is controlled by
226 This can also be a list of regexps. In that case, it will be checked
228 the end of the buffer."
231 (repeat :tag "List of regexp" regexp))
241 regexp. If it matches, the text in question is not a signature."
249 (defcustom gnus-hidden-properties '(invisible t intangible t)
250 "Property list to use for hiding text."
292 "Alist of regexps (to match group names) and banner."
302 "If non-nil, specify how to remove `banners' from articles.
304 Symbol `signature' means to remove signatures delimited by
311 "Alist of mail addresses and banners.
313 to match a mail address in the From: header, BANNER is one of a symbol
315 If ADDRESS matches author's mail address, it will remove things like
340 (list (format format (car (car value)) (cdr (car value)))
354 (list (cons (match-string 1 pattern) (match-string 2 pattern))
371 (list (format format (car spec) (cadr spec))
377 ;; several times seen it triggered by normal text. --Stef
436 The former avoids underlining of leading and trailing whitespace,
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-)."
484 "Format for display of Date headers in article bodies.
495 "*If non-nil, don't remove any headers before saving.
496 This will be overridden by the `:headers' property that the symbol of
507 saving large batches of articles. If this variable is neither nil not
509 each invocation of the saving commands."
521 that the symbol of the saver function, which is specified by
528 The function will be called by way of the `gnus-summary-save-article'
542 The symbol of each function may have the following properties:
557 The value specifies the symbol of a variable of which the value
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
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.
653 from the buffer of the article to be saved with the newsgroup as the
654 parameter. If it is a list, it will be evaled in the same buffer.
657 a possible file name; and if it returns a non-nil list, that list will
660 :type '(repeat (choice (list :value (fun) function)
667 beginning of a line."
678 %m The number of MIME parts in the article."
695 "*Hook run after the creation of the article mode menu."
710 An article button is a piece of text that you can activate by pressing
820 "*Controls highlighting of article headers.
822 An alist of the form (HEADER NAME CONTENT).
824 HEADER is a regular expression which should match the name of a
827 The name of each header field will be displayed using the face
828 specified by the first element in the list where HEADER matches
833 :type '(repeat (list (regexp :tag "Header")
882 "List of MIME types that should be ignored by Gnus."
888 "List of MIME types that should not be given buttons when rendered inline.
896 "List of MIME types that should be given buttons when rendered inline.
900 this list to display radio buttons that allow you to choose one of two
927 "Defines the location of the faces database.
928 For information on obtaining this database of pretty pictures, please
954 "An alist of MIME types to functions to display them."
989 ("display as text" . gnus-mime-inline-part)
997 "An alist of actions that run on the MIME attachment."
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.
1143 (defcustom gnus-treat-strip-list-identifiers 'head
1144 "Strip list identifiers from `gnus-list-identifiers`.
1182 "Highlight cited text.
1250 "Strip the X-No-Archive header line from the beginning of the body.
1442 "Draw a boundary at the end of the headers.
1518 "Function used for converting HTML into text.")
1523 "Whether IDNA decoding of headers is used when viewing messages.
1530 "If non-nil, allow scrolling the article buffer even when there no more text."
1555 (gnus-treat-strip-cr gnus-article-remove-cr)
1569 (gnus-treat-strip-list-identifiers gnus-article-hide-list-identifiers)
1570 (gnus-treat-leading-whitespace gnus-article-remove-leading-whitespace)
1578 gnus-article-remove-trailing-blank-lines)
1603 (let ((table (copy-syntax-table text-mode-syntax-table)))
1613 Initialized from `text-mode-syntax-table.")
1622 (defvar gnus-number-of-articles-to-be-saved nil)
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)
1667 (when (memq 'intangible 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
1675 b e (cons 'article-type (cons type gnus-hidden-properties))))
1677 (defun gnus-article-unhide-text-type (b e type)
1678 "Unhide text of TYPE between B and E."
1680 (remove-text-properties
1681 b e (cons 'article-type (cons type gnus-hidden-properties)))
1682 (when (memq 'intangible gnus-hidden-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)
1708 (end-of-line)
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))
1731 "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
1732 (let ((list gnus-sorted-header-list)
1734 (while list
1735 (if (looking-at (car list))
1736 (setq list nil)
1737 (setq list (cdr list))
1748 (max (1+ (length gnus-sorted-header-list)))
1777 ;; Hide any "From " lines at the beginning of (mail) articles.
1782 ;; Then treat the rest of the header lines.
1788 (beginning-of-line)
1789 ;; Mark the rank of the header.
1790 (put-text-property
1799 (when (setq beg (text-property-any
1803 (add-text-properties (point-min) (+ 5 (point-min))
1808 "Toggle hiding of headers that aren't very interesting.
1812 (when (and (not (gnus-article-check-hidden-text 'boring-headers arg))
1817 (list gnus-boring-article-headers)
1821 (while list
1822 (setq elem (pop list))
1829 (gnus-article-hide-text-type
1832 (end-of-line)
1859 ((eq elem 'to-list)
1861 (to-list
1862 (gnus-parameter-to-list
1865 (when (and to to-list
1870 to-list)))
1872 ((eq elem 'cc-list)
1874 (to-list
1875 (gnus-parameter-to-list
1878 (when (and cc to-list
1883 to-list)))
1959 (gnus-article-hide-text-type
1962 (end-of-line)
1969 "Length of normalized headers.")
1983 (end-of-line)
1988 (gnus-put-text-property
2000 "Translate M****s*** sm*rtq**t*s and other symbols into proper text.
2007 you're expecting some kind of apostrophe or quotation mark, then
2013 "Translate all characters in the body of the article according to FROM and TO.
2014 FROM is a string of characters to translate from; to is a string of
2030 "Translate all string in the body of the article according to MAP.
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
2100 "Toggle display of textual emoticons (\"smileys\") as small graphical icons."
2112 (defun gnus-article-remove-images ()
2134 "Place a boundary line at the end of the headers."
2142 (gnus-add-text-properties start (point) '(invisible t intangible t))
2148 (gnus-put-text-property start (point) 'gnus-decoration 'header)))))
2160 (end-of-line)
2181 (defun article-remove-cr ()
2193 (defun article-remove-trailing-blank-lines ()
2250 (interactive (list 'force))
2258 ;; We have already displayed X-Faces, so we remove them
2279 (setq x-faces (list (car x-faces))))
2325 "Decode charset-encoded text in the article.
2359 ;; The text code could have been decoded.
2362 (equal (car ctl) "text/plain"))
2465 (interactive (list 'force current-prefix-arg))
2493 (interactive (list 'force current-prefix-arg))
2560 (list (cons 1 charset))))
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
2610 (list 'keymap w3m-minor-mode-map
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")))
2631 (defun article-hide-list-identifiers ()
2632 "Remove list identifies from the Subject header.
2633 The `gnus-list-identifiers' variable specifies what to do."
2636 (regexp (if (consp gnus-list-identifiers)
2637 (mapconcat 'identity gnus-list-identifiers " *\\|")
2638 gnus-list-identifiers))
2649 (beginning-of-line))
2655 "Toggle hiding of any PEM headers and signatures in the current article.
2659 (unless (gnus-article-check-hidden-text 'pem arg)
2669 (gnus-article-hide-text-type
2678 (gnus-article-hide-text-type
2694 ;; supports non-ASCII text.
2753 (unless (gnus-article-check-hidden-text 'signature arg)
2758 (gnus-article-hide-text-type
2772 "Remove all blank lines from the beginning of the article."
2783 "Narrow the buffer to the head of the message.
2784 Point is left at the beginning of the narrowed-to region."
2793 "Place point at the start of the body."
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."
2849 (article-remove-trailing-blank-lines)
2870 (list gnus-signature-limit)))
2890 Put point at the beginning of the signature separator."
2906 (list (if current-prefix-arg
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.
2945 Originally it is hide instead of DUMMY."
2948 (gnus-remove-text-properties-when
2952 gnus-hidden-properties)))
2965 "Move point to the start of the next header.
2978 how much time has lapsed since DATE. For `lapsed', the value of
2981 (interactive (list 'ut t))
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)))
3036 (beginning-of-line)
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)
3047 "Return a DATE line of TYPE."
3067 (cond ((< ls 0) (list (1- ms) (+ ls 65536)))
3068 ((> ls 65535) (list (1+ ms) (- ls 65536)))
3069 (t (list ms ls)))))
3151 " of "
3164 (interactive (list t))
3169 (interactive (list t))
3176 (interactive (list t))
3181 (interactive (list t))
3223 (interactive (list t))
3228 (interactive (list t))
3232 "Save the original date as a text property and evaluate FORMS."
3242 (buffer-substring-no-properties start
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)))))
3259 (defun article-remove-leading-whitespace ()
3271 "Emphasize text according to `gnus-emphasis-alist'."
3273 (unless (gnus-article-check-hidden-text 'emphasis arg)
3283 gnus-hidden-properties))
3295 (gnus-article-hide-text
3297 (gnus-article-unhide-text-type
3335 ;; of the `:headers' property that the saver function might have.
3356 (gnus-number-of-articles-to-be-saved
3384 (if (and gnus-number-of-articles-to-be-saved
3385 (> gnus-number-of-articles-to-be-saved 1))
3387 gnus-number-of-articles-to-be-saved)
3421 ;; A list of splits was found.
3452 "Return the first instance of an \"Archive-name\" in the current buffer."
3459 "If GROUP is an nndoc group, return the name of the parent group."
3575 (if (and gnus-number-of-articles-to-be-saved
3576 (> gnus-number-of-articles-to-be-saved 1))
3578 gnus-number-of-articles-to-be-saved)
3708 (let ((mm-security-handle (list (format "multipart/signed"))))
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)
3765 (interactive (list t))
3778 article-remove-cr
3779 article-remove-leading-whitespace
3787 article-hide-list-identifiers
3793 article-remove-trailing-blank-lines
3836 "<" beginning-of-buffer
3837 ">" end-of-buffer
3877 ["Remove carriage return" gnus-article-remove-cr t]
3878 ["Remove leading whitespace" gnus-article-remove-leading-whitespace t]
3920 (make-local-variable 'gnus-button-marker-list)
3942 (defvar gnus-button-marker-list nil
3943 "Regexp matching any of the regexps from `gnus-button-alist'.")
3945 "The value of `gnus-button-alist' when `gnus-button-regexp' was build.")
3993 ;; This list just keeps growing if we don't reset it.
3994 (setq gnus-button-marker-list nil)
4005 ;; Set article window start at LINE, where LINE is the number of lines
4006 ;; from the head of the article.
4080 ;; or at least some text that is now displayed in the
4154 "Format of the MIME buttons.
4161 %l The length of the encoded part
4227 t (list (car menu)
4235 "Construct a context-sensitive menu of MIME commands."
4255 (mm-remove-parts handles)
4267 (error "The current group does not support deleting of parts"))
4273 (let* ((data (get-text-property (point) 'gnus-data))
4283 ;; Add a filename for the sake of saving the part again.
4304 (mbl mml-buffer-list))
4305 (setq mml-buffer-list nil)
4309 (let ((mbl1 mml-buffer-list))
4310 (setq mml-buffer-list mbl)
4311 (set (make-local-variable 'mml-buffer-list) mbl1))
4324 (remove-hook 'kill-buffer-hook
4326 (kill-local-variable 'mml-buffer-list))
4338 (error "The current group does not support deleting of parts"))
4344 (let* ((data (get-text-property (point) 'gnus-data))
4371 nil `("text/plain") nil nil
4372 (list "attachment")
4375 ;; FIXME: maybe some of the following code (borrowed from
4385 (mbl mml-buffer-list))
4386 (setq mml-buffer-list nil)
4390 (let ((mbl1 mml-buffer-list))
4391 (setq mml-buffer-list mbl)
4392 (set (make-local-variable 'mml-buffer-list) mbl1))
4405 (remove-hook 'kill-buffer-hook
4407 (kill-local-variable 'mml-buffer-list))
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))
4466 (mapcar #'list (mailcap-mime-types))
4470 (let ((handle (get-text-property (point) 'gnus-data)))
4513 t (list t err-file) nil
4515 jka-compr-acceptable-retval-list)
4525 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4549 (interactive (list nil (ps-print-preprint current-prefix-arg)))
4551 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4574 (interactive (list nil current-prefix-arg))
4576 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4582 (mm-remove-part handle)
4591 (mm-remove-part handle))
4598 (mm-remove-part handle))))
4628 (interactive (list nil current-prefix-arg))
4630 (let ((handle (or handle (get-text-property (point) 'gnus-data)))
4631 (fun (get-text-property (point) 'gnus-callback))
4636 (mm-remove-part handle))
4650 (get-text-property (point) 'gnus-data))))
4651 (setq parts (get-text-property (point) 'gnus-part))
4657 (list 'quote (or (cadr (member preferred parts))
4665 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4680 (mm-remove-part handle)
4688 (let* ((handle (or handle (get-text-property (point) 'gnus-data)))
4701 (mm-remove-part handle)
4707 (list (completing-read "Action: " gnus-mime-action-alist nil t)))
4810 (let ((id (get-text-property (point) 'gnus-part))
4832 ;; This will remove the part.
4852 handle id (list (mm-handle-displayed-p handle)))
4857 (gnus-goto-char (text-property-any (point-min) (point-max) 'gnus-part n)))
4945 (mm-uu-dissect-text-parts handles)))
4990 If t, it overrides nil values of
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))))
5101 ;; Remember modify the number of forward lines.
5117 ((and text not-attachment)
5159 (gnus-put-text-property
5177 (mm-remove-parts handles))
5178 (setq begend (list (point-marker)))
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)
5275 (push (list key on off) result))))
5276 "Alist of strings describing wash status in the mode line.
5287 "Return a string which display status of article washing."
5309 "Add a washing of TYPE to the current status."
5310 (add-to-list 'gnus-article-wash-types type))
5313 "Add a washing of TYPE to the current status."
5317 "Add IMAGE of CATEGORY to the list of displayed images."
5320 (setq entry (list category))
5322 (nconc entry (list image))))
5328 (gnus-remove-image image category))
5348 text and used as the value of the coding cookie which is added to the
5349 top of a file. Otherwise, this function saves a raw article without
5356 mm-text-coding-system))
5358 mm-text-coding-system-for-write
5359 mm-text-coding-system))
5370 ;; Append newline at end of the buffer as separator, and then
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)))
5440 "Show the next page of the article."
5448 "Show the previous page of the article."
5457 ;; "Show the next page of the article."
5463 ;; "Show the next page of the article."
5469 "Show the next page of the current article.
5470 If end of article, return non-nil. Otherwise return nil.
5475 (end-of-line)
5484 (eobp)))) ;Real end-of-buffer?
5495 (defmacro gnus-article-beginning-of-window ()
5496 "Move point to the beginning of the window.
5516 ;; too many number of lines if `scroll-margin' is set as two or greater.
5523 (end-of-buffer
5524 ;; Long lines may cause an end-of-buffer error.
5526 (gnus-article-beginning-of-window))
5529 "Show previous page of current article.
5535 (not (save-restriction (widen) (bobp)))) ;Real beginning-of-buffer?
5544 (beginning-of-buffer
5546 (gnus-article-beginning-of-window))))
5549 "Decide whether there is only boring text remaining in the article.
5550 Something \"interesting\" is a word of at least two letters that does
5617 (error "Command invoked outside of a Gnus article buffer")))
5704 "Display documentation of the function invoked by KEY. KEY is a string."
5718 (lambda (x) (if (>= x 128) (list 'meta (- x 128)) x))
5719 (string-to-list key)))
5725 "Display documentation of the function invoked by KEY. KEY is a string."
5739 (lambda (x) (if (>= x 128) (list 'meta (- x 128)) x))
5740 (string-to-list key)))
5747 The text in the region will be yanked. If the region isn't active,
5754 (gnus-summary-reply (list (list article)) wide))
5762 (list (list article contents)) wide)))))
5766 The text in the region will be yanked. If the region isn't active,
5773 (gnus-summary-followup (list (list article))))
5781 (list (list article contents)))))))
5785 This means that signatures, cited text and (some) headers will be
5787 If given a prefix, show the hidden text instead."
5788 (interactive (append (gnus-article-hidden-arg) (list 'force)))
5790 (gnus-article-hide-list-identifiers arg)
5829 ;; message-id and request it by id instead of number.
5916 (setq methods (list methods)))
6003 (set-keymap-parent gnus-article-edit-mode-map text-mode-map)
6035 "\C-a" message-beginning-of-line
6065 This is an extended text-mode.
6083 If FORCE is non-nil, allow editing of articles even in read-only
6099 "Start editing the contents of the current article buffer."
6126 (gnus-backlog-remove-article
6136 ;; We remove all text props from the article buffer.
6138 (gnus-set-text-properties (point-min) (point-max) nil)
6169 "Interactively repair spacing at end of sentences."
6203 "Regular expression that matches a localpart of mail addresses or MIDs."
6219 "Top directory of a CTAN \(Comprehensive TeX Archive Network\) archive.
6248 (list "archive-tools" "biblio" "bibliography" "digests" "documentation"
6253 It should match all directories in the top level of `gnus-ctan-url'."
6270 of the symbols `mid' or `mail', Gnus will always assume that the string is a
6326 ;; ^[^0-9]+[0-9]{1,3}\@ digits only at end of local part
6335 "An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
6349 (list gnus-button-mid-or-mail-heuristic-alist)
6353 (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
6368 (while list
6369 (setq elem (car list)
6372 list (cdr list))
6421 ;; get rid of surrounding angles...
6446 ;; FIXME: Maybe we should merge some of the functions that do quite similar
6468 (t (gnus-message 3 "`%s' is not a known function of variable." url)))))
6659 ;; This is how URLs _should_ be embedded in text (RFC 1738, RFC 2396)...
6684 ;; all kind of allowed MIDs or mail addresses. Domain part must contain
6686 ;; (info|name|...). Put this entry near the _end_ of `gnus-button-alist'
6690 "*Alist of regexps matching buttons in article bodies.
6693 REGEXP: is the string (case insensitive) matching text around the button (can
6695 BUTTON: is the number of the regexp grouping actually matching the button,
6699 PAR: is a number of a regexp grouping whose text will be passed to CALLBACK.
6701 CALLBACK can also be a variable, in that case the value of that
6704 :type '(repeat (list (choice regexp variable sexp)
6729 "*Alist of headers and regexps to match buttons in article heads.
6740 :type '(repeat (list (regexp :tag "Header")
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)))
6780 (interactive (list 'force))
6792 (interactive (list 'force))
6820 (beginning-of-line)
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))
6862 "Find external references in the article and make buttons of them.
6865 (interactive (list 'force))
6874 (let (marker entry new-list)
6875 (while (setq marker (pop gnus-button-marker-list))
6877 (push marker new-list)
6880 (put-text-property (match-beginning (nth 1 entry))
6884 (setq gnus-button-marker-list new-list))
6904 gnus-button-marker-list))))))))))
6906 ;; Add buttons to the head of an article.
6908 "Add buttons to the head of the article."
6952 (gnus-add-text-properties
6955 (list gnus-mouse-face-prop gnus-article-mouse-face))
6956 (list 'gnus-callback fun)
6957 (and data (list 'gnus-data data))))
6973 (if (text-property-any end (point-max) 'article-type 'signature)
6976 (gnus-remove-text-properties-when
6979 gnus-hidden-properties))))
6981 (gnus-add-text-properties-when
6984 gnus-hidden-properties)))))
7008 (gnus-set-text-properties
7047 (list scheme server port group message-id articles)))
7059 (nconc (list (list 'nntp server))
7142 (and (match-end 6) (list (string-to-number (match-string 6 address))))))))
7159 (setq retval (cons (list key val) retval)))))
7284 "List of methods used to decode headers.
7286 This variable is a list of FUNCTION or (REGEXP . FUNCTION). If item
7304 (setq gnus-decode-header-methods-cache (list gnus-newsgroup-name))
7307 (nconc gnus-decode-header-methods-cache (list x))
7311 (list (cdr x))))))
7331 (let ((list gnus-article-treat-types))
7332 (while list
7333 (when (string-match (pop list) type)
7398 (list
7441 (message-remove-header "MIME-Version")
7458 (gnus-backlog-remove-article
7475 (defvar gnus-mime-security-button-end-line-format "%{%([[End of %t]%D]%)%}\n"
7504 (mm-remove-parts (cdr handle))
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