Lines Matching +defs:pattern +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 '(?! ?% ?@))
318 ;; (defconst mail-extr-bad-initials-pattern
325 (defconst mail-extr-bad-dot-pattern
333 ;; (defconst mail-extr-nickname-pattern
343 (defconst mail-extr-full-name-suffix-pattern
349 (defconst mail-extr-roman-numeral-pattern (purecopy "V?I+V?\\b"))
353 (defconst mail-extr-weird-acronym-pattern
358 ;; (defconst mail-extr-mixed-case-name-pattern
369 (defconst mail-extr-alternative-address-pattern
374 (defconst mail-extr-trailing-comment-start-pattern
380 (defconst mail-extr-name-pattern
386 (defconst mail-extr-initial-pattern
390 ;; (defconst mail-extr-last-name-first-pattern
391 ;; (purecopy (concat "\\`" mail-extr-name-pattern ",")))
394 (defconst mail-extr-telephone-extension-pattern
404 (defconst mail-extr-ham-call-sign-pattern
418 (defconst mail-extr-normal-name-pattern
425 ;; (defconst mail-extr-one-name-pattern
426 ;; (purecopy (concat "\\`" mail-extr-normal-name-pattern "\\'")))
432 (defconst mail-extr-two-name-pattern
434 (concat "\\`\\(" mail-extr-normal-name-pattern
435 "\\|" mail-extr-initial-pattern
436 "\\) +\\(" mail-extr-name-pattern "\\)\\(,\\|\\'\\)")))
438 (defconst mail-extr-listserv-list-name-pattern
439 (purecopy "Multiple recipients of list \\([-A-Z]+\\)"))
441 (defconst mail-extr-stupid-vms-date-stamp-pattern
461 (defconst mail-extr-hz-embedded-gb-encoded-chinese-pattern
466 (defconst mail-extr-x400-encoded-address-pattern
469 (defconst mail-extr-x400-encoded-address-field-pattern-format
472 (defconst mail-extr-x400-encoded-address-surname-pattern
475 (format mail-extr-x400-encoded-address-field-pattern-format "[Ss]")))
477 (defconst mail-extr-x400-encoded-address-given-name-pattern
480 (format mail-extr-x400-encoded-address-field-pattern-format "[Gg]")))
482 (defconst mail-extr-x400-encoded-address-full-name-pattern
489 (format mail-extr-x400-encoded-address-field-pattern-format "[Pp][Nn]")))
639 (defmacro mail-extr-nuke-outside-range (list-symbol
643 LIST-SYMBOL names a variable holding a list of buffer positions
646 deleted from the list.
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)))
937 ;; Check for : that indicates GROUP list and for : part of
1054 (setq saved-@-pos (list (point)))))
1245 ;;; (while (re-search-forward mail-extr-bad-dot-pattern nil t)
1322 ((looking-at mail-extr-x400-encoded-address-pattern)
1327 (lambda (field-pattern)
1330 (re-search-forward field-pattern nil t))
1335 (list mail-extr-x400-encoded-address-given-name-pattern
1336 mail-extr-x400-encoded-address-surname-pattern
1337 mail-extr-x400-encoded-address-full-name-pattern))
1345 (while (re-search-forward mail-extr-bad-dot-pattern nil t)
1387 (looking-at mail-extr-two-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))
1517 ;;(while (re-search-forward mail-extr-bad-dot-pattern nil t)
1532 (while (re-search-forward mail-extr-bad-dot-pattern nil t)
1575 (looking-at mail-extr-full-name-suffix-pattern))
1648 ((looking-at mail-extr-stupid-vms-date-stamp-pattern)
1652 ((looking-at mail-extr-hz-embedded-gb-encoded-chinese-pattern)
1672 (looking-at mail-extr-weird-acronym-pattern)
1673 (not (looking-at mail-extr-roman-numeral-pattern)))
1676 (looking-at mail-extr-alternative-address-pattern)
1680 (looking-at mail-extr-trailing-comment-start-pattern)
1684 (looking-at mail-extr-telephone-extension-pattern)))
1688 ((looking-at mail-extr-ham-call-sign-pattern)
1692 ((looking-at mail-extr-initial-pattern)
1703 ;; Handle BITNET LISTSERV list names.
1705 (looking-at mail-extr-listserv-list-name-pattern))
1733 ((looking-at mail-extr-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)))