From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/52208 Path: main.gmane.org!not-for-mail From: Jhair Tocancipa Triana Newsgroups: gmane.emacs.gnus.general Subject: [patch] gnus-art.el handling for t-online addresses Date: Sun, 04 May 2003 11:36:22 +0200 Sender: ding-owner@lists.math.uh.edu Message-ID: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1052040989 25436 80.91.224.249 (4 May 2003 09:36:29 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 4 May 2003 09:36:29 +0000 (UTC) Original-X-From: ding-owner+M751@lists.math.uh.edu Sun May 04 11:36:27 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19CFv0-0006bv-00 for ; Sun, 04 May 2003 11:36:26 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19CFvb-00048v-00; Sun, 04 May 2003 04:37:03 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19CFvW-00048q-00 for ding@lists.math.uh.edu; Sun, 04 May 2003 04:36:58 -0500 Original-Received: (qmail 45138 invoked by alias); 4 May 2003 09:36:57 -0000 Original-Received: (qmail 45133 invoked from network); 4 May 2003 09:36:57 -0000 Original-Received: from mail.gmx.net (213.165.64.20) by sclp3.sclp.com with SMTP; 4 May 2003 09:36:57 -0000 Original-Received: (qmail 17518 invoked by uid 65534); 4 May 2003 09:36:24 -0000 Original-Received: from p508B3BC3.dip.t-dialin.net (EHLO mandala.local) (80.139.59.195) by mail.gmx.net (mp021-rz3) with SMTP; 04 May 2003 11:36:24 +0200 Original-To: ding@gnus.org User-Agent: Gnus/5.1002 (Gnus v5.10.2) Emacs/21.3.50 (gnu/linux) Face: iVBORw0KGgoAAAANSUhEUgAAADAAAAAwBAMAAAClLOS0AAAAJFBMVEVmZoH//262AFYAAI0M AOQdALn//xbjADH/AAD//wC2AFUAAP8sMWWqAAAAQ0lEQVR4nGOYiQMwjEoMW4k0HIBBEAdgwAmM cQCG3TjAsJFwwQEYQnEABi2tVUCwaNGiVWCgBeMzlOMADB04wMiVAAA9In+/aQH1vgAAAABJRU5E rkJggg== Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:52208 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:52208 --=-=-= Hi, Gnus v.5.10.2 fails to recognize as valid[1] an e-mail address from T-Online, when pushing the button on it: | Johannes Brinkmeier-Moritz schrieb: Patch and proposed ChangeLog entry are attached. Regards, -- --Jhair [1] http://service.t-online.de/t-on/hilf/faq/emai/cc/cc-email-faq1 (it just describes valid t-online addresses) --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=gnus-art.diff 2003-01-13 Jhair Tocancipa Triana * 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)) --=-=-=--