Lines Matching +defs:methods +defs:entry
637 (defcustom gnus-split-methods
1605 ;; (modify-syntax-entry ?- "w" table)
1606 (modify-syntax-entry ?> ")<" table)
1607 (modify-syntax-entry ?< "(>" table)
1609 (modify-syntax-entry ?' " " table)
1610 (modify-syntax-entry ?` " " table)
2579 (entry (assq func mm-text-html-washer-alist)))
2580 (when entry
2581 (setq func (cdr entry)))
3381 (let* ((split-name (gnus-get-split-value gnus-split-methods))
3390 ;; Let the split methods have their say.
4666 (mm-user-display-methods nil)
5267 (dolist (entry alist result)
5268 (let ((key (nth 0 entry))
5269 (on (copy-sequence (nth 1 entry)))
5270 (on-help (nth 2 entry))
5271 (off (copy-sequence (nth 3 entry)))
5272 (off-help (nth 4 entry)))
5277 Each entry has the form (KEY ON OF), where the KEY is a symbol
5282 (defun gnus-article-wash-status-entry (key value)
5283 (let ((entry (assoc key gnus-article-wash-status-strings)))
5284 (if value (nth 1 entry) (nth 2 entry))))
5301 (gnus-article-wash-status-entry 'cite cite)
5302 (gnus-article-wash-status-entry 'headers (or headers boring))
5303 (gnus-article-wash-status-entry 'pgp (or pgp pem signed encrypted))
5304 (gnus-article-wash-status-entry 'signature signature)
5305 (gnus-article-wash-status-entry 'overstrike overstrike)
5306 (gnus-article-wash-status-entry 'emphasis emphasis)))))
5318 (let ((entry (assq category gnus-article-image-alist)))
5319 (unless entry
5320 (setq entry (list category))
5321 (push entry gnus-article-image-alist))
5322 (nconc entry (list image))))
5326 (let ((entry (assq category gnus-article-image-alist)))
5327 (dolist (image (cdr entry))
5329 (setq gnus-article-image-alist (delq entry gnus-article-image-alist))
5907 (methods (and (stringp article)
5913 (if (or (not (listp methods))
5914 (and (symbolp (car methods))
5915 (assq (car methods) nnoo-definition-alist)))
5916 (setq methods (list methods)))
5918 methods)
5919 (setq gnus-override-method (pop methods)))
5938 (methods
5939 (setq gnus-override-method (pop methods)))
6208 (defcustom gnus-button-man-handler 'manual-entry
6213 :type '(choice (function-item :tag "Man" manual-entry)
6686 ;; (info|name|...). Put this entry near the _end_ of `gnus-button-alist'
6692 Each entry has the form (REGEXP BUTTON FORM CALLBACK PAR...), where
6732 alist has an additional HEADER element first in each entry:
6807 entry regexp header-face field-face from hpoints fpoints)
6809 (while (setq entry (pop alist))
6812 (if (string-equal "" (nth 0 entry))
6814 (nth 0 entry))
6816 header-face (nth 1 entry)
6817 field-face (nth 2 entry))
6872 beg entry regexp)
6874 (let (marker entry new-list)
6879 (when (setq entry (gnus-button-entry))
6880 (put-text-property (match-beginning (nth 1 entry))
6881 (match-end (nth 1 entry))
6888 (while (setq entry (pop alist))
6889 (setq regexp (eval (car entry)))
6892 (let* ((start (and entry (match-beginning (nth 1 entry))))
6893 (end (and entry (match-end (nth 1 entry))))
6895 (when (and (or (eq t (nth 2 entry))
6896 (eval (nth 2 entry)))
6917 entry beg end)
6920 ;; Each alist entry.
6921 (setq entry (car alist)
6924 (while (re-search-forward (car entry) nil t)
6925 ;; Each header matching the entry.
6931 (while (re-search-forward (eval (nth 1 entry)) end t)
6933 (let* ((entry (cdr entry))
6934 (start (match-beginning (nth 1 entry)))
6935 (end (match-end (nth 1 entry)))
6936 (form (nth 2 entry)))
6940 start end (nth 3 entry)
6941 (buffer-substring (match-beginning (nth 4 entry))
6942 (match-end (nth 4 entry)))))))
6988 (defun gnus-button-entry ()
6989 ;; Return the first entry in `gnus-button-alist' matching this place.
6991 (entry nil))
6993 (setq entry (pop alist))
6994 (if (looking-at (eval (car entry)))
6996 (setq entry nil)))
6997 entry))
7003 (let* ((entry (gnus-button-entry))
7005 (fun (nth 3 entry))
7011 (nthcdr 4 entry))))
7282 (defvar gnus-decode-header-methods
7284 "List of methods used to decode headers.
7297 (defvar gnus-decode-header-methods-cache nil)
7300 "Apply the functions from `gnus-encoded-word-methods' that match."
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))