Lines Matching +defs:range +defs:list
34 ;; Returns a list of the form (FULL-NAME CANONICAL-ADDRESS).
44 ;; that are found in ADDRESS. The value is a list of elements of
176 ;; middle of a name no longer terminate it. Handle LISTSERV list
269 ;;(defvar mail-operator-precedence-list '(?! ?% ?@))
438 (defconst mail-extr-listserv-list-name-pattern
439 (purecopy "Multiple recipients of list \\([-A-Z]+\\)"))
460 ;; ($7E7D) is outside the defined GB range.)
511 ;; modifying syntax of a range of characters
636 (put 'mail-extr-nuke-outside-range
639 (defmacro mail-extr-nuke-outside-range (list-symbol
643 LIST-SYMBOL names a variable holding a list of buffer positions
644 BEG-SYMBOL and END-SYMBOL name variables delimiting a range
645 Each element of LIST-SYMBOL which lies outside of the range is
646 deleted from the list.
648 which lie outside of the range, one character at that position is
652 `(let ((temp ,list-symbol)
663 (setq ,list-symbol (delq nil ,list-symbol))))
707 Returns a list of the form (FULL-NAME CANONICAL-ADDRESS). If no
713 or more recipients, separated by commas, and we return a list of
724 value-list)
760 (while (and (or all (null value-list))
907 (setq <-pos (list (point)))
913 (setq >-pos (list (point)))
930 (mail-extr-nuke-outside-range @-pos <-pos >-pos t)
934 (mail-extr-nuke-outside-range !-pos <-pos >-pos t)
935 (mail-extr-nuke-outside-range %-pos <-pos >-pos t))
937 ;; Check for : that indicates GROUP list and for : part of
985 (mail-extr-nuke-outside-range !-pos group-:-pos group-\;-pos t)
986 (mail-extr-nuke-outside-range @-pos group-:-pos group-\;-pos t)
987 (mail-extr-nuke-outside-range %-pos group-:-pos group-\;-pos t)
988 (mail-extr-nuke-outside-range comma-pos group-:-pos group-\;-pos t)
1014 (mail-extr-nuke-outside-range comma-pos 1 1)
1054 (setq saved-@-pos (list (point)))))
1087 (mail-extr-nuke-outside-range %-pos (point-min) @-pos))
1089 (mail-extr-nuke-outside-range !-pos (point-min) (car %-pos)))
1091 (mail-extr-nuke-outside-range !-pos (point-min) @-pos))
1335 (list mail-extr-x400-encoded-address-given-name-pattern
1431 (setq value-list
1432 (cons (list (if (not (= (point-min) (point-max)))
1437 value-list))
1449 (if all (nreverse value-list) (car value-list))
1703 ;; Handle BITNET LISTSERV list names.
1705 (looking-at mail-extr-listserv-list-name-pattern))
1850 ;; http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt
2137 (list (completing-read "Domain: "
2154 ; (list x (symbol-value x)))