How to configure gnus 5.10.1 with group-split-fancy?

How to configure gnus 5.10.1 with group-split-fancy?

[Robin Hu]

Hi gnus gurus: 

   I am currently using gnus 5.10.1 with the latest GNU Emacs checked
   out from cvs. Since I am moving to gnus from becky, please correct me
   if I am wrong.

   I set group-parameters in .gnu file and set nnmail-split-method to
   group-group-split, but it just not take place. nnmail-split-history
   show nothing at all. Can anyone point me out what ever possiable may
   cause such a problem? nnmail-split-fancy works fine.

Re: How to configure gnus 5.10.1 with group-split-fancy?

[Michael R. Wolf]

Robin Hu <huxw@knight.6test.edu.cn> writes:

> Hi gnus gurus: 
>
>    I am currently using gnus 5.10.1 with the latest GNU Emacs checked
>    out from cvs. Since I am moving to gnus from becky, please correct me
>    if I am wrong.
>
>    I set group-parameters in .gnu file and set nnmail-split-method to

That's ~/.gnus

>    group-group-split, but it just not take place. nnmail-split-history
>    show nothing at all. Can anyone point me out what ever possiable may
>    cause such a problem? nnmail-split-fancy works fine.


Here's a "sanatized" copy of mine.  It's grown over the past year, but
you can probabaly pick what you need from it.  But I should add the
caveat that I put most of my fancy-split information in via 'G c'
froom the Group buffer or "M-C-a" from the Summary buffer.  

I'll show the value, then the file that created the starting point for
it.   You can reverese-engineer some parts from it.

================================================================

nnmail-split-fancy's value is shown below.

Documentation:
Incoming mail can be split according to this fancy variable.
To enable this, set `nnmail-split-methods' to `nnmail-split-fancy'.

The format of this variable is SPLIT, where SPLIT can be one of
the following:

GROUP: Mail will be stored in GROUP (a string).

[...]


