Variable: gnus-button-mid-or-mail-heuristic-alist

gnus-button-mid-or-mail-heuristic-alist is a customizable variable defined in gnus-art.el.gz.

Value

((-10.0 . ".+\\$.+@")
 (-10.0 . "#")
 (-10.0 . "\\*")
 (-5.0 . "\\+[^+]*\\+.*@")
 (-5.0 . "@[Nn][Ee][Ww][Ss]")
 (-5.0 . "@.*[Dd][Ii][Aa][Ll][Uu][Pp]")
 (-1.0 . "^[^a-z]+@")
 (-5.0 . "\\.[0-9][0-9]+.*@")
 (-5.0 . "[a-z].*[A-Z].*[a-z].*[A-Z].*@")
 (-3.0 . "[A-Z][A-Z][a-z][a-z].*@")
 (-5.0 . "\\...?.?@")
 (-2.0 . "^[0-9]")
 (-1.0 . "^[0-9][0-9]")
 (-3.0 . "^[0-9][[:xdigit:]][[:xdigit:]][^[:xdigit:]]")
 (-5.0 . "^[0-9][[:xdigit:]][[:xdigit:]][[:xdigit:]][^[:xdigit:]]")
 (-3.0 . "[0-9][0-9][0-9][0-9][0-9][^0-9].*@")
 (-3.0 . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9].*@")
 (-3.0 . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].*@")
 (25.0 . "-dated-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]+.*@")
 (-20.0 . "\\.fsf@")
 (-20.0 . "^slrn")
 (-20.0 . "^Pine")
 (-20.0 . "^alpine\\.")
 (-20.0 . "_-_")
 (-20.0 . "\\.ln@")
 (-30.0 . "@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de")
 (-30.0 . "@4[Aa][Xx]\\.com")
 (10.0 . "^[^0-9]+@")
 (3.0 . "^[^0-9]+[0-9][0-9]?[0-9]?@")
 (3.0 . "@stud")
 (2.0 . "[a-z][a-z][._-][A-Z][a-z].*@")
 (0.5 . "^[A-Z][a-z]")
 (0.5 . "^[A-Z][a-z][a-z]")
 (1.5 . "^[A-Z][a-z][A-Z][a-z][^a-z]")
 (2.0 . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]"))

Documentation

An alist of (RATE . REGEXP) pairs for gnus-button-mid-or-mail-heuristic.

A negative RATE indicates a message ID, whereas a positive indicates a mail address. The REGEXP is processed with case-fold-search set to nil.

This variable was added, or its default value changed, in Emacs 22.1.

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-art.el.gz
(defcustom gnus-button-mid-or-mail-heuristic-alist
  '((-10.0 . ".+\\$.+@")
    (-10.0 . "#")
    (-10.0 . "\\*")
    (-5.0  . "\\+[^+]*\\+.*@") ;; # two plus signs
    (-5.0  . "@[Nn][Ee][Ww][Ss]") ;; /\@news/i
    (-5.0  . "@.*[Dd][Ii][Aa][Ll][Uu][Pp]") ;; /\@.*dialup/i;
    (-1.0  . "^[^a-z]+@")
    ;;
    (-5.0  . "\\.[0-9][0-9]+.*@") ;; "\.[0-9]{2,}.*\@"
    (-5.0  . "[a-z].*[A-Z].*[a-z].*[A-Z].*@") ;; "([a-z].*[A-Z].*){2,}\@"
    (-3.0  . "[A-Z][A-Z][a-z][a-z].*@")
    (-5.0  . "\\...?.?@") ;; (-5.0 . "\..{1,3}\@")
    ;;
    (-2.0  . "^[0-9]")
    (-1.0  . "^[0-9][0-9]")
    ;;
    ;; -3.0 /^[0-9][[:xdigit:]]{2,2}/;
    (-3.0  . "^[0-9][[:xdigit:]][[:xdigit:]][^[:xdigit:]]")
    ;; -5.0 /^[0-9][[:xdigit:]]{3,3}/;
    (-5.0  . "^[0-9][[:xdigit:]][[:xdigit:]][[:xdigit:]][^[:xdigit:]]")
    ;;
    (-3.0  .  "[0-9][0-9][0-9][0-9][0-9][^0-9].*@") ;; "[0-9]{5,}.*\@"
    (-3.0  .  "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][^0-9].*@")
    ;;       "[0-9]{8,}.*\@"
    (-3.0
     . "[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].*@")
    ;; "[0-9]{12,}.*\@"
    ;; compensation for TDMA dated mail addresses:
    (25.0  . "-dated-[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9]+.*@")
    ;;
    (-20.0 . "\\.fsf@")	;; Gnus
    (-20.0 . "^slrn")
    (-20.0 . "^Pine")
    (-20.0 . "^alpine\\.")
    (-20.0 . "_-_") ;; Subject change in thread
    ;;
    (-20.0 . "\\.ln@") ;; leafnode
    (-30.0 . "@ID-[0-9]+\\.[a-zA-Z]+\\.dfncis\\.de")
    (-30.0 . "@4[Aa][Xx]\\.com") ;; Forte Agent
    ;;
    ;; (5.0 . "") ;; $local_part_len <= 7
    (10.0  . "^[^0-9]+@")
    (3.0   . "^[^0-9]+[0-9][0-9]?[0-9]?@")
    ;;      ^[^0-9]+[0-9]{1,3}\@ digits only at end of local part
    (3.0   . "@stud")
    ;;
    (2.0   . "[a-z][a-z][._-][A-Z][a-z].*@")
    ;;
    (0.5   . "^[A-Z][a-z]")
    (0.5   . "^[A-Z][a-z][a-z]")
    (1.5   . "^[A-Z][a-z][A-Z][a-z][^a-z]") ;; ^[A-Z][a-z]{3,3}
    (2.0   . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]")) ;; ^[A-Z][a-z]{4,4}
  "An alist of (RATE . REGEXP) pairs for `gnus-button-mid-or-mail-heuristic'.

A negative RATE indicates a message ID, whereas a positive indicates a mail
address.  The REGEXP is processed with `case-fold-search' set to nil."
  :version "22.1"
  :group 'gnus-article-buttons
  :type '(repeat (cons (number :tag "Rate")
		       (regexp :tag "Regexp"))))