From: Jhair Tocancipa Triana <jhair_tocancipa@gmx.net>
Subject: [patch] gnus-art.el handling for t-online addresses
Date: Sun, 04 May 2003 11:36:22 +0200 [thread overview]
Message-ID: <m34r4buk89.fsf@mandala.my-fqdn.de> (raw)
[-- Attachment #1: Type: text/plain, Size: 384 bytes --]
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 <Johannes.Brinkmeier-Moritz@t-online.de> 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)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: gnus-art.diff --]
[-- Type: text/x-patch, Size: 1639 bytes --]
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))
next reply other threads:[~2003-05-04 9:36 UTC|newest]
Thread overview: 4+ messages / expand[flat|nested] mbox.gz Atom feed top
2003-05-04 9:36 Jhair Tocancipa Triana [this message]
2003-05-04 12:17 ` Reiner Steib
2003-05-04 12:50 ` Jhair Tocancipa Triana
2003-05-04 16:37 ` Florian Weimer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m34r4buk89.fsf@mandala.my-fqdn.de \
--to=jhair_tocancipa@gmx.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).