From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/59891 Path: main.gmane.org!not-for-mail From: Uwe Brauer Newsgroups: gmane.emacs.gnus.general Subject: nnimap-generate-folder-list-from-bbdb, almost. Date: Wed, 23 Feb 2005 20:38:13 -0500 Message-ID: <87zmxulou2.fsf@mat.ucm.es> Reply-To: Uwe Brauer NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: sea.gmane.org 1109187840 26303 80.91.229.2 (23 Feb 2005 19:44:00 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Wed, 23 Feb 2005 19:44:00 +0000 (UTC) Original-X-From: ding-owner+M8432@lists.math.uh.edu Wed Feb 23 20:44:00 2005 Original-Received: from malifon.math.uh.edu ([129.7.128.13] ident=mail) by ciao.gmane.org with esmtp (Exim 4.43) id 1D42QL-0002B2-Ew for ding-account@gmane.org; Wed, 23 Feb 2005 20:43:53 +0100 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu ident=lists) by malifon.math.uh.edu with smtp (Exim 3.20 #1) id 1D42LB-0001Ei-00; Wed, 23 Feb 2005 13:38:33 -0600 Original-Received: from util2.math.uh.edu ([129.7.128.23]) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 1D42L1-0001Ec-00 for ding@lists.math.uh.edu; Wed, 23 Feb 2005 13:38:23 -0600 Original-Received: from quimby.gnus.org ([80.91.224.244]) by util2.math.uh.edu with esmtp (Exim 4.30) id 1D42Kw-0006XU-W2 for ding@lists.math.uh.edu; Wed, 23 Feb 2005 13:38:19 -0600 Original-Received: from news by quimby.gnus.org with local (Exim 3.35 #1 (Debian)) id 1D42Kw-0003kI-00 for ; Wed, 23 Feb 2005 20:38:18 +0100 Original-To: ding@gnus.org Original-Path: not-for-mail Original-Newsgroups: gnus.ding Original-Lines: 199 Original-NNTP-Posting-Host: maportatil10.quim.ucm.es Original-X-Trace: quimby.gnus.org 1109187498 14111 147.96.7.218 (23 Feb 2005 19:38:18 GMT) Original-X-Complaints-To: usenet@quimby.gnus.org Original-NNTP-Posting-Date: Wed, 23 Feb 2005 19:38:18 +0000 (UTC) X-Hashcash: 1:20:050224:gnus.ding::2vCYwrgFa3m8U31W:000000008OiZ User-Agent: Gnus/5.110003 (No Gnus v0.3) XEmacs/21.4.17 (linux) Cancel-Lock: sha1:TMA2F2scalxlQOf5cDwTKo9trVs= X-Spam-Score: -3.9 (---) Precedence: bulk Original-Sender: ding-owner@lists.math.uh.edu X-MailScanner-From: ding-owner+m8432@lists.math.uh.edu X-MailScanner-To: ding-account@gmane.org Xref: main.gmane.org gmane.emacs.gnus.general:59891 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:59891 --=-=-= Hello Some weeks ago I asked in the gnus group for a function which would allow to generate a entry in the nnimap-split-fancy list, based on a relevant bbdb entry. I am almost there, that is I obtained a function (my:nnimap-folder-list-from-bbdb) --which I have added below-- Evaluation the function, that (eval-expression '(my:nnimap-folder-list-from-bbdb) nil) returns ( ("From" "bill@upct\\.es" "testbill") ^this is the relevant bbdb entry. ("From" "oub@mat\\.ucm\\.es" "testimap")) ^this is the relevant bbdb entry. Now the problem is I don't know who to add this to the nnimap-split-entry That variable is as follows: (setq nnimap-split-rule 'nnimap-split-fancy nnimap-split-inbox "INBOX" nnimap-split-fancy '(| ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ; ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ; ("To" " users@dba.openoffice.org" "OO-dba") ; ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ; ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ; ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split 'spam-use-BBDB 'spam-use-stat "SPAM.REAL") (: spam-split 'spam-use-regex-headers "SPAM.POSS") ;Version:1.10 (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split 'spam-use-BBDB "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX")) So I thought of either doing (defun my:nnimap-generate-folder-list-from-bbdb () "Sets 'nnimap-folder-list to the result of my:nnimap-folder-list-from-bbdb." (interactive) (add-to-list 'nnimap-split-fancy (my:nnimap-folder-list-from-bbdb) )) Which resulted in `nnimap-split-fancy' is a variable declared in Lisp. -- loaded from "nnimap" Value: ((("From" "oub@mat\\.ucm\\.es" "testimap")) | ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ("To" " users@dba.openoffice.org" "OO-dba") ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split (quote spam-use-BBDB) (quote spam-use-stat) "SPAM.REAL") (: spam-split (quote spam-use-regex-headers) "SPAM.POSS") (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split (quote spam-use-BBDB) "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX") which is wrong the new entry has to appear after the | symbol Or (defun my:nnimap-generate-folder-list-from-bbdb () "Sets 'nnimap-folder-list to the result of my:nnimap-folder-list-from-bbdb." (interactive) (add-to-list 'nnimap-split-fancy (my:nnimap-folder-list-from-bbdb) 'append)) Which results in `nnimap-split-fancy' is a variable declared in Lisp. -- loaded from "nnimap" Value: (| ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ("To" " users@dba.openoffice.org" "OO-dba") ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split (quote spam-use-BBDB) (quote spam-use-stat) "SPAM.REAL") (: spam-split (quote spam-use-regex-headers) "SPAM.POSS") (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split (quote spam-use-BBDB) "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX" (("From" "oub@mat\\.ucm\\.es" "testimap"))) Which is also bad, since it is the last entry. or (setq nnimap-split-rule 'nnimap-split-fancy nnimap-split-inbox "INBOX" nnimap-split-fancy '(| (: my:nnimap-folder-list-from-bbdb) ("Subject" "POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*" "Labest05") ;DAS IST ES!!!! Jan 27, 2005 13:34 ("To" "xemacs-patches@xemacs.org" "Xemacs-patches") ; ("Sender" "xemacs-patches-bounces@xemacs.org" "Xemacs-patches") ; ("To" " users@dba.openoffice.org" "OO-dba") ; ("Sender" "preview-latex-devel-admin@lists.sourceforge.net" "Preview-latex") ; ("Sender" "linux-thinkpad-admin@linux-thinkpad.org" "Linux-thinkpad") ; ("From" "MA_Quimicas@mat.ucm.es" "Secrequi") ("From" "Matematica_Aplicada@mat.ucm.es" "Secremat") (: setq spam-use-BBDB-exclusive nil) (: spam-split 'spam-use-BBDB 'spam-use-stat "SPAM.REAL") (: spam-split 'spam-use-regex-headers "SPAM.POSS") ;Version:1.10 (: setq spam-use-BBDB-exclusive t fake-variable nil) (: spam-split 'spam-use-BBDB "SPAM.HAM") (: setq spam-use-BBDB-exclusive nil) "MAILBOX")) That however gave an error I have attached below. (As I understand there are to may parenthesis generated.) I would appreciate any help on this subject. I think that function can be really convenient. Thanks Uwe Brauer --=-=-= Content-Type: application/octet-stream Content-Disposition: attachment; filename=imap-split-bbdb-bug Content-Transfer-Encoding: base64 RGVidWdnZXIgZW50ZXJlZC0tTGlzcCBlcnJvcjogKGludmFsaWQtZnVuY3Rp b24gKG15Om5uaW1hcC1mb2xkZXItbGlzdC1mcm9tLWJiZGIpKQogICgobXk6 bm5pbWFwLWZvbGRlci1saXN0LWZyb20tYmJkYikpCiAgZXZhbCgoKG15Om5u aW1hcC1mb2xkZXItbGlzdC1mcm9tLWJiZGIpKSkKICBubm1haWwtc3BsaXQt aXQoKDogKG15Om5uaW1hcC1mb2xkZXItbGlzdC1mcm9tLWJiZGIpKSkKICBu bm1haWwtc3BsaXQtaXQoKHwgKDogKG15Om5uaW1hcC1mb2xkZXItbGlzdC1m cm9tLWJiZGIpKSAoIlN1YmplY3QiICIuKlxcW1BPU1NJTEJMRSBTUEFNXFxd LioiICJTUEFNLlBPU1MiKSAoIlN1YmplY3QiICIuKlxcPFxcW1BPU1NJQkxF LlNQQU1cXF1cXD4uKiIgIlNQQU0uUE9TUyIpICgiU3ViamVjdCIgIlBPU0lC TEUgU1BBTSIgIlNQQU0uUE9TUyIpICgiU3ViamVjdCIgIi4qXFxbbGFiZXN0 MDVcXF0uKiIgIkxhYmVzdDA1IikgKCJUbyIgInhlbWFjcy1wYXRjaGVzQHhl bWFjcy5vcmciICJYZW1hY3MtcGF0Y2hlcyIpICgiU2VuZGVyIiAieGVtYWNz LXBhdGNoZXMtYm91bmNlc0B4ZW1hY3Mub3JnIiAiWGVtYWNzLXBhdGNoZXMi KSAoIlRvIiAiIHVzZXJzQGRiYS5vcGVub2ZmaWNlLm9yZyIgIk9PLWRiYSIp ICgiU2VuZGVyIiAicHJldmlldy1sYXRleC1kZXZlbC1hZG1pbkBsaXN0cy5z b3VyY2Vmb3JnZS5uZXQiICJQcmV2aWV3LWxhdGV4IikgKCJTZW5kZXIiICJs aW51eC10aGlua3BhZC1hZG1pbkBsaW51eC10aGlua3BhZC5vcmciICJMaW51 eC10aGlua3BhZCIpICgiRnJvbSIgIk1BX1F1aW1pY2FzQG1hdC51Y20uZXMi ICJTZWNyZXF1aSIpICgiRnJvbSIgIk1hdGVtYXRpY2FfQXBsaWNhZGFAbWF0 LnVjbS5lcyIgIlNlY3JlbWF0IikgKDogc2V0cSBzcGFtLXVzZS1CQkRCLWV4 Y2x1c2l2ZSBuaWwpICg6IHNwYW0tc3BsaXQgKHF1b3RlIHNwYW0tdXNlLUJC REIpIChxdW90ZSBzcGFtLXVzZS1zdGF0KSAiU1BBTS5SRUFMIikgKDogc3Bh bS1zcGxpdCAocXVvdGUgc3BhbS11c2UtcmVnZXgtaGVhZGVycykgIlNQQU0u UE9TUyIpICg6IHNldHEgc3BhbS11c2UtQkJEQi1leGNsdXNpdmUgdCBmYWtl LXZhcmlhYmxlIG5pbCkgKDogc3BhbS1zcGxpdCAocXVvdGUgc3BhbS11c2Ut QkJEQikgIlNQQU0uSEFNIikgKDogc2V0cSBzcGFtLXVzZS1CQkRCLWV4Y2x1 c2l2ZSBuaWwpICJNQUlMQk9YIikpCiAgbm5tYWlsLXNwbGl0LWZhbmN5KCkK ICBubmltYXAtc3BsaXQtZmFuY3koKQogIG5uaW1hcC1zcGxpdC10by1ncm91 cHMobm5pbWFwLXNwbGl0LWZhbmN5KQogIG5uaW1hcC1zcGxpdC1hcnRpY2xl cyhuaWwgInVjbWFpbC51Y20uZXMiKQogIG5uaW1hcC1yZXF1ZXN0LXNjYW4o bmlsICJ1Y21haWwudWNtLmVzIikKICBnbnVzLXJlcXVlc3Qtc2NhbihuaWwg KG5uaW1hcCAidWNtYWlsLnVjbS5lcyIpKQogIGdudXMtcmVhZC1hY3RpdmUt ZmlsZS0xKChubmltYXAgInVjbWFpbC51Y20uZXMiKSBuaWwpCiAgZ251cy1y ZWFkLWFjdGl2ZS1maWxlKCkKICBnbnVzLWdyb3VwLWdldC1uZXctbmV3cyhu aWwpCiAgY2FsbC1pbnRlcmFjdGl2ZWx5KGdudXMtZ3JvdXAtZ2V0LW5ldy1u ZXdzKQogIHJlY3Vyc2l2ZS1lZGl0KCkKICBieXRlLWNvZGUoIi4uLiIgW2J1 ZmZlci1yZWFkLW9ubHkgbm9uaW50ZXJhY3RpdmUgZGVidWdnZXItYnVmZmVy IG1pZGRsZXN0YXJ0IGRlYnVnZ2VyLWFyZ3MgZGVidWdnZXItYmF0Y2gtbWF4 LWxpbmVzIHBvcC10by1idWZmZXIgZGVidWdnZXItbW9kZSBkZWJ1Z2dlci1z ZXR1cC1idWZmZXIgY291bnQtbGluZXMgMiAiLi4uXG4iIG1lc3NhZ2UgYnVm ZmVyLXN0cmluZyBraWxsLWVtYWNzIGRlYnVnIGJhY2t0cmFjZS1kZWJ1ZyAz IHQgZGVidWdnZXItcmVlbmFibGUgIiIgbmlsIHJlY3Vyc2l2ZS1lZGl0IHN0 YW5kYXJkLW91dHB1dF0gMykKICBkZWJ1ZyhlcnJvciAodm9pZC1mdW5jdGlv biBmb2xkaW5nLWZvbGQtcmVnaW9uKSkK --=-=-=--