From: dhedbor@real.com
Subject: Re: small patch for nnmail (lowercase expand option)
Date: Thu, 08 Jul 2004 16:11:33 -0700 [thread overview]
Message-ID: <87y8luhz6i.fsf@real.com> (raw)
In-Reply-To: <874qoije07.fsf@real.com> (dhedbor@real.com's message of "Thu, 08 Jul 2004 16:06:00 -0700")
[-- Attachment #1: Type: text/plain, Size: 289 bytes --]
dhedbor@real.com writes:
> + "Whether to match lowercase expanded entries (i.e \\N) or leave them
Typo in the documentation. That "match" shouldn't be there. New patch attached.
--
David Hedbor, Software Development Engineer - Real Networks
Helix Community: http://helixcommunity.org
[-- Attachment #2: nnmail-expand-lowercase.patch --]
[-- Type: text/x-patch, Size: 1251 bytes --]
Index: lisp/nnmail.el
===================================================================
RCS file: /usr/local/cvsroot/gnus/lisp/nnmail.el,v
retrieving revision 7.9
diff -u -r7.9 nnmail.el
--- lisp/nnmail.el 20 May 2004 08:02:40 -0000 7.9
+++ lisp/nnmail.el 8 Jul 2004 23:10:35 -0000
@@ -574,6 +574,15 @@
:group 'nnmail
:type 'boolean)
+(defcustom nnmail-split-fancy-lowercase-expanded nil
+
+ "Whether to lowercase expanded entries (i.e \\N) or leave them as-is
+when using fancy splitting. This avoids the creation of multiple
+groups when users send to an address using different case (i.e
+mailing-list@domain vs Mailing-List@Domain)."
+ :group 'nnmail
+ :type 'boolean)
+
;;; Internal variables.
(defvar nnmail-article-buffer " *nnmail incoming*"
@@ -1464,8 +1473,11 @@
(setq N 0)
(setq N (- c ?0)))
(when (match-beginning N)
- (push (buffer-substring (match-beginning N) (match-end N))
- expanded))))
+ (let ((tmp-match (buffer-substring (match-beginning N)
+ (match-end N))))
+ (if nnmail-split-fancy-lowercase-expanded
+ (push (downcase tmp-match) expanded)
+ (push tmp-match expanded))))))
(setq pos (1+ pos)))
(if did-expand
(apply 'concat (nreverse expanded))
next prev parent reply other threads:[~2004-07-08 23:11 UTC|newest]
Thread overview: 7+ messages / expand[flat|nested] mbox.gz Atom feed top
2004-07-08 23:06 dhedbor
2004-07-08 23:11 ` dhedbor [this message]
2004-07-09 1:49 ` Katsumi Yamaoka
2004-07-09 13:07 ` Marcelo Toledo
2004-07-09 15:49 ` Katsumi Yamaoka
2004-07-12 6:33 ` Katsumi Yamaoka
2004-07-12 17:08 ` dhedbor
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=87y8luhz6i.fsf@real.com \
--to=dhedbor@real.com \
/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).