[Emacs-diffs] Changes to emacs/lisp/gnus/nnmail.el [gnus-5_10-branch]

[Reiner Steib]

Index: emacs/lisp/gnus/nnmail.el
diff -c emacs/lisp/gnus/nnmail.el:1.20.2.1 emacs/lisp/gnus/nnmail.el:1.20.2.2
*** emacs/lisp/gnus/nnmail.el:1.20.2.1  Thu Jul 22 16:45:51 2004
--- emacs/lisp/gnus/nnmail.el   Tue Aug 31 14:47:58 2004
***************
*** 1,5 ****
  ;;; nnmail.el --- mail support functions for the Gnus mail backends
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
--- 1,5 ----
  ;;; nnmail.el --- mail support functions for the Gnus mail backends
! ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004
  ;;        Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <address@hidden>
***************
*** 575,580 ****
--- 575,587 ----
    :group 'nnmail
    :type 'boolean)
  
+ (defcustom nnmail-split-lowercase-expanded t
+   "Whether to lowercase expanded entries (i.e. \\N) when splitting mails.
+ This avoids the creation of multiple groups when users send to an address
+ using different case (i.e. address@hidden vs address@hidden)."
+   :group 'nnmail
+   :type 'boolean)
+ 
  ;;; Internal variables.
  
  (defvar nnmail-article-buffer " *nnmail incoming*"
***************
*** 1469,1475 ****
              (setq N 0)
            (setq N (- c ?0)))
          (when (match-beginning N)
!           (push (buffer-substring (match-beginning N) (match-end N))
                  expanded))))
        (setq pos (1+ pos)))
      (if did-expand
--- 1476,1485 ----
              (setq N 0)
            (setq N (- c ?0)))
          (when (match-beginning N)
!           (push (if nnmail-split-lowercase-expanded
!                     (downcase (buffer-substring (match-beginning N)
!                                                 (match-end N)))
!                   (buffer-substring (match-beginning N) (match-end N)))
                  expanded))))
        (setq pos (1+ pos)))
      (if did-expand