From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/29065 Path: main.gmane.org!not-for-mail From: Matt Swift Newsgroups: gmane.emacs.gnus.general Subject: Re: problem with fancy-split's ! operator; bug? Date: Thu, 03 Feb 2000 04:07:52 GMT Organization: http://www.shore.net/~swift Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: main.gmane.org 1035165799 595 80.91.224.250 (21 Oct 2002 02:03:19 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 02:03:19 +0000 (UTC) Return-Path: Original-Received: from spinoza.math.uh.edu (spinoza.math.uh.edu [129.7.128.18]) by mailhost.sclp.com (Postfix) with ESMTP id C2A67D051F for ; Wed, 2 Feb 2000 23:09:17 -0500 (EST) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by spinoza.math.uh.edu (8.9.1/8.9.1) with ESMTP id WAB23408; Wed, 2 Feb 2000 22:09:03 -0600 (CST) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Wed, 02 Feb 2000 22:08:17 -0600 (CST) Original-Received: from mailhost.sclp.com (postfix@sclp3.sclp.com [204.252.123.139]) by sina.hpc.uh.edu (8.9.3/8.9.3) with ESMTP id WAA21904 for ; Wed, 2 Feb 2000 22:08:04 -0600 (CST) Original-Received: from sunsite.auc.dk (sunsite.auc.dk [130.225.51.30]) by mailhost.sclp.com (Postfix) with SMTP id 3E1B5D051F for ; Wed, 2 Feb 2000 23:07:55 -0500 (EST) Original-Received: (qmail 25470 invoked by uid 509); 3 Feb 2000 04:07:53 -0000 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: emacs.ding Original-Lines: 24 User-Agent: Gnus/5.0804 (Gnus v5.8.4) Emacs/20.5 Original-NNTP-Posting-Host: 206.243.167.24 Original-X-Trace: twister.sunsite.auc.dk 949550872 206.243.167.24 (Thu, 03 Feb 2000 05:07:52 MET) Original-NNTP-Posting-Date: Thu, 03 Feb 2000 05:07:52 MET Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:29065 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:29065 --=-=-= >> On Wed, 02 Feb 2000 17:25:48 GMT, >> ">" == Colin Rafferty wrote: >> Matt Swift writes: >> The following doesn't work. You get an error when you try to trace >> the split. The same thing works with the `:' operator as expected. >> What am I missing, or is this a bug? >> (defun test-split (dummy) >> '(& "one" "two")) >> (setq nnmail-split-fancy '(! test-split "dummy")) >> It looks good to me. What is the error (traceback, please)? You mean it works for you? It's a quoting problem: Signaling: (wrong-type-argument sequencep &) mapconcat(car (("two" . "two") ("one" . "one") (& . &)) ", ") gnus-summary-respool-query() call-interactively(gnus-summary-respool-query) --=-=-= Content-Type: application/x-emacs-lisp Content-Disposition: inline Content-Description: User settings ------------------ Environment follows ------------------ (setq gnus-default-nntp-server "") (setq gnus-nntpserver-file "/etc/news/server") (setq gnus-select-method '(nntp "news.shore.net")) (setq gnus-message-archive-group 'swift-gnus-message-archive-group) (setq gnus-group-faq-directory '("/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@sunsite.auc.dk:/pub/usenet/" "/ftp@sunsite.doc.ic.ac.uk:/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@nctuccca.edu.tw:/USENET/FAQ/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/")) (setq gnus-use-cross-reference 'all) (setq gnus-large-newsgroup 500) (setq gnus-keep-backlog 10) (setq gnus-novice-user nil) (setq gnus-load-hook '(gnus-bitmap-splash)) (setq gnus-group-change-level-function 'gnus-topic-change-level) (setq gnus-article-save-directory "/incoming") (setq gnus-kill-summary-on-exit nil) (setq gnus-summary-make-false-root 'none) ------------------ Environment follows ------------------ (setq gnus-default-nntp-server "") (setq gnus-nntpserver-file "/etc/news/server") (setq gnus-select-method '(nntp "news.shore.net")) (setq gnus-message-archive-group 'swift-gnus-message-archive-group) (setq gnus-group-faq-directory '("/ftp@rtfm.mit.edu:/pub/usenet/" "/ftp@mirrors.aol.com:/pub/rtfm/usenet/" "/ftp@ftp.seas.gwu.edu:/pub/rtfm/" "/ftp@sunsite.auc.dk:/pub/usenet/" "/ftp@sunsite.doc.ic.ac.uk:/pub/usenet/news-faqs/" "/ftp@src.doc.ic.ac.uk:/usenet/news-FAQS/" "/ftp@ftp.uni-paderborn.de:/pub/FAQ/" "/ftp@ftp.sunet.se:/pub/usenet/" "/ftp@nctuccca.edu.tw:/USENET/FAQ/" "/ftp@hwarang.postech.ac.kr:/pub/usenet/" "/ftp@ftp.hk.super.net:/mirror/faqs/")) (setq gnus-use-cross-reference 'all) (setq gnus-large-newsgroup 500) (setq gnus-keep-backlog 10) (setq gnus-novice-user nil) (setq gnus-load-hook '(gnus-bitmap-splash)) (setq gnus-group-change-level-function 'gnus-topic-change-level) (setq gnus-article-save-directory "/incoming") (setq gnus-kill-summary-on-exit nil) (setq gnus-summary-make-false-root 'none) (setq gnus-summary-gather-subject-limit 'fuzzy) (setq gnus-build-sparse-threads 'some) (setq gnus-summary-goto-unread nil) (setq gnus-thread-hide-subtree t) (setq gnus-thread-ignore-subject nil) (setq gnus-thread-operation-ignore-subject 'fuzzy) (setq gnus-view-pseudos 'not-confirm) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-date gnus-thread-sort-by-score)) (setq gnus-summary-mode-hook '(x-face-define-menu mc-install-read-mode)) (setq gnus-exit-group-hook '(gnus-uu-delete-work-dir gnus-uu-clean-up)) (setq gnus-mark-article-hook nil) (setq gnus-extra-headers '(To Newsgroups)) (setq gnus-ignored-from-addresses ".*\\(MatthewSwift\\.91@alum\\.mit\\.edu\\|azaza\\(el@\\(bigfoot\\.com\\|earthling\\.net\\)\\|le@hotmail\\.com\\)\\|msswift@iname\\.com\\|s\\(ueu@athena\\.mit\\.edu\\|wift@\\(a\\(cs\\.bu\\.edu\\|l\\(eph\\(\\.bu\\.edu\\)?\\|um\\.mit\\.edu\\)\\)\\|bu\\.edu\\|localhost\\|s\\(hore\\.net\\|wift\\.shore\\.net\\)\\)\\)\\).*") (setq gnus-group-goto-unread nil) (setq gnus-group-line-format "%m%M%S%p%P%5y %4R %3i: %(%g%)\n") (setq gnus-group-mode-hook '(gnus-topic-mode)) (setq gnus-group-catchup-group-hook '(gnus-topic-update-topic)) (setq gnus-exit-gnus-hook '(x-face-mule-save-cache-file)) (setq gnus-ignored-headers "^\\(X400.*\\|.*Path\\|.*Received\\|.*[Ii][Dd]\\|X-Vmsmail-.*\\|.*-Version\\|.*Host\\|Content-.*\\|.*Priority\\|X-WebTV-.*\\|\\(A\\(Category\\|pproved\\(-By\\)?\\|rticle-I\\.D\\.\\|uto-Submitted\\)\\|Control\\|Disposition-Notification-To\\|E\\(rrors-To\\|xpires\\)\\|Format\\|Importance\\|Lines\\|Nf-From\\|P\\(osted\\|recedence\\)\\|References\\|S\\(lugword\\|tatus\\)\\|Threadword\\|User-Agent\\|X\\(-\\(A\\(buse-Info\\|ccept-Language\\|dmin\\|rea\\)\\|Co\\(mplaints-To\\|nfirm-Reading-To\\)\\|Debian-PR-Message\\|Emacs\\|F\\(ilter\\|n\\)\\|Http-\\(Proxy\\|User-Agent\\)\\|Juno-Line-Breaks\\|Lo\\(op\\|tus-FromDomain\\)\\|M\\(IME-Autoconverted\\|S-TNEF-Correlator\\|a\\(iler\\|jordomo\\|naged-By\\)\\|imeOLE\\|yDeja-Info\\)\\|N\\(ewsreader\\|o-Archive\\)\\|P\\(H\\|MFLAGS\\)\\|Queue\\|R\\(T-Loop-Prevention\\|equestors\\)\\|T\\(X-Type\\|race\\)\\|UIDL\\|ccgate-env\\)\\|ref\\)\\)\\):") (setq gnus-visible-headers nil) (setq gnus-boring-article-headers '(empty newsgroups followup-to reply-to)) (setq gnus-article-x-face-command 'x-face-mule-gnus-article-display-x-face) (setq gnus-default-article-saver 'gnus-summary-save-in-file) (setq gnus-treat-hide-boring-headers 'head) (setq gnus-treat-date-local 'head) (setq gnus-treat-display-xface 'head) (setq gnus-dribble-directory "~/.trash") (setq gnus-activate-level 4) (setq gnus-activate-foreign-newsgroups 3) (setq gnus-read-newsrc-file nil) (setq gnus-save-newsrc-file nil) (setq gnus-save-killed-list nil) (setq gnus-check-bogus-groups-hook '(gnus-topic-clean-alist)) (setq gnus-before-startup-hook '(swift-gnus-startup-hook)) (setq gnus-asynchronous nil) (setq gnus-add-to-list t) (setq gnus-message-setup-hook '(x-face-define-menu)) (setq nnmail-split-methods 'nnmail-split-fancy) (setq nnmail-use-long-file-names t) (setq nnmail-spool-file nil) (setq nnmail-split-fancy '(! test-split "dummy")) (setq nnmail-extra-headers '(To Newsgroups)) (setq message-courtesy-message "The following message is a copy of an article\nthat has been posted to %s as well.\n\n") (setq message-from-style 'angles) (setq message-user-organization-file "/etc/news/organization") (setq message-wash-forwarded-subjects t) (setq message-sendmail-f-is-evil t) (setq message-post-method '(nnspool "")) (setq message-setup-hook '(mc-install-write-mode)) (setq message-mode-hook '(gnus-configure-posting-styles (lambda nil (set-fill-column 70)))) (setq message-header-setup-hook '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc swift-mail-abbrevs-sync-aliases)) (setq message-cite-function 'sc-cite-original) (setq gnus-summary-gather-subject-limit 'fuzzy) (setq gnus-build-sparse-threads 'some) (setq gnus-summary-goto-unread nil) (setq gnus-thread-hide-subtree t) (setq gnus-thread-ignore-subject nil) (setq gnus-thread-operation-ignore-subject 'fuzzy) (setq gnus-view-pseudos 'not-confirm) (setq gnus-thread-sort-functions '(gnus-thread-sort-by-number gnus-thread-sort-by-date gnus-thread-sort-by-score)) (setq gnus-summary-mode-hook '(x-face-define-menu mc-install-read-mode)) (setq gnus-exit-group-hook '(gnus-uu-delete-work-dir gnus-uu-clean-up)) (setq gnus-mark-article-hook nil) (setq gnus-extra-headers '(To Newsgroups)) (setq gnus-ignored-from-addresses ".*\\(MatthewSwift\\.91@alum\\.mit\\.edu\\|azaza\\(el@\\(bigfoot\\.com\\|earthling\\.net\\)\\|le@hotmail\\.com\\)\\|msswift@iname\\.com\\|s\\(ueu@athena\\.mit\\.edu\\|wift@\\(a\\(cs\\.bu\\.edu\\|l\\(eph\\(\\.bu\\.edu\\)?\\|um\\.mit\\.edu\\)\\)\\|bu\\.edu\\|localhost\\|s\\(hore\\.net\\|wift\\.shore\\.net\\)\\)\\)\\).*") (setq gnus-group-goto-unread nil) (setq gnus-group-line-format "%m%M%S%p%P%5y %4R %3i: %(%g%)\n") (setq gnus-group-mode-hook '(gnus-topic-mode)) (setq gnus-group-catchup-group-hook '(gnus-topic-update-topic)) (setq gnus-exit-gnus-hook '(x-face-mule-save-cache-file)) (setq gnus-ignored-headers "^\\(X400.*\\|.*Path\\|.*Received\\|.*[Ii][Dd]\\|X-Vmsmail-.*\\|.*-Version\\|.*Host\\|Content-.*\\|.*Priority\\|X-WebTV-.*\\|\\(A\\(Category\\|pproved\\(-By\\)?\\|rticle-I\\.D\\.\\|uto-Submitted\\)\\|Control\\|Disposition-Notification-To\\|E\\(rrors-To\\|xpires\\)\\|Format\\|Importance\\|Lines\\|Nf-From\\|P\\(osted\\|recedence\\)\\|References\\|S\\(lugword\\|tatus\\)\\|Threadword\\|User-Agent\\|X\\(-\\(A\\(buse-Info\\|ccept-Language\\|dmin\\|rea\\)\\|Co\\(mplaints-To\\|nfirm-Reading-To\\)\\|Debian-PR-Message\\|Emacs\\|F\\(ilter\\|n\\)\\|Http-\\(Proxy\\|User-Agent\\)\\|Juno-Line-Breaks\\|Lo\\(op\\|tus-FromDomain\\)\\|M\\(IME-Autoconverted\\|S-TNEF-Correlator\\|a\\(iler\\|jordomo\\|naged-By\\)\\|imeOLE\\|yDeja-Info\\)\\|N\\(ewsreader\\|o-Archive\\)\\|P\\(H\\|MFLAGS\\)\\|Queue\\|R\\(T-Loop-Prevention\\|equestors\\)\\|T\\(X-Type\\|race\\)\\|UIDL\\|ccgate-env\\)\\|ref\\)\\)\\):") (setq gnus-visible-headers nil) (setq gnus-boring-article-headers '(empty newsgroups followup-to reply-to)) (setq gnus-article-x-face-command 'x-face-mule-gnus-article-display-x-face) (setq gnus-default-article-saver 'gnus-summary-save-in-file) (setq gnus-treat-hide-boring-headers 'head) (setq gnus-treat-date-local 'head) (setq gnus-treat-display-xface 'head) (setq gnus-dribble-directory "~/.trash") (setq gnus-activate-level 4) (setq gnus-activate-foreign-newsgroups 3) (setq gnus-read-newsrc-file nil) (setq gnus-save-newsrc-file nil) (setq gnus-save-killed-list nil) (setq gnus-check-bogus-groups-hook '(gnus-topic-clean-alist)) (setq gnus-before-startup-hook '(swift-gnus-startup-hook)) (setq gnus-asynchronous nil) (setq gnus-add-to-list t) (setq gnus-message-setup-hook '(x-face-define-menu)) (setq nnmail-split-methods 'nnmail-split-fancy) (setq nnmail-use-long-file-names t) (setq nnmail-spool-file nil) (setq nnmail-split-fancy '(! test-split "dummy")) (setq nnmail-extra-headers '(To Newsgroups)) (setq message-courtesy-message "The following message is a copy of an article\nthat has been posted to %s as well.\n\n") (setq message-from-style 'angles) (setq message-user-organization-file "/etc/news/organization") (setq message-wash-forwarded-subjects t) (setq message-sendmail-f-is-evil t) (setq message-post-method '(nnspool "")) (setq message-setup-hook '(mc-install-write-mode)) (setq message-mode-hook '(gnus-configure-posting-styles (lambda nil (set-fill-column 70)))) (setq message-header-setup-hook '(gnus-inews-insert-archive-gcc gnus-inews-insert-gcc swift-mail-abbrevs-sync-aliases)) (setq message-cite-function 'sc-cite-original) --=-=-=--