Re: Splitting, crossposts, duplicates, the universe, and everything.

[Michael Welsh Duggan <md5i@cs.cmu.edu>]

Lloyd Zusman <ljz@asfast.com> writes:

> Suppose these are my split methods:
> 
>  (setq nnmail-split-methods 
>         '(("one"      "^\\(To\\|Cc\\):.*one@asfast\\.com")
>           ("two"      "^\\(To\\|Cc\\):.*two@asfast\\.com")
>           ("three"    "^\\(To\\|Cc\\):.*three@asfast\\.com")
>           ("four"     "^\\(To\\|Cc\\):.*four@asfast\\.com")
>         ("other"    "")))
> 
> Furthermore, suppose I have set `nnmail-crosspost' to nil.
> 
> I have all my incoming email to the various users on my system going
> to a single mail spool, and I use Gnus to split it.
> 
> Now, suppose I receive some email with the following `To:' line:
> 
>  To: one@asfast.com, two@asfast.com, three@asfast.com, four@asfast.com
> 
> Once the mail is split, it only ends up in my `one' mailbox.  But what
> I want is a single copy in each of the `one', `two', `three', and
> `four' mailboxes.  OK.  So I figured that I'd just set
> `nnmail-crosspost' to `t'.  Once I did that, an email with the same
> `To:' line as above indeed ended up in each of those four mailboxes,
> but it appeared four times in each one, for a total of 16 instances
> altogether.
> 
> I sort of see why this happened, but I'm wondering if there's a way to
> prevent this.  I'd like to cause one and only one copy to appear in
> each of the mailboxes that appear on the `To:' line.
> 
> I looked at `nnmail-split-fancy', and it doesn't seem to handle this
> case.

Actually, `nnmail-split-fancy' should work just fine.  Try the
following for the above:

(setq nnmail-split-methods 'nnmail-split-fancy)
(setq nnmail-split-fancy
      '(&
        (to "one@asfast\\.com" "one")
        (to "two@asfast\\.com" "two")
        (to "three@asfast\\.com" "three")
        (to "four@asfast\\.com" "four")
        "other"))

Here is my `nnmail-split-fancy' for reference:

(setq nnmail-split-fancy
      '(| 
        ;; Personal Mail 
        ;; We don't want mailing list foo to appear here, even if from
        ;; the person in question.
        (any "m?duggan@\\(ramlink\\|wwd\\)\\.net" "mail.family") ;From home
        (any "mi-trans-command" "mail.mi-trans-admin")
        ("subject" "\\(cat\\|kantoo\\)/[0-9]+:.*" "mail.gnats") ;Gnats
        (&                              ;Could be crossposted
         ;; Put mail to me in misc
         (|
          ;; Unless it is from one of these guys.
          (from "\\(eric\\|svoboda\\|teruko\\|igo\\|klb\\).*cmu" "mail.job")
          (from "Kathryn_Baker" "mail.job")
          (from "[@.]cat\\.com" "mail.job")
          (any "catalyst-project" "mail.job")
          (any "pittcmulingannouncements" "mail.job")
          (any "lti-\\(seminar\\|staff\\)" "mail.job")
          (any "cyerthall" "mail.job")
          (to "chaos\\|md5i\\|duggan" "mail.misc"))
         ;; Mailing Lists
         (any "ding" "mail.Gnus")       ;Gnus mailing list
         (any "gwm" "mail.gwm")         ;GWM mailing list
         (any "mi@ml\\.usagi\\.org" "mail.mi") ;Maison Ikkoku mailing list
         (any "mi-list\\|mlist-mi" "mail.mi")
                                        ;MI Translation mailing list
         (any "mi-trans@lists\\.best\\.com" "mail.MI-Translation") 
         (any "mule" "mail.mule")       ;MULE mailing list
         (any "ntemacs-hackers" "mail.ntemacs-hackers")
         (any "ntemacs-users" "mail.ntemacs")   ;NTEmacs mailing list
         (any "custom" "mail.custom")   ;emacs-custom mailing list
         (any "w3" "mail.w3")           ;W3 mailing list
         (any "kodocha" "mail.kodocha") ;Kodomo no Omocha ML
         (any "patlabor" "mail.patlabor") ;Patlabor ML
         (any "emacs-unicode" "mail.unicode") ;The Emacs/Unicode Project
         (any "DILBERT_NEWS" "mail.misc")
         (any "anime-l" "mail.misc")    ;UCI anime report
         )
        (to "cmu" "mail.misc")
        ;; Catch all (Should be junk.)
        "mail.junk"))

-- 
Michael Duggan
(md5i@cs.cmu.edu)
.