Value:
(|
 (&
  (any "\\(PTRCS-PROGRAMMING@PEARSONED\\.COM\\)" "newsletter.ptr-cs")
  (any "\\(singalongs-and-whatnot@yahoogroups\\.com\\|singalongs-and-whatnot@yahoogroups\\.com\\)" "S&W")
  (any "\\(volunteers@museumofflight\\.org\\|.*@museumofflight\\.org\\)" "MuseumOfFlight")
  (any "\\(TBalenger@nish\\.org\\|tbalenger@yahoo\\.com\\|Johnbalenger@adelphia\\.net\\|nbalenger@adelphia\\.net\\|RogerCecil@cs\\.com\\|ASmith@brickcomputer\\.com\\|Balenger, Steve\\|SUZANNE GRAY\\)" "family")
  (any "\\(ceciliazeimetz@yahoo\\.com\\|wordy@microship\\.com\\|jostar@optonline\\.net\\|JOPardillo@comcast\\.net\\|bill@carpenter\\.ORG\\|brzrkr@pobox\\.com\\|dave@nettenna\\.com\\|live\\.long\\.and\\.prosper@worldnet\\.att\\.net\\|forest4trees@comcast\\.net\\|hsheridan@lucent\\.com\\|jopardillo@home\\.com\\|HulseL@aol\\.com\\|jostar@aplion\\.com\\|jostar@optonline\\.com\\|samadhis@msn\\.com\\|tim@rcsb\\.rutgers\\.edu\\|timw@bestweb\\.net\\|wendellen@hotmail\\.com\\|Wendever11@msn\\.com\\|PollyCarson@hotmail\\.com\\|dan@concolor\\.org\\|nick@pedalmotive\\.com\\)" "friends")
  (any "\\(Sherri Edwards\\)" "ResourceMaximizer")
  (any "\\(linux-list@ssc\\.com\\|linux-list@ssc\\.com\\)" "linux-list")
  (any "\\(BallardActivists@aol\\.com\\|BallardActivists@aol\\.com\\)" "BallardActivist")
  (any "\\(WolfENT@oz\\.net\\)" "WolfENT")
  (any "\\(arthurginsberg@msn\\.com\\|arthurginsberg@msn\\.com\\)" "Brightwork.Catrina")
  (any "\\(t\\.wizon@webzon\\.com\\)" "ToastMasters")
  (any "\\(.*@travelbyroad\\.\\(net\\|com\\)\\)" "TravelByRoad")
  (any "\\(.*@spl\\.org\\)" "SeattlePublicLibrary")
  (any "\\(sil@technologyreview\\.com\\)" "subscriptions.TechnologyReview")
  (any "\\(.*@cbtnuggets\\.com\\)" "prospects.CBTnuggets")
  (any "\\(yharris@ESD\\.WA\\.GOV\\)" "prospects.WorkSource")
  (any "\\(cjca@cj\\.computerjobs\\.com\\)" "prospects.ComputerJobs")
  (any "\\(devnet@eXtropia\\.com\\)" "prospects.eXtropia")
  (any "\\(FedExsalary-admin@hire\\.com\\)" "prospects.FedEx")
  (any "\\(.*@greythorninc\\.com\\)" "prospects.greythorn")
  (any "\\(.*@.*hotjobs\\.com\\)" "prospects.hotjobs")
  (any "\\(happel@Intellimark-IT\\.com\\)" "prospects:intellimark")
  (any "\\(.*@juniper\\.net\\)" "prospects.juniper")
  (any "\\(.*@mindcast.com\\)" "prospects.mindcast")
  (any "\\(Net-Temps Careers\\)" "prospects.Net-Temps")
  (any "\\(Curt Rosengren\\)" "prospects.PassionCatalyst")
  (any "\\(@sotec-resources\\.com\\)" "prospects.sotec")
  (any "\\(.*@teksystems.com\\)" "prospects.TEKsystems")
  (any "\\(ggutting@techlinksystems\\.com\\|.*@techlinksystems\\.com\\)" "prospects.TechLink")
  (any "\\(.*@teranode\\.com\\)" "prospects.teranode")
  (any "\\(GFoxJr@videoRelay\\.com\\|.*@videorelay\\.com\\)" "prospects.videorelay")
  (any "\\(doctor@dictionary\\.com\\)" "word_of_the_day")
  (any "\\(Computerworld_Daily@Computerworld\\.com\\)" "ComputerWorld_Daily")
  (any "\\(.*@ozconsultants\\.com\\)" "newsletter.ezone")
  (any "\\(News@KenPage\\.net\\)" "newsletter.KenPage")
  (any "\\(content@quickinspirations\\.com\\)" "newsletter.QuickInspiration")
  (any "\\(ehotline@eaa\\.org\\|ehotline@eaa\\.org\\)" "eaa.eHotline")
  ("subject" ".*\\[Flotilla\\].*" "flotilla")
  (any "\\(epilot@aopa\\.org\\|epilot@aopa\\.org\\|aopa_news@aopa\\.org\\)" "aopa.ePilot")
  (any "\\(jwb@usac\\.com\\)" "merchant.adventure_club")
  (any "\\(.*@adv-cycling.org\\)" "merchant.adventure_cycling")
  (any "\\(dne-news@DNE\\.ORG\\|dne-news@DNE\\.ORG\\|fuller@MIT\\.EDU\\)" "DNE")
  (any "\\(.*@.*moveon.org\\)" "moveon")
  (any "\\(DeeRosenberg@aol\\.com\\|EdAbdill@cs\\.com\\|DOKeefe22@cs\\.com\\|susanrose@juno\\.com\\)" "lcl.CreativeDataMovers")
  (any "\\(DPante@aol\\.com\\)" "PanTech")
  (any "\\(.*@traininghott\\.com\\)" "HOTT")
  (any "\\(.*@TycoTelecom\\.com\\)" "lcl.TycoTelecom")
  (any "\\(perl-trainers@perl\\.org\\|perl-trainers@perl\\.org\\)" "perl.trainers")
  (any "\\(Cruisetrek@aol\\.com\\|neil@geekcruises\\.com\\|fan2472@pacbell\\.net\\)" "perl.whirl")
  (any "\\(perlreply@faq-by-day\\.org\\)" "perl.FAQ-by-day")
  (any "\\(mailman-owner@mail\\.pm\\.org\\)" "perl.pm")
  (any "\\(tallahassee-pm@mail\\.pm\\.org\\|tallahassee-pm@mail\\.pm\\.org\\)" "perl.pm.tallahassee")
  (any "\\(members@lists\\.seattle-sage\\.org\\|members@lists\\.seattle-sage\\.org\\|Seattle Sage Group\\|seattle-sagelocal@usenix\\.org\\)" "SAGE")
  (any "\\(spug-list@pm\\.org\\|spug-list@pm\\.org\\|spug-list@mail\\.pm\\.org\\)" "SPUG")
  (any "\\(pdx-pm-list@mail\\.pm\\.org\\|pdx-pm-list@mail\\.pm\\.org\\|pdx-pm-list@pm\\.org\\)" "perl.pm.pdx")
  (any "\\(perl-qotw-discuss@plover\\.com\\)" "perl.qotw-discuss")
  (any "\\(perl-qotw-owner@plover\\.com\\|perl-qotw-owner@plover\\.com\\|perl-qotw@plover\\.com\\)" "perl.qotw")
  (any "\\(fwp@perl\\.org\\|fwp@perl\\.org\\)" "perl.fwp")
  (any "\\(advocacy@perl\\.org\\|advocacy@perl\\.org\\|advocacy-help@perl\\.org\\)" "perl.advocacy")
  (any "\\(beginners@perl\\.org\\|beginners@perl\\.org\\|beginners-cgi@perl\\.org\\)" "perl.beginners")
  (any "\\(gnus-tutorial@socha\\.net\\|gnus-tutorial@socha\\.net\\)" "gnus.tutorial")
  (any "\\(help-emacs-windows@gnu\\.org\\|help-emacs-windows@gnu\\.org\\|help-emacs-windows-request@gnu\\.org\\|mailman-owner@gnu\\.org\\)" "emacs.windows.help")
  (any "\\(marketplace-messages@amazon\\.com\\|payments-messages@amazon\\.com\\|software-news@amazon\\.com\\|gift@amazon\\.com\\|store-news@amazon\\.com\\|delivers@amazon\\.com\\|jeffb@amazon\\.com\\)" "merchant.amazon")
  (any "\\(.*@billpoint\\.com\\)" "merchant.billpoint")
  (any "\\(.*@.*classmates.com\\)" "merchant.classmates")
  (any "\\(techsupport@comm1radio\\.com\\|techsupport@comm1radiosimulator\\.com\\)" "merchant.comm1radio")
  (from ".*@connected.com"
	(|
	 ("subject" ".*10312-40186.*" "merchant.connected.Tampa(10312-40186)")
	 ("subject" ".*10253-73681.*" "merchant.connected.Boulder(10253-73681)")
	 ("subject" ".*10371-25571.*" "merchant.connected.Tecumseh(10371-25571)")
	 "merchant.connected"))
  (any "\\(.*@dell\\.com\\)" "merchant.dell")
  (any "\\(.*@DynCorp\\.com\\)" "merchant.DynCorp")
  (any "\\(.*@.*ebay\\.com\\)" "merchant.ebay")
  (any "\\(customer\\.relations@kinkos\\.com\\)" "merchant.kinkos")
  (any "\\(.*@learningtree\\.com\\)" "merchant.learningtree")
  (any "\\(.*@levenger\\.com\\)" "merchant.levenger")
  (any "\\(.*@mcafee\\.com\\)" "merchant.McAfee")
  (any "\\(.*@MerckMedco\\.com\\)" "merchant.MerckMedco")
  (any "\\(.*@mks\\.com\\)" "merchant.mks")
  (any "\\(updates@netlaughter\\.com\\)" "merchant.netlaughter")
  (any "\\(.*@qwest\\.com\\)" "merchant.qwest")
  (any "\\(cs@support\\.real\\.com\\|.*@.*real-net\\.net\\)" "merchant.real")
  (any "\\(.*@speedbit\\.com\\)" "merchant.speedbit")
  (any "\\(.*@symantec\\.com\\)" "merchant.symantec")
  (any "\\(roger@teleclass\\.com\\)" "merchant.TeleClass")
  (any "\\(.*@.*travelocity\\(\\..*\\)*\\.\\(com\\|net\\)\\)" "merchant.travelocity")
  (any "\\(s-sowka@mskmail\\.mskcc\\.org\\|slawek@tantriclife\\.com\\)" "merchant.TantricLife")
  (any "\\(customerservice@spg\\.starwood\\.com\\|Starwood@spg\\.starwood\\.com\\|Starwood_@spg\\.starwood\\.com\\)" "merchant.Starwood")
  (any "\\(.*@watchguard\\.com\\)" "merchant.WatchGuard")
  (any "\\(survey@surveys\\.att\\.net\\|CustomerNotifications@worldnet\\.att\\.net\\|autorestore@worldnet\\.att\\.net\\)" "merchant.worldnet")
  (any "\\(.*@computerjobs\\.com\\)" "jobs.ComputerJobs")
  (from ".*@oreillynet.com"
	(|
	 (from "Perl.com Newsletter" "Perl_com.newsletter")
	 (from "Perl Newsletter" "Perl_com.newsletter")
	 (from "O'Reilly Network Newsletter" "O_Reilly.newsletter")
	 (from "O'Reilly Newsletter" "O_Reilly.newsletter")
	 "oreillynet"))
  (any "\\(jobs@perl\\.org\\|jobs@perl\\.org\\|jobs-help@perl\\.org\\)" "perl.jobs")
  (from "WendyRunningWolf@att.net"
	(|
	 ("subject" "print me" "wendy.print")
	 ("subject" "please print" "wendy.print")
	 ("subject" "pp" "wendy.print")
	 "wendy"))
  (any "\\(selig@yahoogroups\\.com\\|selig@yahoogroups\\.com\\)" "selig")
  (any "\\(MOSS@lists\\.freepan\\.org\\|MOSS@lists\\.freepan\\.org\\)" "MOSS"))
 (|
  ("from" mail
   (|
    ("subject" "warn.*" "mail.warning")
    "mail.misc"))
  ("subject" ".*\\[Selig\\].*" "selig")
  ("to" "PTR-OO@PEARSONED.COM" "newsletter.ptr-oo")
  (any "MBalenger@\\(worldnet\\.\\)?att\\.net" "misc.MBalenger")
  (any "pop:MBalenger@postoffice\\.\\(worldnet\\.\\)?att\\.net" "misc.MBalenger")
  (any "MichaelRunningWolf@att\\.net" "misc.MichaelRunningWolf")
  (any "MichaelRWolf@att\\.net" "misc.MichaelRWolf")
  ("gnus-warning" "This is a duplicate of message" "duplicates")
  "misc"))

