2003-01-13  Jhair Tocancipa Triana <jhair_tocancipa@gmx.net>

	* gnus-art.el: (gnus-button-mid-or-mail-heuristic-alist): New
        regexp to handle t-online aliases.

        * gnus-art.el: (gnus-button-mid-or-mail-heuristic): Special cases
        moved to gnus-button-mid-or-mail-heuristic-alist.

--- gnus-art.el	3 May 2003 16:47:19 -0000	6.346
+++ gnus-art.el	4 May 2003 09:27:43 -0000
@@ -5749,7 +5749,11 @@
     (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}
+    (2.0   . "^[A-Z][a-z][A-Z][a-z][a-z][^a-z]") ;; ^[A-Z][a-z]{4,4}
+    ;; Certain special cases...
+    (30.0  . "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$") 
+    (30.0  . "^[A-Za-z]+[A-Za-z._-]\\{4,29\\}@t-online\\.de$") 
+    (30.0  . "^[0-9]+\.[0-9]+\@compuserve"))
   "An alist of \(RATE . REGEXP\) pairs for `gnus-button-mid-or-mail-heuristic'.
 
 A negative RATE indicates a message IDs, whereas a positive indicates a mail
@@ -5768,14 +5772,6 @@
     (setq lpartlen
 	  (length (gnus-replace-in-string mid-or-mail "^\\(.*\\)@.*$" "\\1")))
     (gnus-message 8 "`%s', length of local part=`%s'." mid-or-mail lpartlen)
-    ;; Certain special cases...
-    (when (string-match
-	   (concat
-	    "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$" "\\|"
-	    "^[0-9]+\.[0-9]+\@compuserve")
-	   mid-or-mail)
-      (gnus-message 8 "`%s' is a known mail address.")
-      (setq result 'mail))
     (when (string-match "@.*@\\| " mid-or-mail)
       (gnus-message 8 "`%s' is invalid.")
       (setq result 'invalid))