From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/52409 Path: main.gmane.org!not-for-mail From: Michael R. Wolf Newsgroups: gmane.emacs.gnus.general Subject: Re: How to configure gnus 5.10.1 with group-split-fancy? Date: Wed, 07 May 2003 12:46:54 -0700 Organization: LCL Software & Training, Inc. Sender: ding-owner@lists.math.uh.edu Message-ID: References: NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1052336877 30296 80.91.224.249 (7 May 2003 19:47:57 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Wed, 7 May 2003 19:47:57 +0000 (UTC) Original-X-From: ding-owner+M953@lists.math.uh.edu Wed May 07 21:47:55 2003 Return-path: Original-Received: from malifon.math.uh.edu ([129.7.128.13]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19DUsY-0007ni-00 for ; Wed, 07 May 2003 21:47:02 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19DUsd-0004OJ-00; Wed, 07 May 2003 14:47:07 -0500 Original-Received: from sclp3.sclp.com ([64.157.176.121]) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 19DUsT-0004OD-00 for ding@lists.math.uh.edu; Wed, 07 May 2003 14:46:57 -0500 Original-Received: (qmail 76011 invoked by alias); 7 May 2003 19:46:57 -0000 Original-Received: (qmail 76006 invoked from network); 7 May 2003 19:46:56 -0000 Original-Received: from quimby.gnus.org (80.91.224.244) by sclp3.sclp.com with SMTP; 7 May 2003 19:46:56 -0000 Original-Received: from news by quimby.gnus.org with local (Exim 3.12 #1 (Debian)) id 19DUvB-0007bG-00 for ; Wed, 07 May 2003 21:49:45 +0200 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 428 Original-NNTP-Posting-Host: sense-sea-megasub-1-477.oz.net Original-X-Trace: quimby.gnus.org 1052336985 28678 216.39.145.223 (7 May 2003 19:49:45 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: 7 May 2003 19:49:45 GMT User-Agent: Gnus/5.1001 (Gnus v5.10.1) Emacs/21.2 (windows-nt) Cancel-Lock: sha1:2bblHQsE9gwG7P68OSQxJjTnPc8= Precedence: bulk Xref: main.gmane.org gmane.emacs.gnus.general:52409 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:52409 Robin Hu 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? ;;; <> ;;; ================================================================ ;;; 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 ;;; 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"). ;;; ================================================================ ;;; Local Variables: ;;; mode: emacs-lisp ;;; eval: (local-set-key [f12] 'eval-buffer) ;;; End: -- Michael R. Wolf All mammals learn by playing! MichaelRunningWolf@att.net