================================================================


;;; ~/.gnus  -*- mode:emacs-lisp -*-
;;; -*- emacs-lisp -*-


;;; Accumulated from:
;;; info *note Gnus::
;;; http://my.gnus.org/tuorial


;;; ================================================================
;;; 1 - Where does news come from?
(setq gnus-select-method '(nntp	"inetnews.att.net"))


;;; ================================================================
;;; 2 - Where is mail stored?  (i.e. backend)
(add-to-list 'gnus-secondary-select-methods '(nnml ""))

;;; And what about other servers exist?
;;(add-to-list 'gnus-secondary-select-methods '(nntp "nntp.perl.org"))
(add-to-list 'gnus-secondary-select-methods
	     '(nntp "perl.org" (nntp-address "nntp.perl.org")))
(add-to-list 'gnus-secondary-select-methods
	     '(nntp "oz.net" (nntp-address "news.oz.net")))
(add-to-list 'gnus-secondary-select-methods
	     '(nntp "gnus.org" (nntp-address "news.gnus.org")))
(add-to-list 'gnus-secondary-select-methods
	     '(nnslashdot ""))

(add-to-list 'gnus-secondary-select-methods
	     '(nntp "att.net" (nntp-address "localhost")))


;;; ================================================================
;;; 3 - How is mail fetched?
;;; info *note Mail Source Specifiers::
(setq mail-sources
      '(
        (file :path "c:/cygwin/var/spool/mail/toshiba"
              :plugged t
	      )

;;;	(pop :user     "MBalenger"
;;;	     :password "XXXX"
;;;	     :server   "postoffice.att.net")

;;;        (pop :user     "MichaelRunningWolf"
;;;             :password "XXXX"
;;;             :server   "postoffice.att.net")

;;;	(pop :user     "wolfent"
;;;	     :password "XXXX"
;;;	     :server   "mail.oz.net")

        )
      )


;;; ================================================================
;;; 4 - How is mail split?
;;(load-file (expand-file-name "~/.gnus-fancy-split"))
;;(load-file (expand-file-name "~/.gnus-group-split"))

;;; ================
;;;     `nnmail-split-abbrev-alist' alias symbol expansions:
;;; (any   . "from\\|to\\|cc\\|sender\\|apparently-to\\|resent-from\\|resent-to\\|resent-cc")
;;; (mail  . "mailer-daemon\\|postmaster\\|uucp")
;;; (to    . "to\\|cc\\|apparently-to\\|resent-to\\|resent-cc")
;;; (from  . "from\\|sender\\|resent-from")
;;; (nato  . "to\\|cc\\|resent-to\\|resent-cc")
;;; (naany . "from\\|to\\|cc\\|sender\\|resent-from\\|resent-to\\|resent-cc")

;;;sets nnmail-split-fancy
(gnus-group-split-setup t
      (quote
       (|
	;; ================ from(alias) mail(alias) ================
	("from" mail (| ("subject" "warn.*"	"mail.warning")
						"mail.misc"))

;	(from "Perl\\.com Newsletter"		"perl.newsletter")

	;; ================ Subject: header ================
	("subject" ".*\\[Selig\\].*"		"selig")
;	("subject" "h-e-w"			"emacs.windows.help")

;	("to" "^\\s-*$"                         "undisclosed-recipients")

	;; Stupid mailers send real stuff that looks like SPAM.
	("to" "PTR-OO@PEARSONED\.COM"           "newsletter.ptr-oo")

	;; Try to separate out the non-SPAM.
	(any "MBalenger@\\(worldnet\\.\\)?att\\.net"   "misc.MBalenger")
	(any "pop:MBalenger@postoffice\\.\\(worldnet\\.\\)?att\\.net"
	     					"misc.MBalenger")

	(any "MichaelRunningWolf@att\\.net"     "misc.MichaelRunningWolf")
	(any "MichaelRWolf@att\\.net"           "misc.MichaelRWolf")

	;; Deal with duplicates.
	("gnus-warning" "This is a duplicate of message" "duplicates")

	;; ================ default ================
	;; And SPAM catcher.
	"misc"	)))
;;;sets nnmail-split-fancy



;;; ================================================================
;;; 5 - How is mail sent?
;;; <<See ~/.emacs>>


;;; ================================================================
;;; 6 - Miscellany!
(require 'message)
(require 'message-x)

;;(setq gnus-verbose 10)			; [7]
;;(setq gnus-verbose-backends 10)		; [7]
;(defun fill-column-60 ()
;  "Set fill-column to 60."
;  (setq fill-column 60))
;(add-hook 'message-setup-hook 'fill-column-60)
(add-hook 'message-sent-hook 'gnus-score-followup-thread)

(add-hook 'mail-setup-hook 'bbdb-define-all-aliases)

(setq gnus-message-archive-group
      '((if (message-news-p)
            (format-time-string "news.%Y-%m")
	    (format-time-string "mail.%Y-%m"))))

;; Works only in oort development versions.
;;(define-key message-minibuffer-local-map [(tab)] 'bbdb-complete-name)

;;;Kai.Grossjohann@CS.Uni-Dortmund.DE (Kai Großjohann) writes:
;;;> I use the following.  It is not perfect.
;;;> Then you can use %k instead of %L in gnus-summary-line-format.
(require 'gnus-sum)
(defsubst kai-gnus-summary-line-message-size (header)
  (let ((c (or (mail-header-chars header) -1))
	(l (or (mail-header-lines header) -1)) )
    (cond ((< l 1)             (format "        ")) ; no lines -> empty

	  ;; line count tests
	  ((< l 1000)          (format "%d " l))    ; display lines

	  ;; character count tests
	  ((< c 1)             (format "       "))  ; no charcters -> empty
	  ((< c 1000)          (format "%db" c))    ; display bytes
	  ((< c (* 1000 1000)) (format "%dK"        ; display Kilobytes
				       (/ c 1024.0)))
	  ;; default
	  (t                   (format "%dM"        ; display Megabytes
				       (/ c (* 1024.0 1024))))
	  )))
(add-to-list 'gnus-summary-line-format-alist
	     '(?k (kai-gnus-summary-line-message-size gnus-tmp-header) ?s))


(setq gnus-extra-headers		'(To Newsgroups X-Gnus-Mail-Source))
(setq gnus-ignored-from-addresses
      (concat "nobody"
	      "\\|"
	      "\\(" (regexp-quote user-full-name) "\\)"
	      "\\|"
	      "\\(" (regexp-quote user-mail-address) "\\)")
      )

(setq nnmail-extra-headers		gnus-extra-headers)
(setq gnus-summary-line-format		; "%U%R%z%I%(%[%4L: %-20,20n%]%) %s"
      (concat "%U%R%z"
	      "%~(cut-left 0)~(max-right 4)o-" ; YY
	      "%~(cut-left 4)~(max-right 2)o-" ; MM
	      "%~(cut-left 6)~(max-right 2)o " ; DD
	      "%~(cut-left 9)~(max-right 2)o:%~(cut-left 11)~(max-right 2)o" ; HH:MM
	      "%I "
	      "%(%[%4k: %-15,15f%]%) "
	      "%s\n"))


;(gnus-add-configuration
; '(article (vertical 1.0 (summary 0.16 point)
;		     (article 1.0)
;		     (if (bbdb/gnus-update-record nil) '("*BBDB*" 3))
;)))


;;; ================ posting styles ================
(setq gnus-positng-styles
      '((".*"
	 (signature-file "~/.signature")
	 )
	("nnml:misc.MBalenger"
	 (signature-file nil)
	 (name "Michael S. Balenger")
	 (address "MBalenger@att.net")
	 )
	("nnml:misc.MRWolf"
	 (signature-file nil)
	 (name "Michael R. Wolf")
	 (address "MRWolf@att.net")
	 )
	("nnml:WolfENT"
	 (signature-file nil)
	 (organization "Wolf Enterprises")
	 (address "WolfENT@oz.net")
	 )
	))

(add-hook 'gnus-configure-windows-hook
	  'gnus-tree-perhaps-minimize)


;;; ================ message-mode ================
(setq message-kill-buffer-on-exit t)


;;; ================ agent ================
(gnus-agentize)				; must be last form in file


;;; ================================================================
;;; 7 - TODO.



;;; ================
;;; From: Bjorn Wiren <etxbwir@cbe.ericsson.se>
;;; Date: 20 Dec 2001 08:06:08 +0100
;;; With this in your `.gnus'
;;;
;;; (setq gnus-summary-line-format
;;;       "%U%R %~(cut-left 2)~(max-right 6)o %~(cut-left 9)~(max-right
;;;       2)o:%~(cut-left 11)~(max-right 2)o %I%(%[%-15,15f%]%) %s\n")
;;;
;;; you get
;;;
;;; R  011219 18:54 [nospame@nothere] How do change the display of articles
;;;
;;; that is, date à la yymmdd. Get the details from the info node "Summary
;;; Buffer Lines" (C-h i, then go  to "Gnus", "Summary Buffer Format", "Summary
;;; Buffer Lines").

\f
;;; ================================================================
;;; Local Variables:
;;; mode: emacs-lisp
;;; eval: (local-set-key [f12]     'eval-buffer)
;;; End:


-- 
Michael R. Wolf
    All mammals learn by playing!
        MichaelRunningWolf@att.net

Re: How to configure gnus 5.10.1 with group-split-fancy?

[Robin Hu]

   Thanks Michael, it seems group-split-fancy cannot work with
   group-parameters, so I stick to nnmail-split-fancy now. 
-- 
The goal of science is to build better mousetraps.  The goal of nature
is to build better mice.

Re: How to configure gnus 5.10.1 with group-split-fancy?

[Michael R. Wolf]

Robin Hu <huxw@knight.6test.edu.cn> writes:

>    Thanks Michael, it seems group-split-fancy cannot work with
>    group-parameters, so I stick to nnmail-split-fancy now. 

You're right. I had forgotten. I like the later because I'm already in
Gnus when I want to change parameters, so I do it from the Group menu.
For me, opening ~/.gnus and writing elisp wasn't the way to go. But it
did work for me for a while. That's why it was still laying around.
And it turns out that there are still some things I can do in the
~/.gnus file that I can't do from group-parameters.

Thanks for pointing this out for folks who may be lurking this
discussion, trying to make their own choice.

-- 
Michael R. Wolf
    All mammals learn by playing!
        MichaelRunningWolf@att.net