Hello Some weeks ago I asked 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" "[EMAIL PROTECTED]" "testbill")
^this is the relevant bbdb entry.
("From" "[EMAIL PROTECTED]" "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" "[EMAIL PROTECTED]" "Xemacs-patches") ;
("Sender" "[EMAIL PROTECTED]" "Xemacs-patches") ;
("To" " [email protected]" "OO-dba") ;
("Sender" "[EMAIL PROTECTED]" "Preview-latex") ;
("Sender" "[EMAIL PROTECTED]" "Linux-thinkpad") ;
("From" "[EMAIL PROTECTED]" "Secrequi")
("From" "[EMAIL PROTECTED]" "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" "[EMAIL PROTECTED]" "testimap")) | ("Subject"
"POSIBLE SPAM" "SPAM.POSS") ("Subject" ".*\\[labest05\\].*"
"Labest05") ("To" "[EMAIL PROTECTED]" "Xemacs-patches")
("Sender" "[EMAIL PROTECTED]" "Xemacs-patches") ("To"
" [email protected]" "OO-dba") ("Sender"
"[EMAIL PROTECTED]" "Preview-latex")
("Sender" "[EMAIL PROTECTED]" "Linux-thinkpad")
("From" "[EMAIL PROTECTED]" "Secrequi") ("From"
"[EMAIL PROTECTED]" "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" "[EMAIL PROTECTED]"
"Xemacs-patches") ("Sender" "[EMAIL PROTECTED]"
"Xemacs-patches") ("To" " [email protected]" "OO-dba")
("Sender" "[EMAIL PROTECTED]"
"Preview-latex") ("Sender" "[EMAIL PROTECTED]"
"Linux-thinkpad") ("From" "[EMAIL PROTECTED]" "Secrequi") ("From"
"[EMAIL PROTECTED]" "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"
"[EMAIL PROTECTED]" "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" "[EMAIL PROTECTED]" "Xemacs-patches") ;
("Sender" "[EMAIL PROTECTED]" "Xemacs-patches") ;
("To" " [email protected]" "OO-dba") ;
("Sender" "[EMAIL PROTECTED]" "Preview-latex") ;
("Sender" "[EMAIL PROTECTED]" "Linux-thinkpad") ;
("From" "[EMAIL PROTECTED]" "Secrequi")
("From" "[EMAIL PROTECTED]" "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
imap-split-bbdb-bug
Description: Binary data
_______________________________________________ Info-gnus-english mailing list [email protected] http://lists.gnu.org/mailman/listinfo/info-gnus-english
