From: yamaoka Date: Sun, 4 Jan 2004 06:55:51 +0000 (+0000) Subject: Synch to Gnus 200401040320. X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=d7ba7616a9115179847f440eae631c3e9dd769e8;p=elisp%2Fgnus.git- Synch to Gnus 200401040320. --- diff --git a/ChangeLog b/ChangeLog index 64080f7..3ebc9c4 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,24 @@ +2004-01-04 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.16.5 revision 00. + +2004-01-04 Katsumi Yamaoka + + * lisp/gnus-vers.el: T-gnus 6.16.4 revision 00. + +2004-01-03 Reiner Steib + + * GNUS-NEWS: Update copyright. + + * etc/gnus-tut.txt (Gnus FAQ): Remove text version. Refer to info + documentation and online version instead. + + * GNUS-NEWS: Changed "Dired integration" + +2004-01-02 Reiner Steib + + * GNUS-NEWS: Add `gnus-group-read-ephemeral-group'. + 2003-12-30 Katsumi Yamaoka * lisp/gnus-vers.el: T-gnus 6.16.3 revision 00. diff --git a/GNUS-NEWS b/GNUS-NEWS index 97aa520..b891063 100644 --- a/GNUS-NEWS +++ b/GNUS-NEWS @@ -1,5 +1,5 @@ GNUS NEWS -- history of user-visible changes. -Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. See the end for copying conditions. Please send Gnus bug reports to bugs@gnus.org. @@ -8,6 +8,8 @@ For older news, see Gnus info node "New Features". * Changes in Oort Gnus +** `gnus-group-read-ephemeral-group' can be called interactively, using `G M'. + ** In draft groups, `e' is now bound to `gnus-draft-edit-message'. Use `B w' for `gnus-summary-edit-article' instead. @@ -32,12 +34,12 @@ variables `gnus-button-*-level' can be used to control the appearance of all article buttons, see the info node "Article Button Levels". ** Dired integration -`gnus-dired-minor-mode' installs key bindings in dired buffers to send -a file as an attachment (`C-c C-a'), open a file using the approriate -mailcap entry (`C-c C-l'), and print a file using the mailcap entry -(`C-c P'). It is enabled with - (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) +`gnus-dired-minor-mode' installs key bindings in dired buffers to send a file +as an attachment (`C-c C-m C-a'), open a file using the approriate mailcap +entry (`C-c C-m C-l'), and print a file using the mailcap entry (`C-c C-m +C-p'). See the info node "Other modes". + ** Gnus can display RSS newsfeeds as a newsgroup. To get started do `B nnrss RET RET' in the Group buffer. diff --git a/README.T-gnus b/README.T-gnus index 0220e48..ff6d579 100644 --- a/README.T-gnus +++ b/README.T-gnus @@ -33,5 +33,5 @@ NEWS: * T-gnus 6.16 - this is based on Gnus. - The latest T-gnus is T-gnus 6.16.4 (based on Gnus 5.10.4). It + The latest T-gnus is T-gnus 6.16.6 (based on Gnus 5.10.6). It requires SEMI 1.14, FLIM 1.14, and APEL 10.0 or later. diff --git a/etc/gnus-tut.txt b/etc/gnus-tut.txt index 9149610..62d0d01 100644 --- a/etc/gnus-tut.txt +++ b/etc/gnus-tut.txt @@ -296,1594 +296,23 @@ is where to post the questions. From fschmitt Sat Mar 22 18:13:00 2003 From: faq@my.gnus.org (Gnus FAQ team) Date: Sat Mar 22 18:13:00 2003 -Subject: Gnus FAQ -Message-ID: - -This is the text version of the Gnus FAQ, see http://my.gnus.org for -the up to date version of this document, there you can also find a -html version and various other formats. There's also a texinfo version -of the FAQ distributed with Gnus. - -Table of Contents - -Introduction -Frequently Asked Questions with Answers -Glossary - -Abstract - -This is the new Gnus Frequently Asked Questions list. If you have a -Web browser, the official hypertext version is at http:// -my.gnus.org/FAQ/ [http://my.gnus.org/FAQ/], the Docbook source is -available from http://sourceforge.net [http://sourceforge.net/ -projects/gnus/]. - -Please submit features and suggestions to the FAQ discussion list -[mailto:faq-discuss@my.gnus.org]. The list is protected against -junk mail with qconfirm [http://smarden.org/qconfirm/index.html]. -As a subscriber, your submissions will automatically pass. You can -also subscribe to the list by sending a blank email to -faq-discuss-subscribe@my.gnus.org -[mailto:faq-discuss-subscribe@my.gnus.org] and browse the archive. - -Introduction - -This is the Gnus Frequently Asked Questions list. - -Gnus is a Usenet Newsreader and Electronic Mail User Agent -implemented as a part of Emacs. It's been around in some form for -almost a decade now, and has been distributed as a standard part of -Emacs for much of that time. Gnus 5 is the latest (and greatest) -incarnation. The original version was called GNUS, and was written -by Masanobu UMEDA. When autumn crept up in '94, Lars Magne -Ingebrigtsen grew bored and decided to rewrite Gnus. - -Its biggest strength is the fact that it is extremely customizable. -It is somewhat intimidating at first glance, but most of the -complexity can be ignored until you're ready to take advantage of -it. If you receive a reasonable volume of e-mail (you're on various -mailing lists), or you would like to read high-volume mailing lists -but cannot keep up with them, or read high volume newsgroups or are -just bored, then Gnus is what you want. - -This FAQ was maintained by Justin Sheehy until March 2002. He would -like to thank Steve Baur and Per Abrahamsen for doing a wonderful -job with this FAQ before him. We would like to do the same - -thanks, Justin! - -If you have a Web browser, the official hypertext version is at: -http://my.gnus.org/FAQ/ [http://my.gnus.org/FAQ/]. This version is -much nicer than the unofficial hypertext versions that are archived -at Utrecht, Oxford, Smart Pages, Ohio State, and other FAQ -archives. See the resources question below if you want information -on obtaining it in another format. - -The information contained here was compiled with the assistance of -the Gnus development mailing list, and any errors or misprints are -the my.gnus.org team's fault, sorry. - -Frequently Asked Questions with Answers - -1. Installation FAQ - - 1.1. What is the latest version of Gnus? - 1.2. What's new in 5.10.0? - 1.3. Where and how to get Gnus? - 1.4. What to do with the tarball now? - 1.5. Which version of Emacs do I need? - 1.6. How do I run Gnus on both Emacs and XEmacs? - -2. Startup / Group buffer - - 2.1. Every time I start Gnus I get a message "Gnus auto-save - file exists. Do you want to read it?", what does this mean - and how to prevent it? - 2.2. Gnus doesn't remember which groups I'm subscribed to, - what's this? - 2.3. How to change the format of the lines in Group buffer? - 2.4. My group buffer becomes a bit crowded, is there a way to - sort my groups into categories so I can easier browse - through them? - 2.5. How to manually sort the groups in Group buffer? How to - sort the groups in a topic? - -3. Getting Messages - - 3.1. I just installed Gnus, started it via M-x gnus but it only - says "nntp (news) open error", what to do? - 3.2. I'm working under Windows and have no idea what ~/.gnus - means. - 3.3. My news server requires authentication, how to store user - name and password on disk? - 3.4. Gnus seems to start up OK, but I can't find out how to - subscribe to a group. - 3.5. Gnus doesn't show all groups / Gnus says I'm not allowed - to post on this server as well as I am, what's that? - 3.6. I want Gnus to fetch news from several servers, is this - possible? - 3.7. And how about local spool files? - 3.8. OK, reading news works now, but I want to be able to read - my mail with Gnus, too. How to do it? - 3.9. And what about IMAP? - 3.10. At the office we use one of those MS Exchange servers, - can I use Gnus to read my mail from it? - 3.11. Can I tell Gnus not to delete the mails on the server it - retrieves via POP3? - -4. Reading messages - - 4.1. When I enter a group, all read messages are gone. How to - view them again? - 4.2. How to tell Gnus to show an important message every time I - enter a group, even when it's read? - 4.3. How to view the headers of a message? - 4.4. How to view the raw unformatted message? - 4.5. How can I change the headers Gnus displays by default at - the top of the article buffer? - 4.6. I'd like Gnus NOT to render HTML-mails but show me the - text part if it's available. How to do it? - 4.7. Can I use some other browser than w3 to render my - HTML-mails? - 4.8. Is there anything I can do to make poorly formatted mails - more readable? - 4.9. Is there a way to automatically ignore posts by specific - authors or with specific words in the subject? And can I - highlight more interesting ones in some way? - 4.10. How can I disable threading in some (e.g. mail-) groups, - or set other variables specific for some groups? - 4.11. Can I highlight messages written by me and follow-ups to - those? - 4.12. The number of total messages in a group which Gnus - displays in group buffer is by far to high, especially in - mail groups. Is this a bug? - 4.13. I don't like the layout of summary and article buffer, - how to change it? Perhaps even a three pane display? - 4.14. I don't like the way the Summary buffer looks, how to - tweak it? - 4.15. How to split incoming mails in several groups? - -5. Composing messages - - 5.1. What are the basic commands I need to know for sending - mail and postings? - 5.2. How to enable automatic word-wrap when composing messages? - 5.3. How to set stuff like From, Organization, Reply-To, - signature...? - 5.4. Can I set things like From, Signature etc group based on - the group I post too? - 5.5. Is there a spell-checker? Perhaps even on-the-fly - spell-checking? - 5.6. Can I set the dictionary based on the group I'm posting - to? - 5.7. Is there some kind of address-book, so I needn't remember - all those email addresses? - 5.8. Sometimes I see little images at the top of article - buffer. What's that and how can I send one with my - postings, too? - 5.9. Sometimes I accidentally hit r instead of f in newsgroups. - Can Gnus warn me, when I'm replying by mail in newsgroups? - 5.10. How to tell Gnus not to generate a sender header? - 5.11. I want gnus to locally store copies of my send mail and - news, how to do it? - 5.12. People tell me my Message-IDs are not correct, why aren't - they and how to fix it? - -6. Old messages - - 6.1. How to import my old mail into Gnus? - 6.2. How to archive interesting messages? - 6.3. How to search for a specific message? - 6.4. How to get rid of old unwanted mail? - 6.5. I want that all read messages are expired (at least in - some groups). How to do it? - 6.6. I don't want expiration to delete my mails but to move - them to another group. - -7. Gnus in a dial-up environment - - 7.1. I don't have a permanent connection to the net, how can I - minimize the time I've got to be connected? - 7.2. So what was this thing about the Agent? - 7.3. I want to store article bodies on disk, too. How to do it? - 7.4. How to tell Gnus not to try to send mails / postings while - I'm offline? - -8. Getting help - - 8.1. How to find information and help inside Emacs? - 8.2. I can't find anything in the Gnus manual about X (e.g. - attachments, PGP, MIME...), is it not documented? - 8.3. Which websites should I know? - 8.4. Which mailing lists and newsgroups are there? - 8.5. Where to report bugs? - 8.6. I need real-time help, where to find it? - -9. Tuning Gnus - - 9.1. Starting Gnus is really slow, how to speed it up? - 9.2. How to speed up the process of entering a group? - 9.3. Sending mail becomes slower and slower, what's up? - -1. Installation FAQ - -1.1. What is the latest version of Gnus? - - Jingle please: Gnus 5.10.0 is released, get it while it's hot! As - well as the step in version number is rather small, Gnus 5.10 has - tons of new features which you shouldn't miss, however if you are - cautious, you might prefer to stay with 5.8.8 respectively 5.9 - (they are basically the same) until some bugfix releases are out. - -1.2. What's new in 5.10.0? - - First of all, you should have a look into the file GNUS-NEWS in the - toplevel directory of the Gnus tarball, there the most important - changes are listed. Here's a short list of the changes I find - especially important/interesting: - - * Major rewrite of the Gnus agent, Gnus agent is now active by - default. - - Many new article washing functions for dealing with ugly - formatted articles. - - Anti Spam features. - - message-utils now included in Gnus. - - New format specifiers for summary lines, e.g. %B for a complex - trn-style thread tree. - -1.3. Where and how to get Gnus? - - The latest released version of Gnus isn't included in Emacs 21 and - until now it also isn't available through the package system of - XEmacs 21.4, therefor you should get the Gnus tarball from http:// - www.gnus.org/dist/gnus.tar.gz [http://www.gnus.org/dist/ - gnus.tar.gz] or via anonymous FTP from ftp://ftp.gnus.org/pub/gnus/ - gnus.tar.gz [ftp://ftp.gnus.org/pub/gnus/gnus.tar.gz]. - -1.4. What to do with the tarball now? - - Untar it via tar xvzf gnus.tar.gz and do the common ./configure; - make; make install circle. (under MS-Windows either get the Cygwin - environment from http://www.cygwin.com [http://www.cygwin.com] - which allows you to do what's described above or unpack the tarball - with some packer (e.g. Winace from http://www.winace.com [http:// - www.winace.com]) and use the batch-file make.bat included in the - tarball to install Gnus. If you don't want to (or aren't allowed - to) install Gnus system-wide, you can install it in your home - directory and add the following lines to your ~/.xemacs/init.el or - ~/.emacs: - - (add-to-list 'load-path "/path/to/gnus/lisp") - (if (featurep 'xemacs) - (add-to-list 'Info-directory-list "/path/to/gnus/texi/") - (add-to-list 'Info-default-directory-list "/path/to/gnus/texi/")) - - - Make sure that you don't have any gnus related stuff before this - line, on MS Windows use something like "C:/path/to/lisp" (yes, "/ - "). - -1.5. Which version of Emacs do I need? - - Gnus 5.10.0 requires an Emacs version that is greater than or equal - to Emacs 20.7 or XEmacs 21.1. - -1.6. How do I run Gnus on both Emacs and XEmacs? - - You can't use the same copy of Gnus in both as the Lisp files are - byte-compiled to a format which is different depending on which - Emacs did the compilation. Get one copy of Gnus for Emacs and one - for XEmacs. - -2. Startup / Group buffer - -2.1. Every time I start Gnus I get a message "Gnus auto-save file - exists. Do you want to read it?", what does this mean and how to - prevent it? - - This message means that the last time you used Gnus, it wasn't - properly exited and therefor couldn't write its informations to - disk (e.g. which messages you read), you are now asked if you want - to restore those informations from the auto-save file. - - To prevent this message make sure you exit Gnus via q in group - buffer instead of just killing Emacs. - -2.2. Gnus doesn't remember which groups I'm subscribed to, what's this? - - You get the message described in the q/a pair above while starting - Gnus, right? It's an other symptom for the same problem, so read - the answer above. - -2.3. How to change the format of the lines in Group buffer? - - You've got to tweak the value of the variable - gnus-group-line-format. See the manual node "Group Line - Specification" for information on how to do this. An example for - this (guess from whose .gnus :-)): - - (setq gnus-group-line-format "%P%M%S[%5t]%5y : %(%g%)\n") - - -2.4. My group buffer becomes a bit crowded, is there a way to sort my - groups into categories so I can easier browse through them? - - Gnus offers the topic mode, it allows you to sort your groups in, - well, topics, e.g. all groups dealing with Linux under the topic - linux, all dealing with music under the topic music and all dealing - with scottish music under the topic scottish which is a subtopic of - music. - - To enter topic mode, just hit t while in Group buffer. Now you can - use T n to create a topic at point and T m to move a group to a - specific topic. For more commands see the manual or the menu. You - might want to include the %P specifier at the beginning of your - gnus-group-line-format variable to have the groups nicely indented. - -2.5. How to manually sort the groups in Group buffer? How to sort the - groups in a topic? - - Move point over the group you want to move and hit C-k, now move - point to the place where you want the group to be and hit C-y. - -3. Getting Messages - -3.1. I just installed Gnus, started it via M-x gnus but it only says - "nntp (news) open error", what to do? - - You've got to tell Gnus where to fetch the news from. Read the - documentation for information on how to do this. As a first start, - put those lines in ~/.gnus: - - (setq gnus-select-method '(nntp "news.yourprovider.net")) - (setq user-mail-address "you@yourprovider.net") - (setq user-full-name "Your Name") - - -3.2. I'm working under Windows and have no idea what ~/.gnus means. - - The ~/ means the home directory where Gnus and Emacs look for the - configuration files. However, you don't really need to know what - this means, it suffices that Emacs knows what it means :-) You can - type C-x C-f ~/.gnus RET (yes, with the forward slash, even on - Windows), and Emacs will open the right file for you. (It will most - likely be new, and thus empty.) However, I'd discourage you from - doing so, since the directory Emacs chooses will most certainly not - be what you want, so let's do it the correct way. The first thing - you've got to do is to create a suitable directory (no blanks in - directory name please) e.g. c:\myhome. Then you must set the - environment variable HOME to this directory. To do this under Win9x - or Me include the line - - SET HOME=C:\myhome - - - in your autoexec.bat and reboot. Under NT, 2000 and XP, hit - Winkey+Pause/Break to enter system options (if it doesn't work, go - to Control Panel -> System). There you'll find the possibility to - set environment variables, create a new one with name HOME and - value C:\myhome, a reboot is not necessary. - - Now to create ~/.gnus, say C-x C-f ~/.gnus RET C-x C-s. in Emacs. - -3.3. My news server requires authentication, how to store user name and - password on disk? - - Create a file ~/.authinfo which includes for each server a line - like this - - machine news.yourprovider.net login YourUserName password YourPassword - - . Make sure that the file isn't readable to others if you work on a - OS which is capable of doing so. (Under Unix say - - chmod 600 ~/.authinfo - - in a shell.) - -3.4. Gnus seems to start up OK, but I can't find out how to subscribe to - a group. - - If you know the name of the group say U name.of.group RET in group - buffer (use the tab-completion Luke). Otherwise hit ^ in group - buffer, this brings you to the server buffer. Now place point (the - cursor) over the server which carries the group you want, hit RET, - move point to the group you want to subscribe to and say u to - subscribe to it. - -3.5. Gnus doesn't show all groups / Gnus says I'm not allowed to post on - this server as well as I am, what's that? - - Some providers allow restricted anonymous access and full access - only after authorization. To make Gnus send authinfo to those - servers append - - force yes - - to the line for those servers in ~/.authinfo. - -3.6. I want Gnus to fetch news from several servers, is this possible? - - Of course. You can specify more sources for articles in the - variable gnus-secondary-select-methods. Add something like this in - ~/.gnus: - - (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourSecondProvider.net")) - (add-to-list 'gnus-secondary-select-methods '(nntp "news.yourThirdProvider.net")) - - -3.7. And how about local spool files? - - No problem, this is just one more select method called nnspool, so - you want this: - - (add-to-list 'gnus-secondary-select-methods '(nnspool "")) - - - Or this if you don't want an NNTP Server as primary news source: - - (setq gnus-select-method '(nnspool "")) - - - Gnus will look for the spool file in /usr/spool/news, if you want - something different, change the line above to something like this: - - (add-to-list 'gnus-secondary-select-methods - '(nnspool "" (nnspool-directory "/usr/local/myspoolddir"))) - - - This sets the spool directory for this server only. You might have - to specify more stuff like the program used to post articles, see - the Gnus manual on how to do this. - -3.8. OK, reading news works now, but I want to be able to read my mail - with Gnus, too. How to do it? - - That's a bit harder since there are many possible sources for mail, - many possible ways for storing mail and many different ways for - sending mail. The most common cases are these: 1: You want to read - your mail from a pop3 server and send them directly to a SMTP - Server 2: Some program like fetchmail retrieves your mail and - stores it on disk from where Gnus shall read it. Outgoing mail is - sent by Sendmail, Postfix or some other MTA. Sometimes, you even - need a combination of the above cases. - - However, the first thing to do is to tell Gnus in which way it - should store the mail, in Gnus terminology which back end to use. - Gnus supports many different back ends, the most commonly used one - is nnml. It stores every mail in one file and is therefor quite - fast. However you might prefer a one file per group approach if - your file system has problems with many small files, the nnfolder - back end is then probably the choice for you. To use nnml add the - following to ~/.gnus: - - (add-to-list 'gnus-secondary-select-methods '(nnml "")) - - - As you might have guessed, if you want nnfolder, it's - - (add-to-list 'gnus-secondary-select-methods '(nnfolder "")) - - - Now we need to tell Gnus, where to get it's mail from. If it's a - POP3 server, then you need something like this: - - (eval-after-load "mail-source" - '(add-to-list 'mail-sources '(pop :server "pop.YourProvider.net" - :user "yourUserName" - :password "yourPassword")) - - - Make sure ~/.gnus isn't readable to others if you store your - password there. If you want to read your mail from a traditional - spool file on your local machine, it's - - (eval-after-load "mail-source" - '(add-to-list 'mail-sources '(file :path "/path/to/spool/file")) - - - If it's a Maildir, with one file per message as used by postfix, - Qmail and (optionally) fetchmail it's - - (eval-after-load "mail-source" - '(add-to-list 'mail-sources '(maildir :path "/path/to/Maildir/" - :subdirs ("cur" "new"))) - - - And finally if you want to read your mail from several files in one - directory, for example because procmail already split your mail, - it's - - (eval-after-load "mail-source" - '(add-to-list 'mail-sources '(directory :path "/path/to/procmail-dir/" - :suffix ".prcml")) - - - Where :suffix ".prcml" tells Gnus only to use files with the suffix - .prcml. - - OK, now you only need to tell Gnus how to send mail. If you want to - send mail via sendmail (or whichever MTA is playing the role of - sendmail on your system), you don't need to do anything. However, - if you want to send your mail to an SMTP Server you need the - following in your ~/.gnus - - (setq send-mail-function 'smtpmail-send-it) - (setq message-send-mail-function 'smtpmail-send-it) - (setq smtpmail-default-smtp-server "smtp.yourProvider.net") - - -3.9. And what about IMAP? - - There are two ways of using IMAP with Gnus. The first one is to use - IMAP like POP3, that means Gnus fetches the mail from the IMAP - server and stores it on disk. If you want to do this (you don't - really want to do this) add the following to ~/.gnus - - (add-to-list 'mail-sources '(imap :server "mail.mycorp.com" - :user "username" - :pass "password" - :stream network - :authentication login - :mailbox "INBOX" - :fetchflag "\\Seen")) - - - You might have to tweak the values for stream and/or - authentification, see the Gnus manual node "Mail Source Specifiers" - for possible values. - - If you want to use IMAP the way it's intended, you've got to follow - a different approach. You've got to add the nnimap back end to your - select method and give the information about the server there. - - (add-to-list 'gnus-secondary-select-methods - '(nnimap "Give the baby a name" - (nnimap-address "imap.yourProvider.net") - (nnimap-port 143) - (nnimap-list-pattern "archive.*"))) - - - Again, you might have to specify how to authenticate to the server - if Gnus can't guess the correct way, see the Manual Node "IMAP" for - detailed information. - -3.10. At the office we use one of those MS Exchange servers, can I use - Gnus to read my mail from it? - - Offer your administrator a pair of new running shoes for activating - IMAP on the server and follow the instructions above. - -3.11. Can I tell Gnus not to delete the mails on the server it retrieves - via POP3? - - First of all, that's not the way POP3 is intended to work, if you - have the possibility, you should use the IMAP Protocol if you want - your messages to stay on the server. Nevertheless there might be - situations where you need the feature, but sadly Gnus itself has no - predefined functionality to do so. - - However this is Gnus county so there are possibilities to achieve - what you want. The easiest way is to get an external program which - retrieves copies of the mail and stores them on disk, so Gnus can - read it from there. On Unix systems you could use e.g. fetchmail - for this, on MS Windows you can use Hamster, an excellent local - news and mail server. - - The other solution would be, to replace the method Gnus uses to get - mail from POP3 servers by one which is capable of leaving the mail - on the server. If you use XEmacs, get the package mail-lib, it - includes an enhanced pop3.el, look in the file, there's - documentation on how to tell Gnus to use it and not to delete the - retrieved mail. For GNU Emacs look for the file epop3.el which can - do the same (If you know the home of this file, please send me an - e-mail). You can also tell Gnus to use an external program (e.g. - fetchmail) to fetch your mail, see the info node "Mail Source - Specifiers" in the Gnus manual on how to do it. - -4. Reading messages - -4.1. When I enter a group, all read messages are gone. How to view them - again? - - If you enter the group by saying RET in summary buffer with point - over the group, only unread and ticked messages are loaded. Say C-u - RET instead to load all available messages. If you want only the - e.g. 300 newest say C-u 300 RET - - Loading only unread messages can be annoying if you have threaded - view enabled, say - - (setq gnus-fetch-old-headers 'some) - - - in ~/.gnus to load enough old articles to prevent teared threads, - replace 'some with t to load all articles (Warning: Both settings - enlarge the amount of data which is fetched when you enter a group - and slow down the process of entering a group). - - If you already use Gnus 5.10.0, you can say /o N In summary buffer - to load the last N messages, this feature is not available in 5.8.8 - - If you don't want all old messages, but the parent of the message - you're just reading, you can say ^, if you want to retrieve the - whole thread the message you're just reading belongs to, A T is - your friend. - -4.2. How to tell Gnus to show an important message every time I enter a - group, even when it's read? - - You can tick important messages. To do this hit u while point is in - summary buffer over the message. When you want to remove the mark, - hit either d (this deletes the tick mark and set's unread mark) or - M c (which deletes all marks for the message). - -4.3. How to view the headers of a message? - - Say t to show all headers, one more t hides them again. - -4.4. How to view the raw unformatted message? - - Say C-u g to show the raw message g returns to normal view. - -4.5. How can I change the headers Gnus displays by default at the top of - the article buffer? - - The variable gnus-visible-headers controls which headers are shown, - its value is a regular expression, header lines which match it are - shown. So if you want author, subject, date, and if the header - exists, Followup-To and MUA / NUA say this in ~/.gnus: - - (setq gnus-visible-headers - "^\\(From:\\|Subject:\\|Date:\\|Followup-To:\\|X-Newsreader:\\|User-Agent:\\|X-Mailer:\\)") - - -4.6. I'd like Gnus NOT to render HTML-mails but show me the text part if - it's available. How to do it? - - Say - - (eval-after-load "mm-decode" - '(progn - (add-to-list 'mm-discouraged-alternatives "text/html") - (add-to-list 'mm-discouraged-alternatives "text/richtext"))) - - - in ~/.gnus. If you don't want HTML rendered, even if there's no - text alternative add - - (setq mm-automatic-display (remove "text/html" mm-automatic-display)) - - - too. - -4.7. Can I use some other browser than w3 to render my HTML-mails? - - Only if you use Gnus 5.10.0 or younger. In this case you've got the - choice between w3, w3m, links, lynx and html2text, which one is - used can be specified in the variable mm-text-html-renderer, so if - you want links to render your mail say - - (setq mm-text-html-renderer 'links) - - -4.8. Is there anything I can do to make poorly formatted mails more - readable? - - Gnus offers you several functions to "wash" incoming mail, you can - find them if you browse through the menu, item Article->Washing. - The most interesting ones are probably "Wrap long lines" ( W w ), - "Decode ROT13" ( W r ) and "Outlook Deuglify" which repairs the - dumb quoting used by many users of Microsoft products ( W Y f gives - you full deuglify. See W Y C-h or have a look at the menus for - other deuglifications). Outlook deuglify is only available since - Gnus 5.10.0. - -4.9. Is there a way to automatically ignore posts by specific authors or - with specific words in the subject? And can I highlight more - interesting ones in some way? - - You want Scoring. Scoring means, that you define rules which assign - each message an integer value. Depending on the value the message - is highlighted in summary buffer (if it's high, say +2000) or - automatically marked read (if the value is low, say -800) or some - other action happens. - - There are basically three ways of setting up rules which assign the - scoring-value to messages. The first and easiest way is to set up - rules based on the article you are just reading. Say you're reading - a message by a guy who always writes nonsense and you want to - ignore his messages in the future. Hit L, to set up a rule which - lowers the score. Now Gnus asks you which the criteria for lowering - the Score shall be. Hit ? twice to see all possibilities, we want a - which means the author (the from header). Now Gnus wants to know - which kind of matching we want. Hit either e for an exact match or - s for substring-match and delete afterwards everything but the name - to score down all authors with the given name no matter which email - address is used. Now you need to tell Gnus when to apply the rule - and how long it should last, hit e.g. p to apply the rule now and - let it last forever. If you want to raise the score instead of - lowering it say I instead of L. - - You can also set up rules by hand. To do this say V f in summary - buffer. Then you are asked for the name of the score file, it's - name.of.group.SCORE for rules valid in only one group or all.Score - for rules valid in all groups. See the Gnus manual for the exact - syntax, basically it's one big list whose elements are lists again. - the first element of those lists is the header to score on, then - one more list with what to match, which score to assign, when to - expire the rule and how to do the matching. If you find me very - interesting, you could e.g. add the following to your all.Score: - - (("references" ("hschmi22.userfqdn.rz-online.de" 500 nil s)) - ("message-id" ("hschmi22.userfqdn.rz-online.de" 999 nil s))) - - - This would add 999 to the score of messages written by me and 500 - to the score of messages which are a (possibly indirect) answer to - a message written by me. Of course nobody with a sane mind would do - this :-) - - The third alternative is adaptive scoring. This means Gnus watches - you and tries to find out what you find interesting and what - annoying and sets up rules which reflect this. Adaptive scoring can - be a huge help when reading high traffic groups. If you want to - activate adaptive scoring say - - (setq gnus-use-adaptive-scoring t) - - - in ~/.gnus. - -4.10. How can I disable threading in some (e.g. mail-) groups, or set - other variables specific for some groups? - - While in group buffer move point over the group and hit G c, this - opens a buffer where you can set options for the group. At the - bottom of the buffer you'll find an item that allows you to set - variables locally for the group. To disable threading enter - gnus-show-threads as name of variable and nil as value. Hit button - done at the top of the buffer when you're ready. - -4.11. Can I highlight messages written by me and follow-ups to those? - - Stop those "Can I ..." questions, the answer is always yes in Gnus - Country :-). It's a three step process: First we make faces - (specifications of how summary-line shall look like) for those - postings, then we'll give them some special score and finally we'll - tell Gnus to use the new faces. You can find detailed instructions - on how to do it on my.gnus.org [http://my.gnus.org/Members/dzimmerm - /HowTo%2C2002-07-25%2C1027619165012198456/view] - -4.12. The number of total messages in a group which Gnus displays in - group buffer is by far to high, especially in mail groups. Is this - a bug? - - No, that's a matter of design of Gnus, fixing this would mean - reimplementation of major parts of Gnus' back ends. Gnus thinks - "highest-article-number - lowest-article-number = - total-number-of-articles". This works OK for Usenet groups, but if - you delete and move many messages in mail groups, this fails. To - cure the symptom, enter the group via C-u RET (this makes Gnus get - all messages), then hit M P b to mark all messages and then say B m - name.of.group to move all messages to the group they have been in - before, they get new message numbers in this process and the count - is right again (until you delete and move your mail to other groups - again). - -4.13. I don't like the layout of summary and article buffer, how to - change it? Perhaps even a three pane display? - - You can control the windows configuration by calling the function - gnus-add-configuration. The syntax is a bit complicated but - explained very well in the manual node "Window Layout". Some - popular examples: - - Instead 25% summary 75% article buffer 35% summary and 65% article - (the 1.0 for article means "take the remaining space"): - - (gnus-add-configuration '(article (vertical 1.0 (summary .35 point) (article 1.0)))) - - - A three pane layout, Group buffer on the left, summary buffer - top-right, article buffer bottom-right: - - (gnus-add-configuration - '(article - (horizontal 1.0 - (vertical 25 - (group 1.0)) - (vertical 1.0 - (summary 0.25 point) - (article 1.0))))) - (gnus-add-configuration - '(summary - (horizontal 1.0 - (vertical 25 - (group 1.0)) - (vertical 1.0 - (summary 1.0 point))))) - - -4.14. I don't like the way the Summary buffer looks, how to tweak it? - - You've got to play around with the variable - gnus-summary-line-format. It's value is a string of symbols which - stand for things like author, date, subject etc. A list of the - available specifiers can be found in the manual node "Summary - Buffer Lines" and the often forgotten node "Formatting Variables" - and it's sub-nodes. There you'll find useful things like - positioning the cursor and tabulators which allow you a summary in - table form, but sadly hard tabulators are broken in 5.8.8. - - Since 5.10.0, Gnus offers you some very nice new specifiers, e.g. - %B which draws a thread-tree and %&user-date which gives you a date - where the details are dependent of the articles age. Here's an - example which uses both: - - (setq gnus-summary-line-format ":%U%R %B %s %-60=|%4L |%-20,20f |%&user-date; \n") - - - resulting in: - - :O Re: [Richard Stallman] rfc2047.el | 13 |Lars Magne Ingebrigt |Sat 23:06 - :O Re: Revival of the ding-patches list | 13 |Lars Magne Ingebrigt |Sat 23:12 - :R > Re: Find correct list of articles for a gro| 25 |Lars Magne Ingebrigt |Sat 23:16 - :O \-> ... | 21 |Kai Grossjohann | 0:01 - :R > Re: Cry for help: deuglify.el - moving stuf| 28 |Lars Magne Ingebrigt |Sat 23:34 - :O \-> ... | 115 |Raymond Scholz | 1:24 - :O \-> ... | 19 |Lars Magne Ingebrigt |15:33 - :O Slow mailing list | 13 |Lars Magne Ingebrigt |Sat 23:49 - :O Re: `@' mark not documented | 13 |Lars Magne Ingebrigt |Sat 23:50 - :R > Re: Gnus still doesn't count messages prope| 23 |Lars Magne Ingebrigt |Sat 23:57 - :O \-> ... | 18 |Kai Grossjohann | 0:35 - :O \-> ... | 13 |Lars Magne Ingebrigt | 0:56 - - -4.15. How to split incoming mails in several groups? - - Gnus offers two possibilities for splitting mail, the easy - nnmail-split-methods and the more powerful Fancy Mail Splitting. - I'll only talk about the first one, refer to the manual, node - "Fancy Mail Splitting" for the latter. - - The value of nnmail-split-methods is a list, each element is a list - which stands for a splitting rule. Each rule has the form "group - where matching articles should go to", "regular expression which - has to be matched", the first rule which matches wins. The last - rule must always be a general rule (regular expression .*) which - denotes where articles should go which don't match any other rule. - If the folder doesn't exist yet, it will be created as soon as an - article lands there. By default the mail will be send to all groups - whose rules match. If you don't want that (you probably don't - want), say - - (setq nnmail-crosspost nil) - - - in ~/.gnus. - - An example might be better than thousand words, so here's my - nnmail-split-methods. Note that I send duplicates in a special - group and that the default group is spam, since I filter all mails - out which are from some list I'm subscribed to or which are - addressed directly to me before. Those rules kill about 80% of the - Spam which reaches me (Email addresses are changed to prevent - spammers from using them): - - (setq nnmail-split-methods - '(("duplicates" "^Gnus-Warning:.*duplicate") - ("XEmacs-NT" "^\\(To:\\|CC:\\).*localpart@xemacs.bla.*") - ("Gnus-Tut" "^\\(To:\\|CC:\\).*localpart@socha.bla.*") - ("tcsh" "^\\(To:\\|CC:\\).*localpart@mx.gw.bla.*") - ("BAfH" "^\\(To:\\|CC:\\).*localpart@.*uni-muenchen.bla.*") - ("Hamster-src" "^\\(CC:\\|To:\\).*hamster-sourcen@yahoogroups.\\(de\\|com\\).*") - ("Tagesschau" "^From: tagesschau $") - ("Replies" "^\\(CC:\\|To:\\).*localpart@Frank-Schmitt.bla.*") - ("EK" "^From:.*\\(localpart@privateprovider.bla\\|localpart@workplace.bla\\).*") - ("Spam" "^Content-Type:.*\\(ks_c_5601-1987\\|EUC-KR\\|big5\\|iso-2022-jp\\).*") - ("Spam" "^Subject:.*\\(This really work\\|XINGA\\|ADV:\\|XXX\\|adult\\|sex\\).*") - ("Spam" "^Subject:.*\\(\=\?ks_c_5601-1987\?\\|\=\?euc-kr\?\\|\=\?big5\?\\).*") - ("Spam" "^X-Mailer:\\(.*BulkMailer.*\\|.*MIME::Lite.*\\|\\)") - ("Spam" "^X-Mailer:\\(.*CyberCreek Avalanche\\|.*http\:\/\/GetResponse\.com\\)") - ("Spam" "^From:.*\\(verizon\.net\\|prontomail\.com\\|money\\|ConsumerDirect\\).*") - ("Spam" "^Delivered-To: GMX delivery to spamtrap@gmx.bla$") - ("Spam" "^Received: from link2buy.com") - ("Spam" "^CC: .*azzrael@t-online.bla") - ("Spam" "^X-Mailer-Version: 1.50 BETA") - ("Uni" "^\\(CC:\\|To:\\).*localpart@uni-koblenz.bla.*") - ("Inbox" "^\\(CC:\\|To:\\).*\\(my\ name\\|address@one.bla\\|adress@two.bla\\)") - ("Spam" ""))) - - -5. Composing messages - -5.1. What are the basic commands I need to know for sending mail and - postings? - - To start composing a new mail hit m either in Group or Summary - buffer, for a posting, it's either a in Group buffer and filling - the Newsgroups header manually or a in the Summary buffer of the - group where the posting shall be send to. Replying by mail is r if - you don't want to cite the author, or import the cited text - manually and R to cite the text of the original message. For a - follow up to a newsgroup, it's f and F (analog to r and R. - - Enter new headers above the line saying "--text follows this - line--", enter the text below the line. When ready hit C-c C-c, to - send the message, if you want to finish it later hit C-c C-d to - save it in the drafts group, where you can start editing it again - by saying D e. - -5.2. How to enable automatic word-wrap when composing messages? - - Say - - (add-hook 'message-mode-hook - (lambda () - (setq fill-column 72) - (turn-on-auto-fill))) - - - in ~/.gnus. You can reformat a paragraph by hitting M-q (as usual) - -5.3. How to set stuff like From, Organization, Reply-To, signature...? - - There are other ways, but you should use posting styles for this. - (See below why). This example should make the syntax clear: - - (setq gnus-posting-styles - '((".*" - (name "Frank Schmitt") - (address "me@there.bla") - (organization "Hamme net, kren mer och nimmi") - (signature-file "~/.signature") - ("X-SampleHeader" "foobar") - (eval (setq some-variable "Foo bar"))))) - - - The ".*" means that this settings are the default ones (see below), - valid values for the first element of the following lists are - signature, signature-file, organization, address, name or body. The - attribute name can also be a string. In that case, this will be - used as a header name, and the value will be inserted in the - headers of the article; if the value is `nil', the header name will - be removed. You can also say (eval (foo bar)), then the function - foo will be evaluated with argument bar and the result will be - thrown away. - -5.4. Can I set things like From, Signature etc group based on the group - I post too? - - That's the strength of posting styles. Before, we used ".*" to set - the default for all groups. You can use a regexp like "^gmane" and - the following settings are only applied to postings you send to the - gmane hierarchy, use ".*binaries" instead and they will be applied - to postings send to groups containing the string binaries in their - name etc. - - You can instead of specifying a regexp specify a function which is - evaluated, only if it returns true, the corresponding settings take - effect. Two interesting candidates for this are message-news-p - which returns t if the current Group is a newsgroup and the - corresponding message-mail-p. - - Note that all forms that match are applied, that means in the - example below, when I post to gmane.mail.spam.spamassassin.general, - the settings under ".*" are applied and the settings under - message-news-p and those under "^gmane" and those under "^gmane\ - \.mail\\.spam\\.spamassassin\\.general$". Because of this put - general settings at the top and specific ones at the bottom. - - (setq gnus-posting-styles - '((".*" ;;default - (name "Frank Schmitt") - (organization "Hamme net, kren mer och nimmi") - (signature-file "~/.signature") ) - ((message-news-p) ;;Usenet news? - (address "mySpamTrap@Frank-Schmitt.bla") - ("Reply-To" "hereRealRepliesOnlyPlease@Frank-Schmitt.bla") ) - ((message-mail-p) ;;mail? - (address "usedForMails@Frank-Schmitt.bla") ) - ("^gmane" ;;this is mail, too in fact - (address "usedForMails@Frank-Schmitt.net") - ("Reply-To" nil) ) - ("^gmane.mail.spam.spamassassin.general$" - (eval (setq mail-envelope-from "Azzrael@rz-online.de")) - (address "Azzrael@rz-online.de")) )) - - -5.5. Is there a spell-checker? Perhaps even on-the-fly spell-checking? - - You can use ispell.el to spell-check stuff in Emacs. So the first - thing to do is to make sure that you've got either ispell [http:// - fmg-www.cs.ucla.edu/fmg-members/geoff/ispell.html] or aspell [http: - //aspell.sourceforge.net/] installed and in your Path. Then you - need ispell.el [http://www.kdstevens.com/~stevens/ispell-page.html] - and for on-the-fly spell-checking flyspell.el [http:// - www-sop.inria.fr/mimosa/personnel/Manuel.Serrano/flyspell/ - flyspell.html]. Ispell.el is shipped with Gnus Emacs and available - through the Emacs package system, flyspell.el is shipped with Emacs - and part of XEmacs text-modes package which is available through - the package system, so there should be no need to install them - manually. - - Ispell.el assumes you use ispell, if you choose aspell say - - (setq ispell-program-name "aspell") - - in your Emacs configuration file. - - If you want your outgoing messages to be spell-checked, say - - (add-hook 'message-send-hook 'ispell-message) - - In your ~/.gnus, if you prefer on-the-fly spell-checking say - - (add-hook 'message-mode-hook (lambda () (flyspell-mode 1))) - -5.6. Can I set the dictionary based on the group I'm posting to? - - Yes, say something like - - (add-hook 'gnus-select-group-hook - (lambda () - (cond - ((string-match - "^de\\." (gnus-group-real-name gnus-newsgroup-name)) - (ispell-change-dictionary "deutsch8")) - (t - (ispell-change-dictionary "english"))))) - - - in ~/.gnus. Change "^de\\." and "deutsch8" to something that suits - your needs. - -5.7. Is there some kind of address-book, so I needn't remember all those - email addresses? - - There's an very basic solution for this, mail aliases. You can - store your mail addresses in a ~/.mailrc file using a simple alias - syntax: - - alias al "Al " - - - Then typing your alias (followed by a space or punctuation - character) on a To: or Cc: line in the message buffer will cause - gnus to insert the full address for you. See the node "Mail - Aliases" in Message (not Gnus) manual for details. - - However, what you really want is the Insidious Big Brother Database - bbdb. Get it through the XEmacs package system or from bbdb's - homepage [http://bbdb.sourceforge.net/]. Now place the following in - ~/.gnus, to activate bbdb for Gnus: - - (require 'bbdb) - (bbdb-initialize 'gnus 'message) - - - Now you probably want some general bbdb configuration, place them - in ~/.emacs: - - (require 'bbdb) - ;;If you don't live in Northern America, you should disable the - ;;syntax check for telephone numbers by saying - (setq bbdb-north-american-phone-numbers-p nil) - ;;Tell bbdb about your email address: - (setq bbdb-user-mail-names - (regexp-opt '("Your.Email@here.bla" - "Your.other@mail.there.bla"))) - ;;cycling while completing email addresses - (setq bbdb-complete-name-allow-cycling t) - ;;No popup-buffers - (setq bbdb-use-pop-up nil) - - - Now you should be ready to go. Say M-x bbdb RET RET to open a bbdb - buffer showing all entries. Say c to create a new entry, b to - search your BBDB and C-o to add a new field to an entry. If you - want to add a sender to the BBDB you can also just hit `:' on the - posting in the summary buffer and you are done. When you now - compose a new mail, hit TAB to cycle through know recipients. - -5.8. Sometimes I see little images at the top of article buffer. What's - that and how can I send one with my postings, too? - - Those images are called X-Faces. They are 48*48 pixel b/w pictures, - encoded in a header line. If you want to include one in your posts, - you've got to convert some image to a X-Face. So fire up some image - manipulation program (say Gimp), open the image you want to - include, cut out the relevant part, reduce color depth to 1 bit, - resize to 48*48 and save as bitmap. Now you should get the compface - package from this site [ftp://ftp.cs.indiana.edu:/pub/faces/]. and - create the actual X-face by saying - - cat file.xbm | xbm2ikon |compface > file.face - cat ./file.face | sed 's/\\/\\\\/g' | sed 's/\"/\\\"/g' > ./file.face.quoted - - - if you can't use compface, there's an online X-face converter at - http://www.dairiki.org/xface/ [http://www.dairiki.org/xface/]. If - you use MS Windows, you could also use the WinFace program from - http://www.xs4all.nl/~walterln/winface/ [http://www.xs4all.nl/ - ~walterln/winface/]. Now you only have to tell Gnus to include the - X-face in your postings by saying - - (setq message-default-headers - (with-temp-buffer - (insert "X-Face: ") - (insert-file-contents "~/.xemacs/xface") - (buffer-string))) - - - in ~/.gnus. - -5.9. Sometimes I accidentally hit r instead of f in newsgroups. Can Gnus - warn me, when I'm replying by mail in newsgroups? - - Put this in ~/.gnus: - - (setq gnus-confirm-mail-reply-to-news t) - - - if you already use Gnus 5.10.0, if you still use 5.8.8 or 5.9 try - this instead: - - (defadvice gnus-summary-reply (around reply-in-news activate) - (interactive) - (when (or (not (gnus-news-group-p gnus-newsgroup-name)) - (y-or-n-p "Really reply? ")) - ad-do-it)) - - -5.10. How to tell Gnus not to generate a sender header? - - Since 5.10.0 Gnus doesn't generate a sender header by default. For - older Gnus' try this in ~/.gnus: - - (eval-after-load "message" - '(add-to-list 'message-syntax-checks '(sender . disabled))) - - -5.11. I want gnus to locally store copies of my send mail and news, how - to do it? - - You must set the variable gnus-message-archive-group to do this. - You can set it to a string giving the name of the group where the - copies shall go or like in the example below use a function which - is evaluated and which returns the group to use. - - (setq gnus-message-archive-group - '((if (message-news-p) - "nnml:Send-News" - "nnml:Send-Mail"))) - - -5.12. People tell me my Message-IDs are not correct, why aren't they and - how to fix it? - - The message-ID is an unique identifier for messages you send. To - make it unique, Gnus need to know which machine name to put after - the "@". If the name of the machine where Gnus is running isn't - suitable (it probably isn't at most private machines) you can tell - Gnus what to use by saying: - - (defun message-make-message-id() - (concat "<"(message-unique-id)"@yourmachine.yourdomain.tld>")) - - - in ~/.gnus. If you have no idea what to insert for - "yourmachine.yourdomain.tld", you've got several choices. You can - either ask your provider if he allows you to use something like - yourUserName.userfqdn.provider.net, or you can use - somethingUnique.yourdomain.tld if you own the domain - yourdomain.tld, or you can register at a service which gives - private users a FQDN for free, e.g. http://www.stura.tu-freiberg.de - /~dlx/addfqdn.html [http://www.stura.tu-freiberg.de/~dlx/ - addfqdn.html]. (Sorry but this website is in German, if you know of - an English one offering the same, drop me a note). - - Finally you can tell Gnus not to generate a Message-ID for News at - all (and letting the server do the job) by saying - - (setq message-required-news-headers - (remove' Message-ID message-required-news-headers)) - - - you can also tell Gnus not to generate Message-IDs for mail by - saying - - (setq message-required-mail-headers - (remove' Message-ID message-required-mail-headers)) - - - , however some mail servers don't generate proper Message-IDs, too, - so test if your Mail Server behaves correctly by sending yourself a - Mail and looking at the Message-ID. - -6. Old messages - -6.1. How to import my old mail into Gnus? - - The easiest way is to tell your old mail program to export the - messages in mbox format. Most Unix mailers are able to do this, if - you come from the MS Windows world, you may find tools at http:// - mbx2mbox.sourceforge.net/ [http://mbx2mbox.sourceforge.net/]. - - Now you've got to import this mbox file into Gnus. To do this, - create a nndoc group based on the mbox file by saying G f /path/ - file.mbox RET in Group buffer. You now have read-only access to - your mail. If you want to import the messages to your normal Gnus - mail groups hierarchy, enter the nndoc group you've just created by - saying C-u RET (thus making sure all messages are retrieved), mark - all messages by saying M P b and either copy them to the desired - group by saying B c name.of.group RET or send them through - nnmail-split-methods (respool them) by saying B r. - -6.2. How to archive interesting messages? - - If you stumble across an interesting message, say in gnu.emacs.gnus - and want to archive it there are several solutions. The first and - easiest is to save it to a file by saying O f. However, wouldn't it - be much more convenient to have more direct access to the archived - message from Gnus? If you say yes, put this snippet by Frank Haun - in ~/.gnus: - - (defun my-archive-article (&optional n) - "Copies one or more article(s) to a corresponding `nnml:' group, e.g. - `gnus.ding' goes to `nnml:1.gnus.ding'. And `nnml:List-gnus.ding' goes - to `nnml:1.List-gnus-ding'. - - Use process marks or mark a region in the summary buffer to archive - more then one article." - (interactive "P") - (let ((archive-name - (format - "nnml:1.%s" - (if (featurep 'xemacs) - (replace-in-string gnus-newsgroup-name "^.*:" "") - (replace-regexp-in-string "^.*:" "" gnus-newsgroup-name))))) - (gnus-summary-copy-article n archive-name))) - - - You can now say M-x my-archive-article in summary buffer to archive - the article under the cursor in a nnml group. (Change nnml to your - preferred back end) - - Of course you can also make sure the cache is enabled by saying - - (setq gnus-use-cache t) - - - then you only have to set either the tick or the dormant mark for - articles you want to keep, setting the read mark will remove them - from cache. - -6.3. How to search for a specific message? - - There are several ways for this, too. For a posting from a Usenet - group the easiest solution is probably to ask groups.google.com - [http://groups.google.com], if you found the posting there, tell - Google to display the raw message, look for the message-id, and say - M-^ the@message.id RET in a summary buffer. Since Gnus 5.10.0 - there's also a Gnus interface for groups.google.com which you can - call with G W) in group buffer. - - Another idea which works for both mail and news groups is to enter - the group where the message you are searching is and use the - standard Emacs search C-s, it's smart enough to look at articles in - collapsed threads, too. If you want to search bodies, too try M-s - instead. Further on there are the gnus-summary-limit-to-foo - functions, which can help you, too. - - Of course you can also use grep to search through your local mail, - but this is both slow for big archives and inconvenient since you - are not displaying the found mail in Gnus. Here comes nnir into - action. Nnir is a front end to search engines like swish-e or - swish++ and others. You index your mail with one of those search - engines and with the help of nnir you can search trough the indexed - mail and generate a temporary group with all messages which met - your search criteria. If this sound cool to you get nnir.el from - ftp://ls6-ftp.cs.uni-dortmund.de/pub/src/emacs/ [ftp:// - ls6-ftp.cs.uni-dortmund.de/pub/src/emacs/] or ftp:// - ftp.is.informatik.uni-duisburg.de/pub/src/emacs/ [ftp:// - ftp.is.informatik.uni-duisburg.de/pub/src/emacs/]. Instructions on - how to use it are at the top of the file. - -6.4. How to get rid of old unwanted mail? - - You can of course just mark the mail you don't need anymore by - saying # with point over the mail and then say B DEL to get rid of - them forever. You could also instead of actually deleting them, - send them to a junk-group by saying B m nnml:trash-bin which you - clear from time to time, but both are not the intended way in Gnus. - - In Gnus, we let mail expire like news expires on a news server. - That means you tell Gnus the message is expirable (you tell Gnus "I - don't need this mail anymore") by saying E with point over the mail - in summary buffer. Now when you leave the group, Gnus looks at all - messages which you marked as expirable before and if they are old - enough (default is older than a week) they are deleted. - -6.5. I want that all read messages are expired (at least in some - groups). How to do it? - - If you want all read messages to be expired (e.g. in mailing lists - where there's an online archive), you've got two choices: - auto-expire and total-expire. Auto-expire means, that every article - which has no marks set and is selected for reading is marked as - expirable, Gnus hits E for you every time you read a message. - Total-expire follows a slightly different approach, here all - article where the read mark is set are expirable. - - To activate auto-expire, include auto-expire in the Group - parameters for the group. (Hit G c in summary buffer with point - over the group to change group parameters). For total-expire add - total-expire to the group-parameters. - - Which method you choose is merely a matter of taste: Auto-expire is - faster, but it doesn't play together with Adaptive Scoring, so if - you want to use this feature, you should use total-expire. - - If you want a message to be excluded from expiration in a group - where total or auto expire is active, set either tick (hit u) or - dormant mark (hit u), when you use auto-expire, you can also set - the read mark (hit d). - -6.6. I don't want expiration to delete my mails but to move them to - another group. - - Say something like this in ~/.gnus: - - (setq nnmail-expiry-target "nnml:expired") - - - (If you want to change the value of nnmail-expiry-target on a per - group basis see the question "How can I disable threading in some - (e.g. mail-) groups, or set other variables specific for some - groups?") - -7. Gnus in a dial-up environment - -7.1. I don't have a permanent connection to the net, how can I minimize - the time I've got to be connected? - - You've got basically two options: Either you use the Gnus Agent - (see below) for this, or you can install programs which fetch your - news and mail to your local disk and Gnus reads the stuff from your - local machine. - - If you want to follow the second approach, you need a program which - fetches news and offers them to Gnus, a program which does the same - for mail and a program which receives the mail you write from Gnus - and sends them when you're online. - - Let's talk about Unix systems first: For the news part, the easiest - solution is a small nntp server like Leafnode [http:// - www.leafnode.org/] or sn [http://infa.abo.fi/~patrik/sn/], of - course you can also install a full featured news server like inn - [http://www.isc.org/products/INN/]. Then you want to fetch your - Mail, popular choices are fetchmail [http://www.catb.org/~esr/ - fetchmail/] and getmail [http://www.qcc.ca/~charlesc/software/ - getmail-3.0/]. You should tell those to write the mail to your disk - and Gnus to read it from there. Last but not least the mail sending - part: This can be done with every MTA like sendmail [http:// - www.sendmail.org/], postfix [http://www.qmail.org/], exim [http:// - www.exim.org/] or qmail [http://www.qmail.org/]. - - On windows boxes I'd vote for Hamster [http://www.tglsoft.de/], - it's a small freeware, open-source program which fetches your mail - and news from remote servers and offers them to Gnus (or any other - mail and/or news reader) via nntp respectively POP3 or IMAP. It - also includes a smtp server for receiving mails from Gnus. - -7.2. So what was this thing about the Agent? - - The Gnus agent is part of Gnus, it allows you to fetch mail and - news and store them on disk for reading them later when you're - offline. It kind of mimics offline newsreaders like e.g. Forte - Agent. If you want to use the Agent place the following in ~/.gnus - if you are still using 5.8.8 or 5.9 (it's the default since - 5.10.0): - - (setq gnus-agent t) - - - Now you've got to select the servers whose groups can be stored - locally. To do this, open the server buffer (that is press ^ while - in the group buffer). Now select a server by moving point to the - line naming that server. Finally, agentize the server by typing J a - . If you make a mistake, or change your mind, you can undo this - action by typing J r. When you're done, type 'q' to return to the - group buffer. Now the next time you enter a group on a agentized - server, the headers will be stored on disk and read from there the - next time you enter the group. - -7.3. I want to store article bodies on disk, too. How to do it? - - You can tell the agent to automatically fetch the bodies of - articles which fulfill certain predicates, this is done in a - special buffer which can be reached by saying J c in group buffer. - Please refer to the documentation for information which predicates - are possible and how exactly to do it. - - Further on you can tell the agent manually which articles to store - on disk. There are two ways to do this: Number one: In the summary - buffer, process mark a set of articles that shall be stored in the - agent by saying # with point over the article and then type J s. - The other possibility is to set, again in the summary buffer, - downloadable (%) marks for the articles you want by typing @ with - point over the article and then typing J u. What's the difference? - Well, process marks are erased as soon as you exit the summary - buffer while downloadable marks are permanent. You can actually set - downloadable marks in several groups then use fetch session ('J s' - in the GROUP buffer) to fetch all of those articles. The only - downside is that fetch session also fetches all of the headers for - every selected group on an agentized server. Depending on the - volume of headers, the initial fetch session could take hours. - -7.4. How to tell Gnus not to try to send mails / postings while I'm - offline? - - All you've got to do is to tell Gnus when you are online (plugged) - and when you are offline (unplugged), the rest works automatically. - You can toggle plugged/unplugged state by saying J j in group - buffer. To start Gnus unplugged say M-x gnus-unplugged instead of - M-x gnus. Note that for this to work, the agent must be active. - -8. Getting help - -8.1. How to find information and help inside Emacs? - - The first stop should be the Gnus manual (Say C-h i d m Gnus RET to - start the Gnus manual, then walk through the menus or do a - full-text search with s). Then there are the general Emacs help - commands starting with C-h, type C-h ? ? to get a list of all - available help commands and their meaning. Finally M-x - apropos-command lets you search through all available functions and - M-x apropos searches the bound variables. - -8.2. I can't find anything in the Gnus manual about X (e.g. attachments, - PGP, MIME...), is it not documented? - - There's not only the Gnus manual but also the manuals for message, - emacs-mime, sieve and pgg. Those packages are distributed with Gnus - and used by Gnus but aren't really part of core Gnus, so they are - documented in different info files, you should have a look in those - manuals, too. - -8.3. Which websites should I know? - - The two most important ones are the official Gnus website [http:// - www.gnus.org]. and it's sister site my.gnus.org (MGO) [http:// - my.gnus.org], hosting an archive of lisp snippets, howtos, a (not - really finished) tutorial and this FAQ. - - Tell me about other sites which are interesting. - -8.4. Which mailing lists and newsgroups are there? - - There's the newsgroup gnu.emacs.gnus (pull it from e.g. - news.gnus.org) which deals with general questions and the ding - mailing list (ding@gnus.org) dealing with development of Gnus. You - can read the ding list via NNTP, too under the name gnus.ding from - news.gnus.org. - - If you want to stay in the big8, news.software.newssreaders is also - read by some Gnus users (but chances for qualified help are much - better in the above groups) and if you speak German, there's - de.comm.software.gnus. - -8.5. Where to report bugs? - - Say M-x gnus-bug, this will start a message to the gnus bug mailing - list [mailto:bugs@gnus.org] including information about your - environment which make it easier to help you. - -8.6. I need real-time help, where to find it? - - Point your IRC client to irc.my.gnus.org channel #mygnus. Don't be - afraid if people there speak German, they are willing and capable - of switching to English when people from outside Germany enter. - -9. Tuning Gnus - -9.1. Starting Gnus is really slow, how to speed it up? - - The reason for this could be the way Gnus reads it's active file, - see the node "The Active File" in the Gnus manual for things you - might try to speed the process up. An other idea would be to byte - compile your ~/.gnus (say M-x byte-compile-file RET ~/.gnus RET to - do it). Finally, if you have require statements in your .gnus, you - could replace them with eval-after-load, which loads the stuff not - at startup time, but when it's needed. Say you've got this in your - ~/.gnus: - - (require 'message) - (add-to-list 'message-syntax-checks '(sender . disabled)) - - - then as soon as you start Gnus, message.el is loaded. If you - replace it with - - (eval-after-load "message" - '(add-to-list 'message-syntax-checks '(sender . disabled))) - - - it's loaded when it's needed. - -9.2. How to speed up the process of entering a group? - - A speed killer is setting the variable gnus-fetch-old-headers to - anything different from nil, so don't do this if speed is an issue. - To speed up building of summary say - - (gnus-compile) - - - at the bottom of your ~/.gnus, this will make gnus byte-compile - things like gnus-summary-line-format. then you could increase the - value of gc-cons-threshold by saying something like - - (setq gc-cons-threshold 3500000) - - - in ~/.emacs. If you don't care about width of CJK characters or use - Gnus 5.10.0 or younger together with a recent GNU Emacs, you should - say - - (setq gnus-use-correct-string-widths nil) - - - in ~/.gnus (thanks to Jesper harder for the last two suggestions). - Finally if you are still using 5.8.8 or 5.9 and experience speed - problems with summary buffer generation, you definitely should - update to 5.10.0 since there quite some work on improving it has - been done. - -9.3. Sending mail becomes slower and slower, what's up? - - The reason could be that you told Gnus to archive the messages you - wrote by setting gnus-message-archive-group. Try to use a nnml - group instead of an archive group, this should bring you back to - normal speed. - -Glossary - -~/.gnus - - When the term ~/.gnus is used it just means your Gnus - configuration file. You might as well call it ~/.gnus.el or - specify another name. - -Back End - - In Gnus terminology a back end is a virtual server, a layer - between core Gnus and the real NNTP-, POP3-, IMAP- or - whatever-server which offers Gnus a standardized interface to - functions like "get message", "get Headers" etc. - -Emacs +Subject: Gnus FAQ (Frequently Asked Questions) +Message-ID: - When the term Emacs is used in this FAQ, it means either GNU - Emacs or XEmacs. +The Gnus FAQ is distributed within the Gnus manual. The home page of +the Gnus FAQ is , where you can find the +most recent version in HTML various other formats. -Message +To browse the FAQ now, put the cursor at the end of the following line +and press `C-x C-e': - In this FAQ message means a either a mail or a posting to a - Usenet Newsgroup or to some other fancy back end, no matter of - which kind it is. + (info "(gnus)Frequently Asked Questions") -MUA +On older XEmacs version, use: - MUA is an acronym for Mail User Agent, it's the program you use - to read and write e-mails. + (Info-goto-node "(gnus)Frequently Asked Questions") + +Or simply use RET or the middle mouse button, if the above is displayed +as a clickable button. -NUA - NUA is an acronym for News User Agent, it's the program you use - to read and write Usenet news. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fc7e260..7ad93f5 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,89 @@ +2004-01-04 Lars Magne Ingebrigtsen + + * gnus.el (gnus-version-number): Bump. + +2004-01-04 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.10.5 is released. + +2004-01-03 Lars Magne Ingebrigtsen + + * gnus-fun.el (gnus-face-from-file): Message 9. + +2004-01-03 Romain FRANCOISE + + * gnus-fun.el (gnus-face-from-file): Use gnus-message. + +2004-01-03 Reiner Steib + + * gnus-art.el (gnus-button-mid-or-mail-heuristic): Treat Gmane + addresses specially. Fix returned value and messages. + + * mm-decode.el (mm-enable-external): New variable. + (mm-display-part): Use it. + (mm-display-external): Fix message in case of nil handle. + + * Update copyright for several files. + + * spam-report.el (spam-report-gmane): Adjust verbosity. + Delete trailing whitespace. Update copyright. + + * spam.el: Fix many (but not all) checkdoc complaints. + Delete trailing whitespace. + + * message.el (message-header-synonyms): Defcustom. + (message-get-reply-headers): Catch `Original-To'. + (message-carefully-insert-headers): Added comment. + + * gnus-sum.el (gnus-summary-make-menu-bar): Improved "Washing" menu. + +2004-01-03 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-select-newsgroup): Use cat. + + * gnus-agent.el (gnus-agent-cat-enable-undownloaded-faces): New + cat. + + * gnus.el (gnus-user-agent): Moved here. + + * gnus-msg.el (gnus-user-agent): Moved from here. + + * gnus.el (gnus-version-number): Bump. + +2004-01-03 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.10.4 is released. + +2004-01-02 Reiner Steib + + * gnus.el (gnus-mode-line-buffer-identification): Show version in + help-echo. + (gnus-read-group): Allow most group names. Changed warning. + +2004-01-02 Lars Magne Ingebrigtsen + + * gnus-dired.el (gnus-dired-mode-map): Change keymaps. + +2004-01-02 Arne J,Ax(Brgensen + + * smime.el (smime-crl-check): Doc fix. + +2004-01-02 Edwin Steiner + + * gnus-nocem.el (gnus-nocem-enter-article): Use the real group + hashtb (tiny patch). + +2004-01-02 Kai Grossjohann + + * nnml.el (nnml-save-mail): Grok compressed articles. From + Michael Albinus . + +2004-01-02 Teodor Zlatanov + + * spam.el (spam-ham-copy-or-move-routine): use spam-list-articles + (spam-list-articles): rewritten to only check a mark once per + invocation + 2004-01-01 Simon Josefsson * mml-sec.el (mml-default-encrypt-method) diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 81f2fd9..4b2eea2 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -356,6 +356,8 @@ manipulated as follows: gnus-agent-cat-score-file agent-score-file) (gnus-agent-cat-defaccessor gnus-agent-cat-disable-undownloaded-faces agent-disable-undownloaded-faces) +(gnus-agent-cat-defaccessor + gnus-agent-cat-enable-undownloaded-faces agent-enable-undownloaded-faces) (eval-when-compile (defsetf gnus-agent-cat-groups (category) (groups) diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index dfc8477..549117a 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -6347,13 +6347,14 @@ address, `ask' if unsure and `invalid' if the string is invalid." ;; Certain special cases... (when (string-match (concat - "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$" "\\|" - "^[0-9]+\.[0-9]+\@compuserve") + "^0[0-9]+-[0-9][0-9][0-9][0-9]@t-online\\.de$\\|" + "^[0-9]+\\.[0-9]+@compuserve\\|" + "@public\\.gmane\\.org") mid-or-mail) - (gnus-message 8 "`%s' is a known mail address.") + (gnus-message 8 "`%s' is a known mail address." mid-or-mail) (setq result 'mail)) (when (string-match "@.*@\\| " mid-or-mail) - (gnus-message 8 "`%s' is invalid.") + (gnus-message 8 "`%s' is invalid." mid-or-mail) (setq result 'invalid)) ;; Nothing more to do, if result is not a number here... (when (numberp result) @@ -6395,8 +6396,10 @@ address, `ask' if unsure and `invalid' if the string is invalid." (gnus-message 9 "`%s', rate `%s', result `%s'." mid-or-mail 5.0 result))))) (gnus-message 8 "`%s': Final rate is `%s'." mid-or-mail result) + ;; Maybe we should make this a customizable alist: (condition . 'result) (cond - ;; Maybe we should make this a customizable alist: (condition . 'result) + ((symbolp result) result) + ;; Now convert number into proper results: ((< result -10.0) 'mid) ((> result 10.0) 'mail) (t 'ask)))) diff --git a/lisp/gnus-dired.el b/lisp/gnus-dired.el index cf54427..1fa657f 100644 --- a/lisp/gnus-dired.el +++ b/lisp/gnus-dired.el @@ -1,6 +1,6 @@ ;;; gnus-dired.el --- utility functions where gnus and dired meet -;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003 +;; Copyright (C) 1996, 1997, 1998, 1999, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Authors: Benjamin Rutt , @@ -58,9 +58,9 @@ (setq gnus-dired-mode-map (make-sparse-keymap)) (gnus-define-keys gnus-dired-mode-map - "\C-c\C-a" gnus-dired-attach - "\C-c\C-l" gnus-dired-find-file-mailcap - "\C-cP" gnus-dired-print)) + "\C-c\C-m\C-a" gnus-dired-attach + "\C-c\C-m\C-l" gnus-dired-find-file-mailcap + "\C-c\C-m\C-p" gnus-dired-print)) (defun gnus-dired-mode (&optional arg) "Minor mode for intersections of gnus and dired. diff --git a/lisp/gnus-fun.el b/lisp/gnus-fun.el index ca5cdea..b293d4e 100644 --- a/lisp/gnus-fun.el +++ b/lisp/gnus-fun.el @@ -119,8 +119,8 @@ Output to the current buffer, replace text, and don't mingle error." (if (> (length attempt) 726) (progn (setq quant (- quant 2)) - (message "Length %d; trying quant %d" - (length attempt) quant)) + (gnus-message 9 "Length %d; trying quant %d" + (length attempt) quant)) (setq done t))) (if done (mm-with-unibyte-buffer diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 7595136..479979e 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -1,5 +1,5 @@ ;;; gnus-msg.el --- mail and post interface for Semi-gnus -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Masanobu UMEDA @@ -308,27 +308,6 @@ If nil, the address field will always be empty after invoking :group 'gnus-message :type 'boolean) -(defcustom gnus-user-agent 'gnus-mime-edit - "Which information should be exposed in the User-Agent header. - -It can be one of the symbols `gnus' \(show only Gnus version\), `emacs-gnus' -\(show only Emacs and Gnus versions\), `emacs-gnus-config' \(same as -`emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as -`emacs-gnus' plus system type\), `gnus-mime-edit' \(show Gnus version and -MIME Edit User-Agent\) or a custom string. If you set it to a string, -be sure to use a valid format, see RFC 2616." - :group 'gnus-message - :type '(choice - (item :tag "Show Gnus version and MIME Edit User-Agent" - gnus-mime-edit) - (item :tag "Show Gnus and Emacs versions and system type" - emacs-gnus-type) - (item :tag "Show Gnus and Emacs versions and system configuration" - emacs-gnus-config) - (item :tag "Show Gnus and Emacs versions" emacs-gnus) - (item :tag "Show only Gnus version" gnus) - (string :tag "Other"))) - ;;; Internal variables. (defvar gnus-inhibit-posting-styles nil diff --git a/lisp/gnus-nocem.el b/lisp/gnus-nocem.el index 38bd552..086b9f4 100644 --- a/lisp/gnus-nocem.el +++ b/lisp/gnus-nocem.el @@ -1,6 +1,6 @@ ;;; gnus-nocem.el --- NoCeM pseudo-cancellation treatment -;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002 +;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2002, 2004 ;; Free Software Foundation, Inc. @@ -298,7 +298,8 @@ valid issuer, which is much faster if you are selective about the issuers." (while (search-forward "\t" nil t) (cond ((not (ignore-errors - (setq group (let ((obarray gnus-active-hashtb)) (read buf))))) + (setq group (let ((obarray gnus-nocem-real-group-hashtb)) + (read buf))))) ;; An error. ) ((not (symbolp group)) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index 4cf3076..2dd2bd4 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1,5 +1,5 @@ ;;; gnus-sum.el --- summary mode commands for Semi-gnus -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -2159,7 +2159,7 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs)))) ["Word wrap" gnus-article-fill-cited-article t] ["Fill long lines" gnus-article-fill-long-lines t] ["Capitalize sentences" gnus-article-capitalize-sentences t] - ["CR" gnus-article-remove-cr t] + ["Remove CR" gnus-article-remove-cr t] ["Rot 13" gnus-summary-caesar-message ,@(if (featurep 'xemacs) '(t) '(:help "\"Caesar rotate\" article by 13"))] @@ -2174,9 +2174,9 @@ gnus-summary-show-article-from-menu-as-charset-%s" cs)))) ["Unfold headers" gnus-article-treat-unfold-headers t] ["Fold newsgroups" gnus-article-treat-fold-newsgroups t] ["Html" gnus-article-wash-html t] - ["URLs" gnus-article-unsplit-urls t] + ["Unsplit URLs" gnus-article-unsplit-urls t] ["Verify X-PGP-Sig" gnus-article-verify-x-pgp-sig t] - ["HZ" gnus-article-decode-HZ t] + ["Decode HZ" gnus-article-decode-HZ t] ("(Outlook) Deuglify" ["Unwrap lines" gnus-article-outlook-unwrap-lines t] ["Repair attribution" gnus-article-outlook-repair-attribution t] @@ -5042,9 +5042,9 @@ If SELECT-ARTICLES, only select those articles from GROUP." (gnus-set-active group (cons (caar alist) (cdr active))))) (setq gnus-summary-use-undownloaded-faces - (not (gnus-agent-find-parameter - group - 'agent-disable-undownloaded-faces)))) + (gnus-agent-find-parameter + group + 'agent-enable-undownloaded-faces))) (setq gnus-newsgroup-name group gnus-newsgroup-unselected nil diff --git a/lisp/gnus-vers.el b/lisp/gnus-vers.el index b7c7171..0f64bfe 100644 --- a/lisp/gnus-vers.el +++ b/lisp/gnus-vers.el @@ -40,10 +40,10 @@ ;; Product information of this gnus. (product-provide 'gnus-vers (product-define "T-gnus" nil - (list 6 16 4 + (list 6 16 6 (string-to-number gnus-revision-number)))) -(defconst gnus-original-version-number "5.10.4" +(defconst gnus-original-version-number "5.10.6" "Version number for this version of Gnus.") (provide 'running-pterodactyl-gnus-0_73-or-later) diff --git a/lisp/gnus.el b/lisp/gnus.el index 3446048..85f57a8 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1,7 +1,7 @@ ;;; gnus.el --- a newsreader for GNU Emacs ;; Copyright (C) 1987, 1988, 1989, 1990, 1993, 1994, 1995, 1996, 1997, -;; 1998, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; 1998, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA ;; Lars Magne Ingebrigtsen @@ -338,7 +338,9 @@ be set in `.emacs' instead." (:type xbm :file "gnus-pointer.xbm" :ascent center)))) gnus-mode-line-image-cache) - 'help-echo "This is Gnus") + 'help-echo (format + "This is %s, %s." + gnus-version (gnus-emacs-version))) str) (list str)) line))) @@ -2367,6 +2369,27 @@ This should be an alist for Emacs, or a plist for XEmacs." (symbol :tag "Parameter") (sexp :tag "Value"))))) +(defcustom gnus-user-agent 'gnus-mime-edit + "Which information should be exposed in the User-Agent header. + +It can be one of the symbols `gnus' \(show only Gnus version\), `emacs-gnus' +\(show only Emacs and Gnus versions\), `emacs-gnus-config' \(same as +`emacs-gnus' plus system configuration\), `emacs-gnus-type' \(same as +`emacs-gnus' plus system type\), `gnus-mime-edit' \(show Gnus version and +MIME Edit User-Agent\) or a custom string. If you set it to a string, +be sure to use a valid format, see RFC 2616." + :group 'gnus-message + :type '(choice + (item :tag "Show Gnus version and MIME Edit User-Agent" + gnus-mime-edit) + (item :tag "Show Gnus and Emacs versions and system type" + emacs-gnus-type) + (item :tag "Show Gnus and Emacs versions and system configuration" + emacs-gnus-config) + (item :tag "Show Gnus and Emacs versions" emacs-gnus) + (item :tag "Show only Gnus version" gnus) + (string :tag "Other"))) + ;;; Internal variables @@ -3992,21 +4015,19 @@ Disallow invalid group names." (cons (or default "") 0) 'gnus-group-history))) (let ((match (match-string 0 group))) - ;; `/' may be okay (e.g. for nnimap), so ask the user: - (unless (and (string-match "/" match) + ;; Might be okay (e.g. for nnimap), so ask the user: + (unless (and (not (string-match "^$\\|:" match)) (message-y-or-n-p "Proceed and create group anyway? " t "The group name \"" group "\" contains a forbidden character: \"" match "\". Usually, it's dangerous to create a group with this name, because it's not -supported by all back ends and servers. On some IMAP servers, it's valid to -use the character \"/\". - -If you are really sure, you can proceed anyway and create the group. +supported by all back ends and servers. On IMAP servers it should work, +though. If you are really sure, you can proceed anyway and create the group. You may customize the variable `gnus-invalid-group-regexp', which currently is set to \"" gnus-invalid-group-regexp -"\", if you want to get rid of this query.")) +"\", if you want to get rid of this query permanently.")) (setq prefix (format "Invalid group name: \"%s\". " group) group nil))))) group)) @@ -4151,7 +4172,7 @@ current display is used." (defun gnus (&optional arg dont-connect slave) "Read network news. If ARG is non-nil and a positive number, Gnus will use that as the -startup level. If ARG is non-nil and not a positive number, Gnus will +startup level. If ARG is non-nil and not a positive number, Gnus will prompt the user for the name of an NNTP server to use." (interactive "P") (unless (byte-code-function-p (symbol-function 'gnus)) diff --git a/lisp/mail-source.el b/lisp/mail-source.el index b06f55d..0942443 100644 --- a/lisp/mail-source.el +++ b/lisp/mail-source.el @@ -1,5 +1,6 @@ ;;; mail-source.el --- functions for fetching mail -;; Copyright (C) 1999, 2000, 2001, 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004 +;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: news, mail diff --git a/lisp/message.el b/lisp/message.el index 45a0f06..6784330 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1,5 +1,5 @@ ;;; message.el --- composing mail and news messages -;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -2941,17 +2941,23 @@ prefix FORCE is given." (message-get-reply-headers t)))) (message-carefully-insert-headers headers))) -(defvar message-header-synonyms +(defcustom message-header-synonyms '((To Cc Bcc)) "List of lists of header synonyms. E.g., if this list contains a member list with elements `Cc' and `To', then `message-carefully-insert-headers' will not insert a `To' header -when the message is already `Cc'ed to the recipient.") +when the message is already `Cc'ed to the recipient." + :group 'message-headers + :link '(custom-manual "(message)Message Headers") + :type '(repeat sexp)) (defun message-carefully-insert-headers (headers) "Insert the HEADERS, an alist, into the message buffer. Does not insert the headers when they are already present there or in the synonym headers, defined by `message-header-synonyms'." + ;; FIXME: Should compare only the address and not the full name. Comparison + ;; should be done case-folded (and with `string=' rather than + ;; `string-match'). (dolist (header headers) (let* ((header-name (symbol-name (car header))) (new-header (cdr header)) @@ -6226,7 +6232,13 @@ OTHER-HEADERS is an alist of header/value pairs." (let ((mrt (when message-use-mail-reply-to (message-fetch-field "mail-reply-to"))) (reply-to (message-fetch-field "reply-to"))) - (setq to (message-fetch-field "to") + ;; Gmane renames "To". Look at "Original-To", too, if it is present in + ;; message-header-synonyms. + (setq to (or (message-fetch-field "to") + (and (loop for synonym in message-header-synonyms + when (memq 'Original-To synonym) + return t) + (message-fetch-field "original-to"))) cc (message-fetch-field "cc") mct (when message-use-mail-copies-to (message-fetch-field "mail-copies-to")) diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 935f0bc..0fcc1be 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1,6 +1,6 @@ ;;; mm-decode.el --- Functions for decoding MIME things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, -;; 2003 Free Software Foundation, Inc. +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 +;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; MORIOKA Tomohiko @@ -157,6 +157,18 @@ set this variable to nil if you consider all urls to be safe." :type 'boolean :group 'mime-display) +(defcustom mm-enable-external t + "Indicate whether external MIME handlers should be used. + +If t, all defined external MIME handlers are used. If nil, files are saved by +`mailcap-save-binary-file'. If it is the symbol `ask', you are prompted +before the external MIME handler is invoked." + :version "21.4" + :type '(choice (const :tag "Always" t) + (const :tag "Never" nil) + (const :tag "Ask" ask)) + :group 'mime-display) + (defcustom mm-inline-media-tests '(("image/p?jpeg" mm-inline-image @@ -637,7 +649,13 @@ external if displayed external." (if (mm-handle-displayed-p handle) (mm-remove-part handle) (let* ((type (mm-handle-media-type handle)) - (method (mailcap-mime-info type))) + (method (mailcap-mime-info type)) + (filename (or (mail-content-type-get + (mm-handle-disposition handle) 'filename) + (mail-content-type-get + (mm-handle-type handle) 'name) + "")) + (external mm-enable-external)) (if (and (mm-inlinable-p handle) (mm-inlined-p handle)) (progn @@ -652,8 +670,27 @@ external if displayed external." (forward-line 1) (mm-insert-inline handle (mm-get-part handle)) 'inline) - (mm-display-external - handle (or method 'mailcap-save-binary-file))))))))) + (if (and method ;; If nil, we always use "save". + (stringp method) ;; 'mailcap-save-binary-file + (or (eq mm-enable-external t) + (and (eq mm-enable-external 'ask) + (y-or-n-p + (concat + "Display part (" type + ") using external program" + ;; Can non-string method ever happen? + (if (stringp method) + (concat + " \"" (format method filename) "\"") + "") + "? "))))) + (setq external t) + (setq external nil)) + (if external + (mm-display-external + handle (or method 'mailcap-save-binary-file)) + (mm-display-external + handle 'mailcap-save-binary-file))))))))) (defun mm-display-external (handle method) "Display HANDLE using METHOD." @@ -674,7 +711,8 @@ external if displayed external." (mm-set-buffer-file-coding-system mm-binary-coding-system) (insert-buffer-substring cur) (goto-char (point-min)) - (message "Viewing with %s" method) + (when method + (message "Viewing with %s" method)) (let ((mm (current-buffer)) (non-viewer (assq 'non-viewer (mailcap-mime-info diff --git a/lisp/nnml.el b/lisp/nnml.el index 9657e78..7b0ae9c 100644 --- a/lisp/nnml.el +++ b/lisp/nnml.el @@ -628,8 +628,12 @@ marks file will be regenerated properly by Gnus.") (defun nnml-save-mail (group-art) "Called narrowed to an article." - (let (chars headers) + (let (chars headers extension) (setq chars (nnmail-insert-lines)) + (setq extension + (and nnml-use-compressed-files + (> chars 1000) + ".gz")) (nnmail-insert-xref group-art) (run-hooks 'nnmail-prepare-save-mail-hook) (run-hooks 'nnml-prepare-save-mail-hook) @@ -644,7 +648,8 @@ marks file will be regenerated properly by Gnus.") (nnml-possibly-create-directory (caar ga)) (let ((file (concat (nnmail-group-pathname (caar ga) nnml-directory) - (int-to-string (cdar ga))))) + (int-to-string (cdar ga)) + extension))) (if first ;; It was already saved, so we just make a hard link. (funcall nnmail-crosspost-link-function first file t) diff --git a/lisp/smime.el b/lisp/smime.el index bd56be0..908e696 100644 --- a/lisp/smime.el +++ b/lisp/smime.el @@ -185,7 +185,21 @@ and the files themself should be in PEM format." :group 'smime) (defcustom smime-crl-check nil - "*Check revocation status of signers certificate using CRLs." + "*Check revocation status of signers certificate using CRLs. +Enabling this will have OpenSSL check the signers certificate +against a certificate revocation list (CRL). + +For this to work the CRL must be up-to-date and since they are +normally updated quite often (ie. several times a day) you +probably need some tool to keep them up-to-date. Unfortunately +Gnus cannot do this for you. + +The CRL should either be appended (in PEM format) to your +`smime-CA-file' or be located in a file (also in PEM format) in +your `smime-certificate-directory' named to the X.509 hash of the +certificate with .r0 as file name extension. + +At least OpenSSL version 0.9.7 is required for this to work." :type '(choice (const :tag "No check" nil) (const :tag "Check certificate" "-crl_check") (const :tag "Check certificate chain" "-crl_check_all")) diff --git a/lisp/spam-report.el b/lisp/spam-report.el index e10639b..efd6778 100644 --- a/lisp/spam-report.el +++ b/lisp/spam-report.el @@ -1,5 +1,5 @@ ;;; spam-report.el --- Reporting spam -;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Teodor Zlatanov ;; Keywords: network @@ -39,14 +39,14 @@ (defcustom spam-report-gmane-regex nil "Regexp matching Gmane newsgroups, e.g. \"^nntp\\+.*:gmane\\.\" -If you are using spam.el, consider setting gnus-spam-process-newsgroups -or the gnus-group-spam-exit-processor-report-gmane group/topic parameter +If you are using spam.el, consider setting gnus-spam-process-newsgroups +or the gnus-group-spam-exit-processor-report-gmane group/topic parameter instead." :type '(radio (const nil) (regexp :format "%t: %v\n" :size 0 :value "^nntp\+.*:gmane\.")) :group 'spam-report) -(defcustom spam-report-gmane-spam-header +(defcustom spam-report-gmane-spam-header "^X-Report-Spam: http://\\([^/]+\\)\\(.*\\)$" "String matching Gmane spam-reporting header. Two match groups are needed." :type 'regexp @@ -61,9 +61,9 @@ instead." 'spam-report-url-ping-plain "Function to use for url ping spam reporting." :type '(choice - (const :tag "Connect directly" + (const :tag "Connect directly" spam-report-url-ping-plain) - (const :tag "Use the external program specified in `mm-url-program'" + (const :tag "Use the external program specified in `mm-url-program'" spam-report-url-ping-mm-url)) :group 'spam-report) @@ -75,7 +75,7 @@ instead." (string-match spam-report-gmane-regex gnus-newsgroup-name))) (gnus-message 6 "Reporting spam article %d to spam.gmane.org..." article) (if spam-report-gmane-use-article-number - (spam-report-url-ping "spam.gmane.org" + (spam-report-url-ping "spam.gmane.org" (format "/%s:%d" (gnus-group-real-name gnus-newsgroup-name) article)) @@ -86,9 +86,9 @@ instead." (let* ((host (match-string 1)) (report (match-string 2)) (url (format "http://%s%s" host report))) - (gnus-message 10 "Reporting spam through URL %s..." url) + (gnus-message 7 "Reporting spam through URL %s..." url) (spam-report-url-ping host report)) - (gnus-message 10 "Could not find X-Report-Spam in article %d..." + (gnus-message 3 "Could not find X-Report-Spam in article %d..." article))))))) (defun spam-report-url-ping (host report) @@ -101,7 +101,7 @@ the function specified by `spam-report-url-ping-function'." (let ((tcp-connection)) (with-temp-buffer (or (setq tcp-connection - (open-network-stream + (open-network-stream "URL ping" (buffer-name) host diff --git a/lisp/spam.el b/lisp/spam.el index 751d7ed..008f8e9 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -1,7 +1,5 @@ -;; TODO: spam scores, detection of spam in newsgroups, cross-server splitting, remote processing, training through files - ;;; spam.el --- Identifying spam -;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen ;; Keywords: network @@ -34,6 +32,9 @@ ;;; Several TODO items are marked as such +;; TODO: spam scores, detection of spam in newsgroups, cross-server splitting, +;; remote processing, training through files + ;;; Code: (require 'path-util) @@ -44,7 +45,7 @@ (require 'gnus-uu) ; because of key prefix issues ;;; for the definitions of group content classification and spam processors -(require 'gnus) +(require 'gnus) (require 'message) ;for the message-fetch-field functions ;; for nnimap-split-download-body-default @@ -98,13 +99,13 @@ spam groups." :group 'spam) (defcustom spam-split-symbolic-return nil - "Whether spam-split should work with symbols or group names." + "Whether `spam-split' should work with symbols or group names." :type 'boolean :group 'spam) (defcustom spam-split-symbolic-return-positive nil - "Whether spam-split should ALWAYS work with symbols or group - names. Do not set this if you use spam-split in a fancy split + "Whether `spam-split' should ALWAYS work with symbols or group names. +Do not set this if you use `spam-split' in a fancy split method." :type 'boolean :group 'spam) @@ -115,27 +116,26 @@ spam groups." :group 'spam) (defcustom spam-mark-only-unseen-as-spam t - "Whether only unseen articles should be marked as spam in spam -groups. When nil, all unread articles in a spam group are marked as + "Whether only unseen articles should be marked as spam in spam groups. +When nil, all unread articles in a spam group are marked as spam. Set this if you want to leave an article unread in a spam group without losing it to the automatic spam-marking process." :type 'boolean :group 'spam) (defcustom spam-mark-ham-unread-before-move-from-spam-group nil - "Whether ham should be marked unread before it's moved out of a spam -group according to ham-process-destination. This variable is an -official entry in the international Longest Variable Name + "Whether ham should be marked unread before it's moved. +The article is moved out of a spam group according to ham-process-destination. +This variable is an official entry in the international Longest Variable Name Competition." :type 'boolean :group 'spam) (defcustom spam-disable-spam-split-during-ham-respool nil - "Whether spam-split should be ignored while resplitting ham in -a process destination. This is useful to prevent ham from ending -up in the same spam group after the resplit. Don't set this to t -if you have spam-split as the last rule in your split -configuration." + "Whether `spam-split' should be ignored while resplitting ham in a process +destination. This is useful to prevent ham from ending up in the same spam +group after the resplit. Don't set this to t if you have spam-split as the +last rule in your split configuration." :type 'boolean :group 'spam) @@ -160,12 +160,12 @@ The regular expression is matched against the address." :group 'spam) (defcustom spam-use-dig t - "Whether query-dig should be used instead of query-dns." + "Whether `query-dig' should be used instead of `query-dns'." :type 'boolean :group 'spam) (defcustom spam-use-blacklist nil - "Whether the blacklist should be used by spam-split." + "Whether the blacklist should be used by `spam-split'." :type 'boolean :group 'spam) @@ -175,148 +175,148 @@ The regular expression is matched against the address." :group 'spam) (defcustom spam-use-whitelist nil - "Whether the whitelist should be used by spam-split." + "Whether the whitelist should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-whitelist-exclusive nil - "Whether whitelist-exclusive should be used by spam-split. + "Whether whitelist-exclusive should be used by `spam-split'. Exclusive whitelisting means that all messages from senders not in the whitelist are considered spam." :type 'boolean :group 'spam) (defcustom spam-use-blackholes nil - "Whether blackholes should be used by spam-split." + "Whether blackholes should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-hashcash nil - "Whether hashcash payments should be detected by spam-split." + "Whether hashcash payments should be detected by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-regex-headers nil - "Whether a header regular expression match should be used by spam-split. + "Whether a header regular expression match should be used by `spam-split'. Also see the variables `spam-regex-headers-spam' and `spam-regex-headers-ham'." :type 'boolean :group 'spam) (defcustom spam-use-regex-body nil - "Whether a body regular expression match should be used by spam-split. + "Whether a body regular expression match should be used by `spam-split'. Also see the variables `spam-regex-body-spam' and `spam-regex-body-ham'." :type 'boolean :group 'spam) (defcustom spam-use-bogofilter-headers nil - "Whether bogofilter headers should be used by spam-split. + "Whether bogofilter headers should be used by `spam-split'. Enable this if you pre-process messages with Bogofilter BEFORE Gnus sees them." :type 'boolean :group 'spam) (defcustom spam-use-bogofilter nil - "Whether bogofilter should be invoked by spam-split. + "Whether bogofilter should be invoked by `spam-split'. Enable this if you want Gnus to invoke Bogofilter on new messages." :type 'boolean :group 'spam) (defcustom spam-use-BBDB nil - "Whether BBDB should be used by spam-split." + "Whether BBDB should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-BBDB-exclusive nil - "Whether BBDB-exclusive should be used by spam-split. -Exclusive BBDB means that all messages from senders not in the BBDB are + "Whether BBDB-exclusive should be used by `spam-split'. +Exclusive BBDB means that all messages from senders not in the BBDB are considered spam." :type 'boolean :group 'spam) (defcustom spam-use-ifile nil - "Whether ifile should be used by spam-split." + "Whether ifile should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-stat nil - "Whether spam-stat should be used by spam-split." + "Whether `spam-stat' should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-use-spamoracle nil - "Whether spamoracle should be used by spam-split." + "Whether spamoracle should be used by `spam-split'." :type 'boolean :group 'spam) (defcustom spam-install-hooks (or spam-use-dig spam-use-blacklist - spam-use-whitelist - spam-use-whitelist-exclusive - spam-use-blackholes - spam-use-hashcash - spam-use-regex-headers - spam-use-regex-body - spam-use-bogofilter-headers - spam-use-bogofilter - spam-use-BBDB - spam-use-BBDB-exclusive - spam-use-ifile + spam-use-whitelist + spam-use-whitelist-exclusive + spam-use-blackholes + spam-use-hashcash + spam-use-regex-headers + spam-use-regex-body + spam-use-bogofilter-headers + spam-use-bogofilter + spam-use-BBDB + spam-use-BBDB-exclusive + spam-use-ifile spam-use-stat spam-use-spamoracle) - "Whether the spam hooks should be installed, default to t if one of -the spam-use-* variables is set." + "Whether the spam hooks should be installed. +Default to t if one of the spam-use-* variables is set." :group 'spam :type 'boolean) (defcustom spam-split-group "spam" - "Group name where incoming spam should be put by spam-split." + "Group name where incoming spam should be put by `spam-split'." :type 'string :group 'spam) ;;; TODO: deprecate this variable, it's confusing since it's a list of strings, ;;; not regular expressions -(defcustom spam-junk-mailgroups (cons - spam-split-group +(defcustom spam-junk-mailgroups (cons + spam-split-group '("mail.junk" "poste.pourriel")) "Mailgroups with spam contents. All unmarked article in such group receive the spam mark on group entry." :type '(repeat (string :tag "Group")) :group 'spam) -(defcustom spam-blackhole-servers '("bl.spamcop.net" "relays.ordb.org" +(defcustom spam-blackhole-servers '("bl.spamcop.net" "relays.ordb.org" "dev.null.dk" "relays.visi.com") "List of blackhole servers." :type '(repeat (string :tag "Server")) :group 'spam) (defcustom spam-blackhole-good-server-regex nil - "String matching IP addresses that should not be checked in the blackholes" + "String matching IP addresses that should not be checked in the blackholes." :type '(radio (const nil) (regexp :format "%t: %v\n" :size 0)) :group 'spam) (defcustom spam-face 'gnus-splash-face - "Face for spam-marked articles" + "Face for spam-marked articles." :type 'face :group 'spam) (defcustom spam-regex-headers-spam '("^X-Spam-Flag: YES") - "Regular expression for positive header spam matches" + "Regular expression for positive header spam matches." :type '(repeat (regexp :tag "Regular expression to match spam header")) :group 'spam) (defcustom spam-regex-headers-ham '("^X-Spam-Flag: NO") - "Regular expression for positive header ham matches" + "Regular expression for positive header ham matches." :type '(repeat (regexp :tag "Regular expression to match ham header")) :group 'spam) (defcustom spam-regex-body-spam '() - "Regular expression for positive body spam matches" + "Regular expression for positive body spam matches." :type '(repeat (regexp :tag "Regular expression to match spam body")) :group 'spam) (defcustom spam-regex-body-ham '() - "Regular expression for positive body ham matches" + "Regular expression for positive body ham matches." :type '(repeat (regexp :tag "Regular expression to match ham body")) :group 'spam) @@ -337,20 +337,20 @@ All unmarked article in such group receive the spam mark on group entry." :group 'spam-ifile) (defcustom spam-ifile-spam-category "spam" - "Name of the spam ifile category." + "Name of the spam ifile category." :type 'string :group 'spam-ifile) (defcustom spam-ifile-ham-category nil - "Name of the ham ifile category. If nil, the current group name will -be used." + "Name of the ham ifile category. +If nil, the current group name will be used." :type '(choice (string :tag "Use a fixed category") (const :tag "Use the current group name")) :group 'spam-ifile) (defcustom spam-ifile-all-categories nil "Whether the ifile check will return all categories, or just spam. -Set this to t if you want to use the spam-split invocation of ifile as +Set this to t if you want to use the `spam-split' invocation of ifile as your main source of newsgroup names." :type 'boolean :group 'spam-ifile) @@ -397,7 +397,7 @@ your main source of newsgroup names." (defcustom spam-bogofilter-database-directory nil "Directory path of the Bogofilter databases." - :type '(choice (directory + :type '(choice (directory :tag "Location of the Bogofilter database directory") (const :tag "Use the default")) :group 'spam-bogofilter) @@ -406,7 +406,7 @@ your main source of newsgroup names." "Spam spamoracle configuration." :group 'spam) -(defcustom spam-spamoracle-database nil +(defcustom spam-spamoracle-database nil "Location of spamoracle database file. When nil, use the default spamoracle database." :type '(choice (directory :tag "Location of spamoracle database file.") @@ -435,21 +435,22 @@ spamoracle database." "List of old spam articles, generated when a group is entered.") (defvar spam-split-disabled nil - "If non-nil, spam-split is disabled, and always returns nil.") + "If non-nil, `spam-split' is disabled, and always returns nil.") (defvar spam-split-last-successful-check nil - "spam-split will set this to nil or a spam-use-XYZ check if it + "`spam-split' will set this to nil or a spam-use-XYZ check if it finds ham or spam.") ;; convenience functions -(defun spam-xor (a b) ; logical exclusive or +(defun spam-xor (a b) + "Logical exclusive `or'." (and (or a b) (not (and a b)))) (defun spam-group-ham-mark-p (group mark &optional spam) (when (stringp group) (let* ((marks (spam-group-ham-marks group spam)) - (marks (if (symbolp mark) - marks + (marks (if (symbolp mark) + marks (mapcar 'symbol-value marks)))) (memq mark marks)))) @@ -471,13 +472,13 @@ spamoracle database." (defun spam-group-spam-contents-p (group) (if (stringp group) (or (member group spam-junk-mailgroups) - (memq 'gnus-group-spam-classification-spam + (memq 'gnus-group-spam-classification-spam (gnus-parameter-spam-contents group))) nil)) - + (defun spam-group-ham-contents-p (group) (if (stringp group) - (memq 'gnus-group-spam-classification-ham + (memq 'gnus-group-spam-classification-ham (gnus-parameter-spam-contents group)) nil)) @@ -503,8 +504,8 @@ spam-use-* variable.") (if (and (stringp group) (symbolp processor)) (or (member processor (nth 0 (gnus-parameter-spam-process group))) - (spam-group-processor-multiple-p - group + (spam-group-processor-multiple-p + group (cdr-safe (assoc processor spam-list-of-processors)))) nil)) @@ -563,9 +564,9 @@ spam-use-* variable.") ;;; Summary entry and exit processing. (defun spam-summary-prepare () - (setq spam-old-ham-articles + (setq spam-old-ham-articles (spam-list-articles gnus-newsgroup-articles 'ham)) - (setq spam-old-spam-articles + (setq spam-old-spam-articles (spam-list-articles gnus-newsgroup-articles 'spam)) (spam-mark-junk-as-spam-routine)) @@ -578,10 +579,10 @@ spam-use-* variable.") ;; we have to iterate over the processors, or else we'll be too slow (dolist (classification '(spam ham)) (let* ((old-articles (if (eq classification 'spam) - spam-old-spam-articles + spam-old-spam-articles spam-old-ham-articles)) - (new-articles (spam-list-articles - gnus-newsgroup-articles + (new-articles (spam-list-articles + gnus-newsgroup-articles classification)) (changed-articles (gnus-set-difference old-articles new-articles))) ;; now that we have the changed articles, we go through the processors @@ -592,14 +593,14 @@ spam-use-* variable.") unregister-list) (dolist (article changed-articles) (let ((id (spam-fetch-field-message-id-fast article))) - (when (spam-log-unregistration-needed-p + (when (spam-log-unregistration-needed-p id 'process classification check) (push article unregister-list)))) ;; call spam-register-routine with specific articles to unregister, ;; when there are articles to unregister and the check is enabled (when (and unregister-list (symbol-value check)) (spam-register-routine classification check t unregister-list)))))) - + ;; find all the spam processors applicable to this group (dolist (processor-param spam-list-of-processors) (let ((processor (nth 0 processor-param)) @@ -609,13 +610,13 @@ spam-use-* variable.") (spam-group-processor-p gnus-newsgroup-name processor)) (spam-register-routine classification check)))) - (if spam-move-spam-nonspam-groups-only + (if spam-move-spam-nonspam-groups-only (when (not (spam-group-spam-contents-p gnus-newsgroup-name)) (spam-mark-spam-as-expired-and-move-routine (gnus-parameter-spam-process-destination gnus-newsgroup-name))) - (gnus-message 5 "Marking spam as expired and moving it to %s" + (gnus-message 5 "Marking spam as expired and moving it to %s" gnus-newsgroup-name) - (spam-mark-spam-as-expired-and-move-routine + (spam-mark-spam-as-expired-and-move-routine (gnus-parameter-spam-process-destination gnus-newsgroup-name))) ;; now we redo spam-mark-spam-as-expired-and-move-routine to only @@ -655,10 +656,10 @@ spam-use-* variable.") ;; group parameters (when (spam-group-spam-contents-p gnus-newsgroup-name) (gnus-message 5 "Marking %s articles as spam" - (if spam-mark-only-unseen-as-spam + (if spam-mark-only-unseen-as-spam "unseen" "unread")) - (let ((articles (if spam-mark-only-unseen-as-spam + (let ((articles (if spam-mark-only-unseen-as-spam gnus-newsgroup-unseen gnus-newsgroup-unreads))) (dolist (article articles) @@ -677,7 +678,7 @@ spam-use-* variable.") (when (eq (gnus-summary-article-mark article) gnus-spam-mark) (gnus-summary-mark-article article gnus-expirable-mark) (push article tomove))) - + ;; now do the actual copies (dolist (group groups) (when (and tomove @@ -687,11 +688,11 @@ spam-use-* variable.") (when tomove (if (or (not backend-supports-deletions) (> (length groups) 1)) - (progn + (progn (gnus-summary-copy-article nil group) (setq deletep t)) (gnus-summary-move-article nil group))))) - + ;; now delete the articles, if there was a copy done, and the ;; backend allows it (when (and deletep backend-supports-deletions) @@ -700,21 +701,17 @@ spam-use-* variable.") (when tomove (let ((gnus-novice-user nil)) ; don't ask me if I'm sure (gnus-summary-delete-article nil)))) - + (gnus-summary-yank-process-mark)))) - + (defun spam-ham-copy-or-move-routine (copy groups) (gnus-summary-kill-process-mark) - (let ((articles gnus-newsgroup-articles) + (let ((todo (spam-list-articles gnus-newsgroup-articles 'ham)) (backend-supports-deletions (gnus-check-backend-function 'request-move-article gnus-newsgroup-name)) (respool-method (gnus-find-method-for-group gnus-newsgroup-name)) article mark todo deletep respool) - (dolist (article articles) - (when (spam-group-ham-mark-p gnus-newsgroup-name - (gnus-summary-article-mark article)) - (push article todo))) (when (member 'respool groups) (setq respool t) ; boolean for later @@ -739,7 +736,7 @@ spam-use-* variable.") (gnus-summary-copy-article nil group) (setq deletep t)) (gnus-summary-move-article nil group))))) ; else move articles - + ;; now delete the articles, unless a) copy is t, and there was a copy done ;; b) a move was done to a single group ;; c) backend-supports-deletions is nil @@ -750,19 +747,19 @@ spam-use-* variable.") (when todo (let ((gnus-novice-user nil)) ; don't ask me if I'm sure (gnus-summary-delete-article nil)))))) - + (gnus-summary-yank-process-mark)) - + (defun spam-ham-copy-routine (&rest groups) (if (and (car-safe groups) (listp (car-safe groups))) (apply 'spam-ham-copy-routine (car groups)) (spam-ham-copy-or-move-routine t groups))) - + (defun spam-ham-move-routine (&rest groups) (if (and (car-safe groups) (listp (car-safe groups))) (apply 'spam-ham-move-routine (car groups)) (spam-ham-copy-or-move-routine nil groups))) - + (eval-and-compile (defalias 'spam-point-at-eol (if (fboundp 'point-at-eol) 'point-at-eol @@ -790,9 +787,9 @@ spam-use-* variable.") ;; (defun spam-get-article-as-filename (article) ;; (let ((article-filename)) ;; (when (numberp article) -;; (nnml-possibly-change-directory +;; (nnml-possibly-change-directory ;; (gnus-group-real-name gnus-newsgroup-name)) -;; (setq article-filename (expand-file-name +;; (setq article-filename (expand-file-name ;; (int-to-string article) nnml-current-directory))) ;; (if (file-exists-p article-filename) ;; article-filename @@ -802,7 +799,7 @@ spam-use-* variable.") "Fetch the `from' field quickly, using the internal gnus-data-list function" (if (and (numberp article) (assoc article (gnus-data-list nil))) - (mail-header-from + (mail-header-from (gnus-data-header (assoc article (gnus-data-list nil)))) nil)) @@ -811,7 +808,7 @@ spam-use-* variable.") gnus-data-list function" (if (and (numberp article) (assoc article (gnus-data-list nil))) - (mail-header-subject + (mail-header-subject (gnus-data-header (assoc article (gnus-data-list nil)))) nil)) @@ -820,7 +817,7 @@ spam-use-* variable.") gnus-data-list function" (if (and (numberp article) (assoc article (gnus-data-list nil))) - (mail-header-message-id + (mail-header-message-id (gnus-data-header (assoc article (gnus-data-list nil)))) nil)) @@ -854,10 +851,10 @@ and further checks are also inhibited. The usual mailgroup name is the value of `spam-split-group', meaning that the message is definitely a spam.") -(defvar spam-list-of-statistical-checks +(defvar spam-list-of-statistical-checks '(spam-use-ifile - spam-use-regex-body - spam-use-stat + spam-use-regex-body + spam-use-stat spam-use-bogofilter spam-use-spamoracle) "The spam-list-of-statistical-checks list contains all the mail @@ -866,7 +863,7 @@ splitters that need to have the full message body available.") ;;;TODO: modify to invoke self with each check if invoked without specifics (defun spam-split (&rest specific-checks) "Split this message into the `spam' group if it is spam. -This function can be used as an entry in `nnmail-split-fancy', +This function can be used as an entry in the variable `nnmail-split-fancy', for example like this: (: spam-split). It can take checks as parameters. A string as a parameter will set the spam-split-group to that string. @@ -880,7 +877,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (when (stringp check) (setq spam-split-group-choice check) (setq specific-checks (delq check specific-checks)))) - + (let ((spam-split-group spam-split-group-choice)) (save-excursion (save-restriction @@ -898,7 +895,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (when (and (symbol-value (car pair)) (or (null specific-checks) (memq (car pair) specific-checks))) - (gnus-message 5 "spam-split: calling the %s function" + (gnus-message 5 "spam-split: calling the %s function" (symbol-name (cdr pair))) (setq decision (funcall (cdr pair))) ;; if we got a decision at all, save the current check @@ -909,7 +906,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (if spam-split-symbolic-return (setq decision spam-split-group) (gnus-error - 5 + 5 (format "spam-split got %s but %s is nil" (symbol-name decision) (symbol-name spam-split-symbolic-return)))))))) @@ -918,14 +915,14 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." decision)))))))) (defun spam-find-spam () - "This function will detect spam in the current newsgroup using spam-split" + "This function will detect spam in the current newsgroup using spam-split." (interactive) - + (let* ((group gnus-newsgroup-name) (autodetect (gnus-parameter-spam-autodetect group)) (methods (gnus-parameter-spam-autodetect-methods group)) (first-method (nth 0 methods))) - (when (and autodetect + (when (and autodetect (not (equal first-method 'none))) (mapcar (lambda (article) @@ -938,8 +935,8 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (spam-split-symbolic-return-positive t) (split-return (with-temp-buffer - (gnus-request-article-this-buffer - article + (gnus-request-article-this-buffer + article group) (if (or (null first-method) (equal first-method 'default)) @@ -953,7 +950,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (gnus-registry-add-group id group subject sender)) - (spam-log-processing-to-registry + (spam-log-processing-to-registry id 'incoming split-return @@ -966,7 +963,7 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." (defvar spam-registration-functions ;; first the ham register, second the spam register function ;; third the ham unregister, fourth the spam unregister function - '((spam-use-blacklist nil + '((spam-use-blacklist nil spam-blacklist-register-routine nil spam-blacklist-unregister-routine) @@ -974,31 +971,31 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." nil spam-whitelist-unregister-routine nil) - (spam-use-BBDB spam-BBDB-register-routine + (spam-use-BBDB spam-BBDB-register-routine nil - spam-BBDB-unregister-routine + spam-BBDB-unregister-routine nil) - (spam-use-ifile spam-ifile-register-ham-routine + (spam-use-ifile spam-ifile-register-ham-routine spam-ifile-register-spam-routine - spam-ifile-unregister-ham-routine + spam-ifile-unregister-ham-routine spam-ifile-unregister-spam-routine) - (spam-use-spamoracle spam-spamoracle-learn-ham + (spam-use-spamoracle spam-spamoracle-learn-ham spam-spamoracle-learn-spam - spam-spamoracle-unlearn-ham + spam-spamoracle-unlearn-ham spam-spamoracle-unlearn-spam) - (spam-use-stat spam-stat-register-ham-routine + (spam-use-stat spam-stat-register-ham-routine spam-stat-register-spam-routine - spam-stat-unregister-ham-routine + spam-stat-unregister-ham-routine spam-stat-unregister-spam-routine) ;; note that spam-use-gmane is not a legitimate check - (spam-use-gmane nil + (spam-use-gmane nil spam-report-gmane-register-routine ;; does Gmane support unregistration? nil nil) - (spam-use-bogofilter spam-bogofilter-register-ham-routine + (spam-use-bogofilter spam-bogofilter-register-ham-routine spam-bogofilter-register-spam-routine - spam-bogofilter-unregister-ham-routine + spam-bogofilter-unregister-ham-routine spam-bogofilter-unregister-spam-routine)) "The spam-registration-functions list contains pairs associating a parameter variable with the ham and spam @@ -1032,20 +1029,28 @@ functions") (nth 2 flist)))) (defun spam-list-articles (articles classification) - (let ((mark-check (if (eq classification 'spam) - 'spam-group-spam-mark-p + (let ((mark-check (if (eq classification 'spam) + 'spam-group-spam-mark-p 'spam-group-ham-mark-p)) - mark list) + list mark-cache-yes mark-cache-no) (dolist (article articles) - (when (funcall mark-check - gnus-newsgroup-name - (gnus-summary-article-mark article)) - (push article list))) + (let ((mark (gnus-summary-article-mark article))) + (unless (memq mark mark-cache-no) + (if (memq mark mark-cache-yes) + (push article list) + ;; else, we have to actually check the mark + (if (funcall mark-check + gnus-newsgroup-name + mark) + (progn + (push article list) + (push mark mark-cache-yes)) + (push mark mark-cache-no)))))) list)) -(defun spam-register-routine (classification - check - &optional unregister +(defun spam-register-routine (classification + check + &optional unregister specific-articles) (when (and (spam-classification-valid-p classification) (spam-registration-check-valid-p check)) @@ -1053,8 +1058,8 @@ functions") (spam-registration-function classification check)) (unregister-function (spam-unregistration-function classification check)) - (run-function (if unregister - unregister-function + (run-function (if unregister + unregister-function register-function)) (log-function (if unregister 'spam-log-undo-registration @@ -1064,8 +1069,8 @@ functions") (when run-function ;; make list of articles, using specific-articles if given (setq articles (or specific-articles - (spam-list-articles - gnus-newsgroup-articles + (spam-list-articles + gnus-newsgroup-articles classification))) ;; process them (gnus-message 5 "%s %d %s articles with classification %s, check %s" @@ -1109,7 +1114,7 @@ functions") (if (and (stringp id) (spam-process-type-valid-p type)) (cdr-safe (gnus-registry-fetch-extra id type)) - (progn + (progn (gnus-message 5 (format "%s called with bad ID, type, classification, or check" "spam-log-registered-p")) nil)))) @@ -1129,7 +1134,7 @@ functions") (eq check (nth 1 cell))) (setq found t)))) found) - (progn + (progn (gnus-message 5 (format "%s called with bad ID, type, classification, or check" "spam-log-unregistration-needed-p")) nil)))) @@ -1153,12 +1158,12 @@ functions") id type new-cell-list)) - (progn + (progn (gnus-message 5 (format "%s called with bad ID, type, check, or group" "spam-log-undo-registration")) nil)))) -;;; set up IMAP widening if it's necessary +;;; set up IMAP widening if it's necessary (defun spam-setup-widening () (dolist (check spam-list-of-statistical-checks) (when (symbol-value check) @@ -1178,7 +1183,7 @@ functions") (defun spam-check-regex-headers (&optional body) (let ((type (if body "body" "header")) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group)) ret found) (dolist (h-regex spam-regex-headers-ham) @@ -1209,7 +1214,7 @@ functions") "Check the Received headers for blackholed relays." (let ((headers (nnmail-fetch-field "received")) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group)) ips matches) (when headers @@ -1226,7 +1231,7 @@ functions") (dolist (ip ips) (unless (and spam-blackhole-good-server-regex ;; match the good-server-regex against the reversed (again) IP string - (string-match + (string-match spam-blackhole-good-server-regex (spam-reverse-ip-string ip))) (unless matches @@ -1234,7 +1239,7 @@ functions") (if spam-use-dig (let ((query-result (query-dig query-string))) (when query-result - (gnus-message 5 "(DIG): positive blackhole check '%s'" + (gnus-message 5 "(DIG): positive blackhole check '%s'" query-result) (push (list ip server query-result) matches))) @@ -1251,7 +1256,7 @@ functions") (condition-case nil (progn (require 'hashcash) - + (defun spam-check-hashcash () "Check the headers for hashcash payments." (mail-check-payment))) ;mail-check-payment returns a boolean @@ -1260,7 +1265,7 @@ functions") (defalias 'mail-check-payment 'ignore) (defalias 'spam-check-hashcash 'ignore)))) -;;;; BBDB +;;;; BBDB ;;; original idea for spam-check-BBDB from Alexander Kotelnikov ;;; @@ -1271,29 +1276,29 @@ functions") (progn (require 'bbdb) (require 'bbdb-com) - + (defun spam-enter-ham-BBDB (addresses &optional remove) "Enter an address into the BBDB; implies ham (non-spam) sender" (dolist (from addresses) (when (stringp from) (let* ((parsed-address (gnus-extract-address-components from)) (name (or (nth 0 parsed-address) "Ham Sender")) - (remove-function (if remove + (remove-function (if remove 'bbdb-delete-record-internal 'ignore)) (net-address (nth 1 parsed-address)) - (record (and net-address + (record (and net-address (bbdb-search-simple nil net-address)))) (when net-address - (gnus-message 5 "%s address %s %s BBDB" - (if remove "Deleting" "Adding") + (gnus-message 5 "%s address %s %s BBDB" + (if remove "Deleting" "Adding") from (if remove "from" "to")) (if record (funcall remove-function record) - (bbdb-create-internal name nil net-address nil nil + (bbdb-create-internal name nil net-address nil nil "ham sender added by spam.el"))))))) - + (defun spam-BBDB-register-routine (articles &optional unregister) (let (addresses) (dolist (article articles) @@ -1309,12 +1314,12 @@ functions") "Mail from people in the BBDB is classified as ham or non-spam" (let ((who (nnmail-fetch-field "from")) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group))) (when who (setq who (nth 1 (gnus-extract-address-components who))) (if (bbdb-search-simple nil who) - t + t (if spam-use-BBDB-exclusive spam-split-group nil)))))) @@ -1340,12 +1345,12 @@ functions") (if spam-ifile-database-path (format "--db-file=%s" spam-ifile-database-path) nil)) - + (defun spam-check-ifile () - "Check the ifile backend for the classification of this message" - (let ((article-buffer-name (buffer-name)) + "Check the ifile backend for the classification of this message." + (let ((article-buffer-name (buffer-name)) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group)) category return) (with-temp-buffer @@ -1383,7 +1388,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)." (insert article-string)))) (apply 'call-process-region (point-min) (point-max) spam-ifile-path - nil nil nil + nil nil nil add-or-delete-option category (if db `(,db "-h") `("-h")))))) @@ -1406,11 +1411,11 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)." (progn (let ((spam-stat-install-hooks nil)) (require 'spam-stat)) - + (defun spam-check-stat () "Check the spam-stat backend for the classification of this message" (let ((spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group)) (spam-stat-split-fancy-spam-group spam-split-group) ; override (spam-stat-buffer (buffer-name)) ; stat the current buffer @@ -1443,7 +1448,7 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)." (defun spam-maybe-spam-stat-load () (when spam-use-stat (spam-stat-load))) - + (defun spam-maybe-spam-stat-save () (when spam-use-stat (spam-stat-save)))) @@ -1477,16 +1482,16 @@ Uses `gnus-newsgroup-name' if category is nil (for ham registration)." ;;; address can be a list, too (defun spam-enter-whitelist (address &optional remove) - "Enter ADDRESS (list or single) into the whitelist. With a - non-nil REMOVE, remove them." + "Enter ADDRESS (list or single) into the whitelist. +With a non-nil REMOVE, remove them." (interactive "sAddress: ") (spam-enter-list address spam-whitelist remove) (setq spam-whitelist-cache nil)) ;;; address can be a list, too (defun spam-enter-blacklist (address &optional remove) - "Enter ADDRESS (list or single) into the blacklist. With a - non-nil REMOVE, remove them." + "Enter ADDRESS (list or single) into the blacklist. +With a non-nil REMOVE, remove them." (interactive "sAddress: ") (spam-enter-list address spam-blacklist remove) (setq spam-blacklist-cache nil)) @@ -1523,11 +1528,11 @@ REMOVE not nil, remove the ADDRESSES." (defun spam-check-whitelist () ;; FIXME! Should it detect when file timestamps change? (let ((spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group))) (unless spam-whitelist-cache (setq spam-whitelist-cache (spam-parse-list spam-whitelist))) - (if (spam-from-listed-p spam-whitelist-cache) + (if (spam-from-listed-p spam-whitelist-cache) t (if spam-use-whitelist-exclusive spam-split-group @@ -1536,7 +1541,7 @@ REMOVE not nil, remove the ADDRESSES." (defun spam-check-blacklist () ;; FIXME! Should it detect when file timestamps change? (let ((spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group))) (unless spam-blacklist-cache (setq spam-blacklist-cache (spam-parse-list spam-blacklist))) @@ -1574,7 +1579,7 @@ REMOVE not nil, remove the ADDRESSES." (defun spam-filelist-register-routine (articles blacklist &optional unregister) (let ((de-symbol (if blacklist 'spam-use-whitelist 'spam-use-blacklist)) (declassification (if blacklist 'ham 'spam)) - (enter-function + (enter-function (if blacklist 'spam-enter-blacklist 'spam-enter-whitelist)) (remove-function (if blacklist 'spam-enter-whitelist 'spam-enter-blacklist)) @@ -1591,7 +1596,7 @@ REMOVE not nil, remove the ADDRESSES." (setq sender-ignored t))) ;; remember the messages we need to unregister, unless remove is set (when (and - (null unregister) + (null unregister) (spam-log-unregistration-needed-p id 'process declassification de-symbol)) (push from unregister-list)) @@ -1633,7 +1638,7 @@ REMOVE not nil, remove the ADDRESSES." (defun spam-check-bogofilter-headers (&optional score) (let ((header (nnmail-fetch-field spam-bogofilter-header)) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group))) (when header ; return nil when no header (if score ; scoring mode @@ -1668,37 +1673,37 @@ REMOVE not nil, remove the ADDRESSES." (save-excursion (set-buffer article-buffer-name) (apply 'call-process-region - (point-min) (point-max) + (point-min) (point-max) spam-bogofilter-path nil temp-buffer-name nil (if db `("-d" ,db "-v") `("-v")))) (setq return (spam-check-bogofilter-headers score)))) return)) -(defun spam-bogofilter-register-with-bogofilter (articles - spam +(defun spam-bogofilter-register-with-bogofilter (articles + spam &optional unregister) "Register an article, given as a string, as spam or non-spam." (dolist (article articles) (let ((article-string (spam-get-article-as-string article)) (db spam-bogofilter-database-directory) (switch (if unregister - (if spam + (if spam spam-bogofilter-spam-strong-switch spam-bogofilter-ham-strong-switch) - (if spam - spam-bogofilter-spam-switch + (if spam + spam-bogofilter-spam-switch spam-bogofilter-ham-switch)))) (when (stringp article-string) (with-temp-buffer (insert article-string) (apply 'call-process-region - (point-min) (point-max) + (point-min) (point-max) spam-bogofilter-path nil nil nil switch (if db `("-d" ,db "-v") `("-v")))))))) - + (defun spam-bogofilter-register-spam-routine (articles &optional unregister) (spam-bogofilter-register-with-bogofilter articles t unregister)) @@ -1718,16 +1723,16 @@ REMOVE not nil, remove the ADDRESSES." "Run spamoracle on an article to determine whether it's spam." (let ((article-buffer-name (buffer-name)) (spam-split-group (if spam-split-symbolic-return - 'spam + 'spam spam-split-group))) (with-temp-buffer (let ((temp-buffer-name (buffer-name))) (save-excursion (set-buffer article-buffer-name) - (let ((status - (apply 'call-process-region + (let ((status + (apply 'call-process-region (point-min) (point-max) - spam-spamoracle-binary + spam-spamoracle-binary nil temp-buffer-name nil (if spam-spamoracle-database `("-f" ,spam-spamoracle-database "mark") @@ -1749,15 +1754,15 @@ REMOVE not nil, remove the ADDRESSES." (dolist (article articles) (insert (spam-get-article-as-string article))) (let* ((arg (if (spam-xor unregister article-is-spam-p) - "-spam" + "-spam" "-good")) - (status + (status (apply 'call-process-region (point-min) (point-max) spam-spamoracle-binary nil temp-buffer-name nil (if spam-spamoracle-database - `("-f" ,spam-spamoracle-database + `("-f" ,spam-spamoracle-database "add" ,arg) `("add" ,arg))))) (when (not (eq 0 status)) @@ -1812,3 +1817,7 @@ REMOVE not nil, remove the ADDRESSES." (provide 'spam) ;;; spam.el ends here. + +(provide 'spam) + +;;; spam.el ends here diff --git a/texi/ChangeLog b/texi/ChangeLog index e613dcc..12065b6 100644 --- a/texi/ChangeLog +++ b/texi/ChangeLog @@ -1,3 +1,66 @@ +2004-01-03 Teodor Zlatanov + + * gnus.texi (Spam ELisp Package Sequence of Events): explain more + about the sequence of events and what happens with read-only + backends + (Spam ELisp Package Global Variables): explain what happens with + read-only backends + (Spam ELisp Package Configuration Examples): added Reiner Steib + and Ted Zlatanov's setups + +2004-01-03 Reiner Steib + + * emacs-mime.texi (Display Customization): Add mm-enable-external. + +2004-01-03 Lars Magne Ingebrigtsen + + * gnus.texi (Category Syntax): + gnus-agent-cat-enable-undownloaded-faces. + +2004-01-03 Reiner Steib + + * message.texi, gnus.texi, gnus-faq.texi: Update copyright. + + * gnus-faq.texi ([5.12]): Fix code example for FQDN in Message-Ids. + + * message.texi (Message Headers): Add message-header-synonyms. + + * gnus.texi (Other modes): New node. + (Oort Gnus): Refer to the above in "Dired integration". + +2004-01-02 Teodor Zlatanov + + * gnus.texi (Top): updated menu with new manual nodes + (The problem of spam): more ranting + (Anti-Spam Basics): "spammers are wise to [filtering on From:]" + (SpamAssassin): mention spam.el + (Hashcash): do not a sentence end proposition with + (Filtering Spam Using The Spam ELisp Package): more and better + explanation, took lots of information out into subsections + (Spam ELisp Package Sequence of Events) + (Spam ELisp Package Filtering of Incoming Mail) + (Spam ELisp Package Global Variables): new or updated content all + around + (Spam ELisp Package Configuration Examples): promised new + section, empty for now + (Blacklists and Whitelists, BBDB Whitelists) + (Gmane Spam Reporting, Bogofilter, spam-stat spam filtering) + (SpamOracle): mention that spam/ham processor variables are being + obsoleted + (Extending the Spam ELisp package): add some new documentation + for adding a new backend to spam.el + +2004-01-02 Reiner Steib + + * gnus.texi (Foreign Groups): Add `gnus-group-read-ephemeral-group'. + (Oort Gnus): Ditto. + +2004-01-02 Lars Magne Ingebrigtsen + + * message.texi (Key Index): Untabified. + + * gnus.texi (RSS): kindex. + 2003-12-30 Reiner Steib * gnus.texi (Summary Score Commands): Add `f' to diff --git a/texi/emacs-mime.texi b/texi/emacs-mime.texi index 7b5cce0..8c51bde 100644 --- a/texi/emacs-mime.texi +++ b/texi/emacs-mime.texi @@ -407,6 +407,22 @@ setting this option to non-@code{nil}. The default value is @code{t}. @vindex mm-external-terminal-program The program used to start an external terminal. +@item mm-enable-external +@vindex mm-enable-external +Indicate whether external MIME handlers should be used. + +If @code{t}, all defined external MIME handlers are used. If +@code{nil}, files are saved to disk (@code{mailcap-save-binary-file}). +If it is the symbol @code{ask}, you are prompted before the external +@acronym{MIME} handler is invoked. + +When you launch an attachment through mailcap (@pxref{mailcap}) an +attempt is made to use a safe viewer with the safest options--this isn't +the case if you save it to disk and launch it in a different way +(command line or double-clicking). Anyhow, if you want to be sure not +to launch any external programs, set this variable to @code{nil} or +@code{ask}. + @end table @node Files and Directories diff --git a/texi/gnus-faq.texi b/texi/gnus-faq.texi index 8611ff2..f6e4cf8 100644 --- a/texi/gnus-faq.texi +++ b/texi/gnus-faq.texi @@ -1,6 +1,6 @@ @c Insert "\input texinfo" at 1st line before texing this file alone. @c -*-texinfo-*- -@c Copyright (C) 1995, 2001, 2003 Free Software Foundation, Inc. +@c Copyright (C) 1995, 2001, 2003, 2004 Free Software Foundation, Inc. @setfilename gnus-faq.info @c Frequently Asked Questions, FAQ - Introduction, Emacs for Heathens, Top @@ -1845,17 +1845,25 @@ Answer: name to put after the "@@". If the name of the machine where Gnus is running isn't suitable (it probably isn't at most private machines) you can tell Gnus what to use - by saying: - - + by saying @example -(defun message-make-message-id() - (concat "<"(message-unique-id)"@@yourmachine.yourdomain.tld>")) +(setq message-user-fqdn "yourmachine.yourdomain.tld") @end example - - @noindent - in ~/.gnus. If you have no idea what to insert for + in ~/.gnus. If you use Gnus 5.9 or ealier, you can use this +instead: +@example +(eval-after-load "message" + '(let (myfqdn "yourmachine.yourdomain.tld");; <-- Edit this! + (if (boundp 'message-user-fqdn) + (setq message-user-fqdn fqdn) + (gnus-message 1 "Redefining `message-make-fqdn'.") + (defun message-make-fqdn () + "Return user's fully qualified domain name." + fqdn)))) +@end example + + If you have no idea what to insert for "yourmachine.yourdomain.tld", you've got several choices. You can either ask your provider if he allows you to use something like diff --git a/texi/gnus-ja.texi b/texi/gnus-ja.texi index e024335..09ab7b4 100644 --- a/texi/gnus-ja.texi +++ b/texi/gnus-ja.texi @@ -301,7 +301,7 @@ \thispagestyle{empty} Copyright \copyright{} 1995, 1996, 1997, 1998, 1999, 2000, 2001, -2002, 2003 +2002, 2003, 2004 Free Software Foundation, Inc. @@ -633,6 +633,9 @@ Marking Articles * Unread Articles:: $BL$FI5-;v$X$N0u(B * Read Articles:: $B4{FI5-;v$X$N0u(B * Other Marks:: $B9XFIEY$K1F6A$7$J$$0u(B + +Marking Articles + * Setting Marks:: $B0u$NIU$1J}$H>C$7J}(B * Generic Mark Commands:: $B0u$r$I$N$h$&$K%+%9%?%^%$%:$9$k$+(B * Setting Process Marks:: $B8e$N7W$J>&6HE*EE;R%a!<%k$rHr$1$kJ}K!(B +* Other modes:: $BB>$N%b!<%I$H$NAj8_:nMQ(B * Various Various:: $BK\Ev$K$$$m$$$m$J$b$N(B Formatting Variables @@ -930,6 +934,10 @@ Thwarting Email Spam Filtering Spam Using The Spam ELisp Package +* Spam ELisp Package Sequence of Events:: +* Spam ELisp Package Filtering of Incoming Mail:: +* Spam ELisp Package Global Variables:: +* Spam ELisp Package Configuration Examples:: * Blacklists and Whitelists:: * BBDB Whitelists:: * Gmane Spam Reporting:: @@ -940,7 +948,7 @@ Filtering Spam Using The Spam ELisp Package * ifile spam filtering:: * spam-stat spam filtering:: * SpamOracle:: -* Extending the spam elisp package:: +* Extending the Spam ELisp package:: Filtering Spam Using Statistics with spam-stat @@ -2536,6 +2544,13 @@ Gnus $B$ODL>o!"(B@code{gnus-activate-level} $B$+$=$l$h$j>.$5$$%l%Y%k$N%0%k!<% $B$F$-$^$9!#$h$j4JC1$K(B @acronym{NNTP} $B%0%k!<%W$r9XFI$9$kJ}K!$K$D$$$F$O!"(B @ref{Browse Foreign Server} $B$r;2>H$7$F2<$5$$!#(B +@item G M +@kindex G M ($B%0%k!<%W(B) +@findex gnus-group-read-ephemeral-group +$B0l;~%K%e!<%9%0%k!<%W$r:n@.$7$^(B +$B$9(B (@code{gnus-group-read-ephemeral-group})$B!#(B Gnus $B$O%W%m%s%W%H$rI=<($7(B +$B$F!"L>A0!"J}K!$*$h$S(B @dfn{address} $B$NF~NO$r5a$a$^$9!#(B + @item G n @kindex G n ($B%0%k!<%W(B) @findex gnus-group-make-shimbun-group @@ -4048,7 +4063,7 @@ Gnus $B%a!<%k$r$I$3$+$KAw$j$^$9(B (@code{gnus-group-mail})$B!#$b$7@\F,<-$,M?$($i$l(B $B$?$i8=:_0LCV$N%0%k!<%W$NEj9FMM<0(B (posting style) $B$r;H$$$^$9!#$b$7@\F,<-(B $B$,(B 1 $B$@$C$?$i!"$I$N%0%k!<%W$NEj9FMM<0$r;H$&$+$r?R$M$^$9!#(B -@xref{Composing Messages}$B!#(B +@xref{Composing Messages}. @item i @kindex i ($B%0%k!<%W(B) @@ -14962,6 +14977,7 @@ http://w3m.sourceforge.net/ @acronym{RSS} $B$O$H$F$b5,B'E*$+$DNIo$K?7$7$/$7$F$*$/$?$a$N>pJs$rF@$k$3$H$,$G$-$^$9!#(B +@kindex G R ($B35N,(B) Feed $B$r9VFI$9$k$K$O!"35N,%P%C%U%!$+$i(B @kbd{G R} $B$r;H$C$F2<$5$$(B---feed $B$N(B $B=j:_$NF~NO$r5a$a$i$l$k$G$7$g$&!#(B @@ -16865,11 +16881,17 @@ Commands}) $B$+!"$^$?$O%(!<%8%'%s%H$K07$C$FM_$7$/$J$$$N$K<+F0E*$KDI2C$5$l(B @item gnus-agent-cat-length-when-long @code{gnus-agent-long-article} $B$r>e=q$-$9$k@0?t!#(B -@item gnus-agent-cat-disable-undownloaded-faces +@c @item gnus-agent-cat-disable-undownloaded-faces +@c $B%@%&%s%m!<%I$5$l$F$$$J$$5-;v$r(B gnus-summary-*-undownloaded-face $B$r;H$C$F(B +@c $B35N,%P%C%U%!$KI=<($9$Y$-(B @emph{$B$G$O$J$$(B} $B$3$H$r<($9%7%s%\%k!#CM(B +@c $B$,(B @code{nil} $B$@$H!"B>$N%7%s%\%k$,$=$l$i$rM^@)$7$F$$$F$b!"%@%&%s%m!<%I$5(B +@c $B$l$F$$$J$$5-;vMQ$N%U%'!<%9$r;H$($k$h$&$K$J$j$^$9!#(B + +@item gnus-agent-cat-enable-undownloaded-faces $B%@%&%s%m!<%I$5$l$F$$$J$$5-;v$r(B gnus-summary-*-undownloaded-face $B$r;H$C$F(B -$B35N,%P%C%U%!$K$9$Y$-(B @emph{$B$G$O$J$$(B} $B$3$H$r<($9%7%s%\%k!#CM(B -$B$,(B @code{nil} $B$@$H!"B>$N%7%s%\%k$,$=$l$i$rM^@)$7$F$$$F$b!"%@%&%s%m!<%I$5(B -$B$l$F$$$J$$5-;vMQ$N%U%'!<%9$r;H$($k$h$&$K$J$j$^$9!#(B +$B35N,%P%C%U%!$KI=<($9$Y$-$G$"$k$3$H$r<($9%7%s%\%k!#CM$,(B @code{nil} $B$@$H!"(B +$BB>$N%7%s%\%k$,$=$l$i$rM-8z$K$7$F$$$F$b!"%@%&%s%m!<%I$5$l$F$$$J$$5-;vMQ$N(B +$B%U%'!<%9$r;H$o$J$$$h$&$K$J$j$^$9!#(B @end table $B$$$C$?$sJ,N`$,:n$i$l$?$i!"J,N`$NL>A0$rJQ$($k$3$H$O$G$-$^$;$s!#(B @@ -19686,6 +19708,7 @@ Gnus $B$O0lF|$K0l2s%9%3%"$rIeGT$5$;$h$&$H$7$^$9!#Nc$($P!"$b$7(B gnus $B$r;MF| * Image Enhancements:: $B:G?7$N(B Emacs/XEmacs $B$O3($rI=<($G$-$k(B * Fuzzy Matching:: $BBg$-$JLJLS$C$F2?(B? * Thwarting Email Spam:: $BM>7W$J>&6HE*EE;R%a!<%k$rHr$1$kJ}K!(B +* Other modes:: $BB>$N%b!<%I$H$NAj8_:nMQ(B * Various Various:: $BK\Ev$K$$$m$$$m$J$b$N(B @end menu @@ -21285,8 +21308,8 @@ Commercial E-mail -- $BK>$^$l$J$$>&MQEE;R%a!<%k(B -- $B$NF,J8(B $B3d9g$N?M!9$,(B UCE $B$K1~Ez$9$k$@$1$G9-9p@\$N_I2a$OM-1W$K$J$jF@$^$9!#(B +Spam $B$N=|5n(B (filtering) $B$X$N:G$bC1=c$J@\$N(B +$B_I2a$OM-1W$K$J$jF@$^$9!#(B $B$b$&0l$D$NEE;R%a!<%k_I2a$X$N&MQ$H!"%U%j!<$JJ,;67?(B spam $B=hM}%7%9%F%`$,$"$j$^$9!#J,;67?(B spam $B=hM}(B $B$O!"$=$l<+BN$N4m81$b$O$i$s$G$$$^$9!#Nc$($P!"@5Ev$JAw?.o$=$NJ,@O$O!"$*$=$i$/C18l$NBP$+;0$D(B @@ -21334,7 +21363,18 @@ Spam $B_I2a$X$NE}7WE*$Jl9g$K$H$F$b$h$/F/$/$N$G$9$,!";~$H$7$F@5Ev$JEE;R%a!<%k(B $B$r(B spam $B$H$7$FJ,N`$7$F$7$^$&$3$H$,$"$j$^$9!#J,@O$K$O;~4V$,$+$+$j$^$9!#$9(B $B$Y$F$N%a%C%;!<%8$rJ,@O$7$J$1$l$P$J$j$^$;$s!#$=$7$F%f!<%6!<$O(B spam $B$rJ,@O(B -$B$9$k$?$a$N%G!<%?%Y!<%9$rMQ0U$7$J$1$l$P$J$j$^$;$s!#(B +$B$9$k$?$a$N%G!<%?%Y!<%9$rMQ0U$7$J$1$l$P$J$j$^$;$s!#%5!<%P!<$G$NE}7WJ,@O$O(B +$B?M5$$rF@$F$$$^$9!#$3$l$K$O!"%f!<%6!<$OC1$K%a!<%k$rFI$a$PNI$$$H$$$&D9=j$H!"(B +$B$7$+$7%5!<%P!<$K$=$l$,2a$C$F%a!<%k$rJ,N`$7$?$3$H$rEA$($k$N$,:$Fq$@$H$$$&(B +$BC;=j$,$"$j$^$9!#(B + +$BM>?M$N8@$rBT$?$:$H$b!"(Bspam $B$H$N@o$$$O3Z$G$O$"$j$^$;$s!#%^%^$+$i$NEE;R%a!<(B +$B%k$H%P%$%"%0%i9-9p$r6hJL$9$kKbK!$N%9%$%C%A$O$"$j$^$;$s!#?M!9$O(B +$BHs(B-spam $B$H(B spam $B$r6hJL$9$k$N$KF$$$F$$$k$H$$$&$N$K!#$=$l$O!"(B +spammers $B$,7|L?$K$=$l$i$r%^%^$@$H;W$o$;$h$&$H$7$F$$$k$N$,K\$_$^$9!#(B @node Anti-Spam Basics @subsection Spam $BB`<#$N4pAC(B @@ -21402,6 +21442,8 @@ Spam $B$KBP=h$9$k0l$D$NJ}K!$O!"(Bgnus $B$KA4$F$N(B spam $B$r(B @samp{spam} $B$3$H$OA4$/$"$j$^$;$s!#F@!9>uBV$G$9!#;d$N0U8+$H$7$F$O!"(B@code{From} $B%X%C%@!<(B $B$r56B$$7$FB8:_$7$J$$%I%a%$%s$KAw$i$;$k$N$O%-%?%J%$$G$9!#(B +$B$3$N$N$[$H$s$I$NF;6q$K$b4JC1$KE,9g$9$k$O(B $B$:$G$9!#(B +$B$3$N9`$O(B @code{spam.el} $B%Q%C%1!<%8$H$O4X78L5$$$3$H$KCm0U$7$F2<$5$$!#$=$l(B +$B$Ol9g$N9M$(J}$r<($7$^(B @@ -21496,11 +21542,11 @@ Spam $B$H@o$&$?$a$N?7$7$$5;K!$O!"%a%C%;!<%8$rAw?.$9$k:]$K$$$/$P$/$+$NIiC4(B $B$3$H$O!">.$5$J%Q!<%;%s%F!<%8$N(B spam $B$,$$$D$bAGDL$j$7$F$7$^$&$3$H$r0UL#$7(B $B$^$9!#$=$l$O$^$?!"$I$3$+$G$@$l$+$,$=$l$i$NF;6q$r99?7$9$k$?$a$K!"$?$/$5$s(B $B$N(B spam $B$rFI$^$J$1$l$P$J$i$J$$$3$H$r$b0UL#$7$^$9!#(BHashcash $B$O$=$l$r2sHr(B -$B$7$^$9$,!"Be$o$j$K$"$J$?$,DL?.$9$k$9$Y$F$N?M$?$A$,!"$=$N;EAH$_$r;H$C$F$$(B -$B$k$3$H$,I,MW$G$9!#$"$J$?$Or(B (dogmatic) $B$NFs$D$N$N$P(B -$B$i$P$i$J$b$N$h$j6/NO$J$N$G$9!#(B +$B$7$^$9$,!"Be$o$j$K$"$J$?$,EE;R%a!<%k$GO"Mm$9$k$9$Y$F$N?M$?$A$K!"$J$k$Y$/(B +$B$=$N;EAH$_$r;H$C$F$b$i$&I,MW$,$"$j$^$9!#$"$J$?$Or(B (dogmatic) $B$NFs$D$N$N$P$i$P$i$J$b$N$h$j6/NO$J$N$G$9!#(B @cindex X-Hashcash $B!V$$$/$P$/$+$NIiC4!W$H$O(B CPU $B;~4V$r>CHq$9$k$3$H$G!"6qBNE*$K$O0lDj?t$N%S%C(B @@ -21558,9 +21604,9 @@ Spam $B$H@o$&$?$a$N?7$7$$5;K!$O!"%a%C%;!<%8$rAw?.$9$k:]$K$$$/$P$/$+$NIiC4(B @file{spam.el} $B$N??$NL\E*$O(B spam $B8!=P$H_I2a$N$?$a$N41@)%;%s%?!<(B $B$r(B gnus $B$NCf$K;}$D$3$H$G$9!#$=$N$?$a$K(B @file{spam.el} $B$OFs$D$N$3$H$r9T$J(B -$B$$$^$9(B: $BF~$C$F$/$k%a!<%k$r_I2a$7!"(Bspam $B$^$?$O(B ham $B$H$7$FCN$i$l$k%a!<%k$r(B -$BJ,@O$9$k$3$H$G$9!#(B@dfn{Ham} $B$O(B @file{spam.el} $B$N$$$?$k=j$G(B spam $B$G$O$J$$(B -$B%a%C%;!<%8$r<($9$?$a$K;H$&L>A0$G$9!#(B +$B$$$^$9(B: $B?7$7$$%a!<%k$r_I2a$7!"(Bspam $B$^$?$O(B ham $B$H$7$FCN$i$l$k%a!<%k$rJ,@O(B +$B$9$k$3$H$G$9!#(B@dfn{Ham} $B$O(B @file{spam.el} $B$N$$$?$k=j$G(B spam $B$G$O$J$$%a%C(B +$B%;!<%8$r<($9$?$a$K;H$&L>A0$G$9!#(B $BBh0l$K!"(B@code{spam.el} $B$r<+F0FI$_9~$_(B (autoload) $B$7$F(B @code{spam.el} $B$N(B $B3F%U%C%/$r%$%s%9%H!<%k$9$k$?$a$K!"4X(B @@ -21576,6 +21622,12 @@ spam filtering}) $B$N$G$"$l$P!"$=$l$r(B @code{spam-initialize} $B$h$jA0(B $B$G$O(B @file{spam.el} $B$rFI$_9~$`$H2?$,5/$-$k$G$7$g$&$+(B? +$BBh0l$K(B @code{spam-initialize} $B$K$h$C$F$$$/$D$+$N%U%C%/$,F0:n$9$k$h$&$K$J(B +$B$j$^$9!#(B@code{spam-stat} $B$,$=$l$i$N%G!<%?%Y!<%9$r%;!<%V$G$-$k$h$&$K$9$k(B +$B%U%C%/$H!"%0%k!<%W$KF~$k$H$-$HH4$1$k$H$-$K6=L#?<$$J*;v$r5/$3$9%U%C%/$,$"(B +$B$j$^$9!#%$%Y%s%H$N%7!<%1%s%9$K$D$$$F$N>\:Y$O8e=R(B (@pxref{Spam ELisp +Package Sequence of Events})$B!#(B + $B0J2<$N%-!<%\!<%IL?Na$,;H$($k$h$&$K$J$j$^$9(B: @table @kbd @@ -21611,6 +21663,231 @@ Spam $B5-;v$r8+$?$H$-$O$$$D$G$b!"%0%k!<%W$rH4$1$kA0$KI,$:(B @kbd{M-d} $B$G$=$ $B$-$k$h$&$K$J$j$^$9!#(B@samp{spam} $BJQ?t%0%k!<%W$K$D$$(B $B$F(B @code{customize-group} $B$r;n$7$F$_$F2<$5$$!#(B +@menu +* Spam ELisp Package Sequence of Events:: +* Spam ELisp Package Filtering of Incoming Mail:: +* Spam ELisp Package Global Variables:: +* Spam ELisp Package Configuration Examples:: +* Blacklists and Whitelists:: +* BBDB Whitelists:: +* Gmane Spam Reporting:: +* Anti-spam Hashcash Payments:: +* Blackholes:: +* Regular Expressions Header Matching:: +* Bogofilter:: +* ifile spam filtering:: +* spam-stat spam filtering:: +* SpamOracle:: +* Extending the Spam ELisp package:: +@end menu + +@node Spam ELisp Package Sequence of Events +@subsubsection Spam ELisp Package Sequence of Events +@cindex spam filtering +@cindex spam filtering sequence of events +@cindex spam + +$BI,$:$3$N9`$rFI$s$G2<$5$$!#(B@code{spam.el} $B$NF0:n$rM}2r$9$k$?$a$K!#FI$_Ht(B +$B$P$7!"B.FI!"$NItJ,$N4V$KFs$D$N@\E@(B +$B$,$"$j$^$9(B: spam $B$N$?$a$N?7Ce%a!<%k$N8!::!"$*$h$S%0%k!<%W$rH4$1$k>l9g$G(B +$B$9!#(B + +$B?7Ce%a!<%k$NH$7$F2<$5$$!#(B + +@code{nntp} $B$N$h$&$J%P%C%/%(%s%I$K$O$d$C$FMh$k%a!<%k$N%9%W!<%k$,L5$$$N$G!"(B +$BBe$o$j$N5!9=$r;H$o$J$1$l$P$J$j$^$;$s!#$3$l$O!"%5!<%P!<$,$d$C$FMh$?%a!<%k(B +$B$NJ,3d$rC4Ev$7$F$$$F!"(BGnus $B$,$5$i$KJ,3d$r9T$J$o$J$$%P%C%/%(%s%I$G$b5/$-(B +$B$k$+$b$7$l$^$;$s!#%0%k!<%W%Q%i%a!<(B +$B%?(B @code{spam-autodetect} $B$H(B @code{spam-autodetect-methods} ($BIaDL(B @kbd{G +c} and @kbd{G p} $B$GA`:n2D(B)$B!"$=$7$FBP1~$9$kJQ(B +$B?t(B @code{gnus-spam-autodetect-methods} $B$*$h(B +$B$S(B @code{gnus-spam-autodetect-methods} (@kbd{M-x customize-variable} $B$G(B +$BA`:n2D(B) $B$G$9!#(B + +@code{spam-autodetect} $B$,;H$o$l$k>l9g!"$=$l$O%0%k!<%W$KF~$k=hM}$K0z$C$+(B +$B$1$i$l$^$9!#$7$?$,$C$F!"$^$@FI$^$l$?$3$H$,L5$$!"$^$?$OL$FI$N5-;v$,$"$k%0(B +$B%k!<%W$KF~$k$3$H$O!"$d$C$FMh$?%a!<%k$N8!::$NBe$o$j$K$J$j$^$9!#$^$@FI$^$l(B +$B$?$3$H$,L5$$5-;v!"$^$?$O$9$Y$F$NL$FI$N5-;v$,=hM}$5$l$k$+$I$&$+$O!"(B +@code{spam-autodetect-recheck-messages} $B$K$h$C$F7h$^$j$^$9!#(Bt $B$K@_Dj$5$l(B +$B$k$H!"L$FI$N%a%C%;!<%8$,:F8!::$5$l$^$9!#(B + +@code{spam-autodetect} $B$O!"%f!<%6$K(B spam $B_I2a$NB?>/$N4IM}$rB(9oG'$a$^$9!#(B +$B%f!<%6$O3F%0%k!<%W$N(B spam $B$No$N(B spam $B$H$7$F(B +$B=hM}$5$l$^$9!#H`$,(B @code{spam-split} $B$G9T$J$C$F$bNI$$$h$&$K!"%f!<%6$O8!(B +$B::$N(B @emph{sequence} $B$r$h$j>/$J$/4IM}$7$^$9!#(B + +$B?7$?$KJ,3d$5$l$?%a!<%k$,%0%k!<%W$KF~$C$?!"$^$?$O%a%C%;!<%8$,(B ham $B$^$?(B +$B$O(B spam $B$H$7$F<+F08!CN$5$l$?>l9g!"8e$K(B spam $B=hM}$r9T$J$o$;$k$?$a$K!"$=$l(B +$B$i$N%0%k!<%W$r(B ($BI,MW$J$iF~$C$?8e$G(B) $BH4$1=P$J$/$F$O$J$j$^$;$s!#%0%k!<%W$,(B +$B$=$N(B @code{spam-content} $B%Q%i%a!<%?(B (@pxref{Spam ELisp Package Global +Variables}) $B$K4p$E$$$F(B ham $B$^$?$O(B spam $B%0%k!<%W$H9M$($i$l$k$+!"L$J,N`$+(B +$B$I$&$+$O=EMW$G$9!#(BSpam $B%0%k!<%W$O!"$=$3$KF~$k$H!"$^$@FI$^$l$?$3$H$,L5$$!"(B +$B$^$?$OL$FI$N5-;v$K(B spam $B$N0u$,IU$1$i$l$k(B ($BJQ(B +$B?t(B @code{spam-mark-only-unseen-as-spam} $B$K0MB8(B) $B$H$$$&DI2C$NFC@-$r;}$A$^(B +$B$9!#$3$N$h$&$K!"J,3d$5$l$F(B spam $B%0%k!<%W$KF~$l$i$l$?5-;v$K$O!"$"$J$?$,$=(B +$B$N%0%k!<%W$KF~$C$?$H$-$K<+F0E*$K(B spam $B$N0u$,IU$1$i$l$^$9!#(B + +$B$7$?$,$C$F!"%0%k!<%W$rH4$1$k$H(B @code{spam-processors} $B$,(B ($B2?$G$"$l@_Dj$5(B +$B$l$F$$$l$P(B) $BE,MQ$5$l!"=hM}$5$l$?%a!<%k$O5-;v$NJ,N`$K4p$E$$(B +$B$F(B @code{ham-process-destination} $B$+(B @code{spam-process-destination} $B$K(B +$B0\F0$5$;$i$l$^$9!#(B@code{ham-process-destination} $B$^$?(B +$B$O(B @code{spam-process-destination} $B$N$I$A$i$+$,(B ($BLuCp(B: $B0\F0@h$H$7$F(B) $BE,(B +$B@Z$G!"$=$l$i$,(B nil $B$@$C$?>l9g!"$=$N5-;v$O8=:_$N%0%k!<%W$K;D$5$l$^$9!#(B + +$B$I$l$+$N%0%k!<%W$G(B spam $B$,8+$D$+$C$?$i(B ($BHs(B-spam $B%0%k!<%W$K8B$C(B +$B$F(B @code{spam-move-spam-nonspam-groups-only} $B$GJQ992D(B)$B!"%0%k!<%W$rH4$1$k(B +$B$H$-$K3h$-$F$$$k(B @code{spam-processors} (@pxref{Spam ELisp Package +Global Variables}) $B$G=hM}$5$l$^$9!#$5$i$K!"8e$G%H%l!<%K%s%0$^$?$O:o=|$9(B +$B$k$?$a$K!"(Bspam $B$O(B @code{spam-process-destination} (@pxref{Spam ELisp +Package Global Variables}) $B$K0\F0$5$;$i$l$^$9!#(BSpam $B$,:F;0=hM}$5$l$k$3$H(B +$B$rK>$^$J$$$J$i$P!"(B@file{gnus-registry.el} $B%Q%C%1!<%8$rFI$_9~$_!"(B +@code{spam-log-to-registry} $BJQ?t$rM-8z$K$7$J$1$l$P$J$j$^$;$s!#$3$N$h$&(B +$B$K(B spam $B$O$I$3$G$b8!CN$5$l=hM}$5$l$^$9!#$=$l$O$[$H$s$I$N?M!9$,K>$`$b$N$G(B +$B$9!#(B@code{spam-process-destination} $B$,(B nil $B$@$C$?>l9g!"(Bspam $B$K$O4|8B@Z$l(B +$B>C5n$N0u$,IU$1$i$l$^$9!#IaDL$=$l$O@5$7$$9T$J$$$G$9!#(B + +Spam $B$,0\F0$G$-$J$$>l9g(B ($BNc$($P(B NNTP $B$N$h$&$JFI$_9~$_@lMQ%P%C%/%(%s%I$N(B +$B$?$a$K(B)$B!"$=$l$O%3%T!<$5$l$^$9!#(B + +Ham $B%0%k!<%W$G(B @code{ham-marks} $B%Q%i%a!<%?$G7hDj$5$l$k(B ham $B%a!<%k$,8+$D(B +$B$+$C$?$i!"%0%k!<%W$rH4$1$k$H$-$K3h$-$F$$$k(B ham @code{spam-processor} $B$G(B +$B=hM}$5$l$^$9!#$5$i$K!"JQ?t(B @code{spam-process-ham-in-spam-groups} $B$*$h(B +$B$S(B @code{spam-process-ham-in-nonham-groups} $B$K$h$C$F!"$I$3$G8+$D$+$C(B +$B$?(B ham $B$G$b=hM}$G$-$k$h$&$KF0:n$rJQ99$9$k$3$H$,$G$-$^$9!#(BHam $B$,:F;0=hM}(B +$B$5$l$k$3$H$rK>$^$J$$$J$i$P!"(B@file{gnus-registry.el} $B%Q%C%1!<%8$rFI$_9~$_!"(B +@code{spam-log-to-registry} $BJQ?t$rM-8z$K$7$J$1$l$P$J$j$^$;$s!#$3$N$h$&(B +$B$K(B ham $B$OI,MW$J>l9g$@$18!CN$5$l=hM}$5$l$^$9!#$=$l$O$[$H$s$I$N?M!9$,K>$`(B +$B$b$N$G$9!#$3$l$K4X$9$k>\:Y$O(B @xref{Spam ELisp Package Configuration +Examples}. + +Ham $B$,0\F0$G$-$J$$>l9g(B ($BNc$($P(B NNTP $B$N$h$&$JFI$_9~$_@lMQ%P%C%/%(%s%I$N$?(B +$B$a$K(B)$B!"$=$l$O%3%T!<$5$l$^$9!#(B + +$B$3$l$i$9$Y$F$,$o$1$,$o$+$i$J$/$F$b!"?4G[$OL5MQ$G$9(B ($BLuCm(B: $B$G$bLuJ8$,@53N(B +$B$G$O$J$$$+$b$7$l$J$$$N$G!"JQ$@$H;W$C$?$i86J8$r;2>H$N$3$H(B :-p)$B!#$9$0$K$=(B +$B$l$O?@7P%$%s%?!<%U%'!<%9>e$K(B Lisp $B<0$r%?%$%W$9$k$h$&$K<+A3$J$3$H$K$J$j$^(B +$B$9(B... $B$(!+$4$a$s!"$=$l$K$O$^$@(B 50$BG/Aa$$$G$9$M!#$?$@;d$?$A$r?.Mj$7$F2<$5(B +$B$$!#$=$l$OA0$N%0%k!<%W$KAw$j$^$9!#%G%#(B +$B%U%)%k%H$G$O$=$N%0%k!<%WL>$O(B @samp{spam} $B$G$9$,!"(B +@code{spam-split-group} $B$r%+%9%?%^%$%:$9$k$3$H$,2DG=$G$9!#(B +@code{spam-split-group} $B$NFbMF$,(B @emph{$B@dBP(B} $B%0%k!<%WL>$G$"$k$3$H!"Nc$((B +$B$P(B @samp{your-server} $B$H$$$&(B @code{nnimap} $B%5!<%P!<$N>l9g$O!"(B +@samp{spam} $BJQ?t$,:G=*E*$K(B @samp{nnimap+your-server:spam} $B$K$J$k$3$H$r3N(B +$B$+$a$F2<$5$$!#=>$C$F(B @samp{nnimap+server:spam} $B$H$$$&CM$O4V0c$$$G!"$=$l(B +$B$O$KBP$7(B +$B$F42MF$+$I$&$+$K0MB8$9$k$G$7$g$&!#(B + +$B$^$?!"(B@code{spam-split} $B$K%Q%i%a!<%?!"Nc$((B +$B$P(B @samp{spam-use-regex-headers} $B$^$?$O(B @samp{"maybe-spam"} $B$rM?$($k$3$H(B +$B$b$G$-$^$9!#$J$<$3$l$,M-MQ$J$N$G$7$g$&$+(B? + +$B$3$l$i$N(B (@code{spam-use-regex-headers} $B$H(B @code{spam-use-blackholes} $B$N(B +$B@_Dj$K$h$k(B) $BJ,3d$N5,B'$r8+$F2<$5$$(B: + +@example + nnimap-split-fancy '(| + (any "ding" "ding") + (: spam-split) + ;; default mailbox + "mail") +@end example + +$B$5$F!"LdBj$O(B ding $B08$F$N%a%C%;!<%8$r$9$Y$F(B ding $B%U%)%k%@!<$KF~$l$h$&$H$7(B +$B$F$$$k$3$H$G$9!#$G$b$=$l$O(B ding $B%a!<%j%s%0%j%9%H08$F$KAw$i$l$?(B spam ($BNc(B +$B$($P(B SpamAssassin $B$H(B @code{spam-use-regex-headers} $B$K$h$C$F8!=P$5$l(B +$B$k(B spam) $B$r5v$7$F$7$^$&$G$7$g$&!#0lJ}!"$$$/$D$+$N(B ding $B08$F$N%a%C%;!<%8(B +$B$O%V%i%C%/%[!<%k%j%9%H$K:\$C$F$$$k%a!<%k%5!<%P!<$+$i$d$C$FMh$k$N$G!"(B +ding $B$N5,B'$h$jA0$K(B @code{spam-split} $B$rH/F0$9$k$3$H$,$G$-$^$;$s!#(B + +SpamAssassin $B%X%C%@!<$K(B ding $B$N5,B'$rCV$-49$($5$;$k$3$H$O$G$-$^$9$,!"B>(B +$B$N$9$Y$F$N(B @code{spam-split} $B$N5,B'(B ($BBhFs$N@55,I=8=%X%C%@!<8!::$r4^(B +$B$`(B) $B$O(B ding $B$N5,B'$N8e$K$J$C$F$7$^$&$G$7$g$&!#(B + +@example + nnimap-split-fancy '(| +;;; spam-use-regex-headers $B$G8!=P$5$l$?$9$Y$F$N(B spam $B$O(B "regex-spam" $B$X!#(B + (: spam-split "regex-spam" 'spam-use-regex-headers) + (any "ding" "ding") +;;; spam-split $B$G8!=P$5$l$?B>$N$9$Y$F$N(B spam $B$O(B spam-split-group $B$X!#(B + (: spam-split) + ;; default mailbox + "mail") +@end example + +$B4pK\E*$K!"$3$l$OFC$K$"$J$?$NI,MW$K0MB8$7$?FCDj$N(B @code{spam-split} $B8!(B +$B::$r5/F0$5$;!"$=$l$i$N8!::$N7k2L$OFCDj$N(B spam $B%0%k!<%W$r;X$7<($7$^$9!#$9(B +$B$Y$F$N%a!<%k$r$9$Y$F$N(B spam $B%F%9%H$KEj$2$kI,MW$O$"$j$^$;$s!#$3$l$,NI$$JL(B +$B$NM}M3$O!"5,B'$r;}$C$F$$$k%a!<%j%s%0%j%9%H$X$N%a%C%;!<%8$KBP$7$F!";q8;=8(B +$BLsE*$J%V%i%C%/%[!<%k!&%A%'%C%/$rr7o(B +$BIU$-$NFI$_9~$_$,9T$o$l$k$+$i$G$9!#(B + +@emph{@acronym{IMAP} $BMxMQl9g$O!"%V!<(B +$B%kJQ?t(B @code{nnimap-split-download-body} $B$,@_Dj$5$l$kI,MW$,$"$j$^$9!#%G%#(B +$B%U%)%k%H$G$O!"(Bnnimap $B%P%C%/%(%s%I$O%a%C%;!<%8%X%C%@!<$@$1$rpJs(B +$B$rF@$k(B) $B$r;H$&$J$i$P!"$3$NJQ?t$r@_Dj$7$J$1$l$P$J$j$^$;$s!#$=$l(B +$B$O(B @acronym{IMAP} $B$NF0:n$rCY$/$7$F$7$^$$!"%f!<%6$rBeI=$9$k$N$K$U$5$o$7$$(B +$B7hDj$G$O$J$$$N$G!"%G%#%U%)%k%H$G$O@_Dj$5$l$F$$$^$;$s!#(B + +@xref{Splitting in IMAP}. + +@emph{TODO: spam.el $B$O$9$Y$F$NE}7W%G!<%?%Y!<%9$r%H%l!<%K%s%0$9$k$?$a$N0l(B +$BDjITJQ$NJ}K!$rDs6!$9$kI,MW$,$"$j$^$9!#$$$/$D$+$O$=$N5!G=$r<+A0$G;}$C$F$$(B +$B$^$9$,!"$=$&$G$J$$$b$N$b$"$j$^$9!#(B} + +@node Spam ELisp Package Global Variables +@subsubsection Spam ELisp Package Global Variables +@cindex spam filtering +@cindex spam filtering variables +@cindex spam variables +@cindex spam + @vindex gnus-spam-process-newsgroups Ham $B%W%m%;%C%5!<$H(B spam $B%W%m%;%C%5!<$N35G0$OHs>o$K=EMW$G$9!#$"$k%0%k!<%W(B $B$N(B ham $B%W%m%;%C%5!<$H(B spam $B%W%m%;%C%5!<$O!"(B@code{spam-process} $B%0%k!<%W(B @@ -21621,6 +21898,10 @@ ham $B%W%m%;%C%5!<$OHs(B spam (@emph{ham}) $B$G$"$k$3$H$,$o$+$C$F$$$k%a!<%k$r $B$N(B spam $B$,8!=P$5$l$k$h$&$K!"(Bspam $B$G$"$k$3$H$,$o$+$C$F$$$k%a!<%k$r\$7$/$O8D!9$N(B spam $B%W%m%;%C(B +$B%5!<$N9`$r;2>H$7$F2<$5$$!#(B + @vindex gnus-spam-newsgroup-contents gnus $B$O$"$J$?$,e$N(B spam $B%0(B $B%k!<%W$K(B spam $B5-;v$r=8$a$F!"JQ?t(B @code{spam-junk-mailgroups} $B$rE,@Z$K@_(B @@ -21667,12 +21948,17 @@ Spam $B%0%k!<%W$G$O!"%G%#%U%)%k%H$G$9$Y$F$N%a%C%;!<%8$,(B spam $B$G$"$k$H2rC5n(B (deleted)$B!"4{FI(B (read)$B!"(B $B:o=|(B (killed)$B!"(Bkill $B%U%!%$%k$K$"$k$b$N(B (kill-filed) $B$*$h$SDc$$%9%3(B -$B%"(B (low-score) $B0u$N%j%9%H$G$9!#(B +$B%"(B (low-score$B!"4{FI$@$1$l$I$b(B spam $B$G$O$J$$$H9M$($k(B) $B0u$N%j%9%H$G$9!#(B +Ham $B0u$N%j%9%H$K2D;k(B (tick) $B0u$r4^$a$k$3$H$,LrN)$D$3$H$b$"$j$^$9!#L$FI0u(B +$B$r(B ham $B0u$K$9$k$3$H$O!"DL>o$=$l$,J,N`$,B-$j$F$$$J$$$3$H$rI=$9$N$G!"4+$a(B +$B$i$l$^$;$s!#$7$+$7!"$"$J$?$,$=$l$r9T$J$&$3$H$O$G$-$k$7!";d$?$A$KITK~$O$"(B +$B$j$^$;$s!#(B @end defvar @defvar spam-marks $B$3$N%0%k!<%W$^$?$O%H%T%C%/%Q%i%a!<%?$r(B spam $B$G$"$k$H2r!$l$N(B $B%K%e!<%9%0%k!<%W$N;EMM@_Dj$O(B @code{(REGEXP PROCESSOR)} $B$N7A<0$NCM$r;}$A(B -$B$^$9!#:G=*E*$J>l=j$O%0%k!<%WL>$G$9!#(B@code{ham-process-destination} $B%Q%i(B -$B%a!<%?$,@_Dj$5$l$F$$$J$$$H!"(Bham $B5-;v$O$=$3$KN1$aCV$+$l$^$9!#(B +$B$^$9!#:G=*E*$J>l=j$O(B ($BC1?t$^$?$OJ#?t$N(B) $B%0%k!<%WL>$G$9!#(B +@code{ham-process-destination} $B%Q%i%a!<%?$,@_Dj$5$l$F$$$J$$$H!"(Bham $B5-;v(B +$B$O$=$3$KN1$aCV$+$l$^$9!#(B @code{spam-mark-ham-unread-before-move-from-spam-group} $B%Q%i%a!<%?$,@_Dj(B $B$5$l$F$$$k$H!"(Bham $B5-;v$O0\F0$5$;$i$l$kA0$KL$FI$N0u$,IU$1$i$l$^$9!#(B +Ham $B$,0\F0$G$-$J$$>l9g(B ($BNc$($P(B NNTP $B$N$h$&$JFI$_9~$_@lMQ%P%C%/%(%s%I$N$?(B +$B$a$K(B)$B!"$=$l$O%3%T!<$5$l$^$9!#(B + +$B%0%k!<%W$^$?$O@55,I=8=$4$H$KJ#?t$N0\F0@h$r;XDj$G$-$k$3$H$KCmL\$7$F2<$5$$(B! +$B$3$l$K$h$C$F(B ham $B5-;v$r@55,$N%a!<%k%0%k!<%W$H(B @emph{ham $B%H%l!<%K%s%0(B} $B%0(B +$B%k!<%W$KAw$k$3$H$,$G$-$^$9!#(B + @emph{Ham} $B%0%k!<%W$rH4$1$k$H$-$K!"(Bham $B0u$,IU$$$F$$$k$9$Y$F$N5-;v(B $B$O(B ham $B%W%m%;%C%5!<$KAw$i$l!"$=$l$i$r(B spam $B$G$O$J$$I8K\$H$7$F3X=,$7$^$9!#(B @@ -21725,122 +22019,206 @@ Spam $B%0%k!<%W$G$O!"%G%#%U%)%k%H$G$9$Y$F$N%a%C%;!<%8$,(B spam $B$G$"$k$H2r$l(B -$B$N%K%e!<%9%0%k!<%W$N;EMM@_Dj$O(B @code{(REGEXP PROCESSOR)} $B$N7A<0$NCM$r;}(B -$B$A$^$9!#:G=*E*$J>l=j$O%0%k!<%WL>$G$9!#(B@code{spam-process-destination} $B%Q(B -$B%i%a!<%?$,@_Dj$5$l$F$$$J$$$H!"(Bspam $B5-;v$OC1$K4|8B@Z$l>C5n$5$l$^$9!#(B - -$BF~$C$F$/$k%a!<%k$r_I2a$9$kL\E*$G(B @file{spam.el} $B$r;H$&$K$O!"FC5iJ,3d%j%9(B -$B%H(B @code{nnmail-split-fancy} $B$^$?$O(B @code{nnimap-split-fancy} $B$K0J2<$rDI(B -$B2C$7$J$1$l$P$J$j$^$;$s(B: +$B$N%K%e!<%9%0%k!<%W$N;EMM@_Dj$O(B @code{(REGEXP GROUP)} $B$N7A<0$NCM$r;}$A$^(B +$B$9!#:G=*E*$J>l=j$O(B ($BC1?t$^$?$OJ#?t$N(B) $B%0%k!<%WL>$G$9!#(B +@code{spam-process-destination} $B%Q%i%a!<%?$,@_Dj$5$l$F$$$J$$$H!"(Bspam $B5-(B +$B;v$OC1$K4|8B@Z$l>C5n$5$l$^$9!#%0%k!<%WL>$O40A47A$G$"$k$3$H!"$9$J$o$A%0%k!<(B +$B%W%P%C%U%!$G%0%k!<%WL>$NA0$K(B @samp{nntp:servername} $B$N$h$&$J$b$N$,8+$($k(B +$B>l9g$O!"$3$3$G$b$=$l$r;H$&I,MW$,$"$j$^$9!#(B + +Spam $B$,0\F0$G$-$J$$>l9g(B ($BNc$($P(B NNTP $B$N$h$&$JFI$_9~$_@lMQ%P%C%/%(%s%I$N(B +$B$?$a$K(B)$B!"$=$l$O%3%T!<$5$l$^$9!#(B + +$B%0%k!<%W$^$?$O@55,I=8=$4$H$KJ#?t$N0\F0@h$r;XDj$G$-$k$3$H$KCmL\$7$F2<$5$$(B! +$B$3$l$K$h$C$F(B spam $B5-;v$r@55,$N%a!<%k%0%k!<%W(B +$B$H(B @emph{spam $B%H%l!<%K%s%0(B} $B%0%k!<%W$KAw$k$3$H$,$G$-$^$9!#(B + +@vindex spam-log-to-registry +Ham $B$H(B spam $B$K4X$9$kLdBj$O!"(BGnus $B$,%G%#%U%)%k%H$G$O$3$N=hM}$rDI@W$7$F$/(B +$B$l$J$$$3$H$G$9!#=hM}$5$l$?5-;v$rDI@W$7!"$+$DJ#?t2s$K$o$?$C$F=hM}$9$k$3$H(B +$B$r2sHr$9$k$?$a$K(B @code{spam.el} $B$,(B @code{gnus-registry.el} $B$r;H$&$h$&$K!"(B +@code{spam-log-to-registry} $BJQ?t$rM-8z$K$7$F$/$@$5$$!#EPO??t$r@)8B$9$k$H!"(B +$B@)8B$,L5$$>l9g$N$h$&$KF0:n$7$J$$$3$H$r3P$($F$*$$$F2<$5$$!#(B + +@vindex spam-mark-only-unseen-as-spam +Spam $B%0%k!<%W$K$"$k!"$^$@FI$^$l$?$3$H$,L5$$5-;v$@$1$K(B spam $B$N0u$rIU$1$?(B +$B$$>l9g$O!"$3$NJQ?t$r%;%C%H$7$F2<$5$$!#%G%#%U%)%k%H$G$O%;%C%H$5$l$F$$$^$9!#(B +$B$3$l$r(B nil $B$K$9$k$H!"L$FI$N5-;v$K$b(B spam $B0u$,IU$1$i$l$^$9!#(B + +@vindex spam-mark-ham-unread-before-move-from-spam-group +Ham $B$,(B spam $B%0%k!<%W$+$i0\F0$5$l$kA0$K0u$r>C$7$?$$>l9g$O!"$3$NJQ?t$r%;%C(B +$B%H$7$F2<$5$$!#$3$l$O(B ham $B$K0u$rIU$1$k$?$a$K2D;k(B (tick) $B0u$N$h$&$J$b$N$r(B +$B;H$&>l9g$K!"$H$F$bLr$KN)$A$^$9!#5-;v$O$"$?$+$b$=$l$,%a!<%k%5!<%P$r=P$?$P(B +$B$+$j$N$h$&$K!"L50u$G(B ham $B=hM}>l$KCV$+$l$k$G$7$g$&!#(B + +@vindex spam-autodetect-recheck-messages +$B$3$NJQ?t$O(B @code{spam.el} $B$,(B spam $B$N<+F08!CN$r9T$J$&>l9g$K!"$^$@FI$^$l$?(B +$B$3$H$,L5$$5-;v$@$1!"$^$?$O$9$Y$F$NL$FI5-;v$N(B spam $B8!::$r9T$J$&$+$I$&$+$r(B +$B;X<($7$^$9!#$3$l$O$=$N$^$^$K$7$F$*$/$3$H$r4+$a$^$9!#(B + +@node Spam ELisp Package Configuration Examples +@subsubsection Spam ELisp Package Configuration Examples +@cindex spam filtering +@cindex spam filtering configuration examples +@cindex spam configuration examples +@cindex spam @example -(: spam-split) -@end example - -$BFC5iJ,3d$O!"%a!<%k$N -@code{spam-split} $B4X?t$OF~$C$F$/$k%a!<%k$r=hM}$7!"(Bspam $B$H;W$o$l$k%a!<%k(B -$B$rJQ?t(B @code{spam-split-group} $B$GM?$($i$l$kL>A0$N%0%k!<%W$KAw$j$^$9!#%G%#(B -$B%U%)%k%H$G$O$=$N%0%k!<%WL>$O(B @samp{spam} $B$G$9$,!"(B -@code{spam-split-group} $B$r%+%9%?%^%$%:$9$k$3$H$,2DG=$G$9!#(B -@code{spam-split-group} $B$NFbMF$,(B @emph{$B@dBP(B} $B%0%k!<%WL>$G$"$k$3$H!"Nc$((B -$B$P(B @samp{your-server} $B$H$$$&(B @code{nnimap} $B%5!<%P!<$N>l9g$O!"(B -@samp{spam} $BJQ?t$,:G=*E*$K(B @samp{nnimap+your-server:spam} $B$K$J$k$3$H$r3N(B -$B$+$a$F2<$5$$!#=>$C$F(B @samp{nnimap+server:spam} $B$H$$$&CM$O4V0c$$$G!"$=$l(B -$B$O$KBP$7(B -$B$F42MF$+$I$&$+$K0MB8$9$k$G$7$g$&!#(B - -$B$^$?!"(B@code{spam-split} $B$K%Q%i%a!<%?!"Nc$((B -$B$P(B @samp{spam-use-regex-headers} $B$^$?$O(B @samp{"maybe-spam"} $B$rM?$($k$3$H(B -$B$b$G$-$^$9!#$J$<$3$l$,M-MQ$J$N$G$7$g$&$+(B? - -$B$3$l$i$N(B (@code{spam-use-regex-headers} $B$H(B @code{spam-use-blackholes} $B$N(B -$B@_Dj$K$h$k(B) $BJ,3d$N5,B'$r8+$F2<$5$$(B: +;; for gnus-registry-split-fancy-with-parent and spam autodetection +;; see gnus-registry.el for more information +(gnus-registry-initialize) +(spam-initialize) -@example +;; I like control-S for marking spam +(define-key gnus-summary-mode-map "\C-s" 'gnus-summary-mark-as-spam) + +(setq + spam-log-to-registry t ;; for spam autodetection + spam-use-BBDB t + spam-use-regex-headers t ; catch X-Spam-Flag (SpamAssassin) + ;; all groups with "spam" in the name contain spam + gnus-spam-newsgroup-contents '(("spam" gnus-group-spam-classification-spam)) + ;; see documentation for these + spam-move-spam-nonspam-groups-only nil + spam-mark-only-unseen-as-spam t + spam-mark-ham-unread-before-move-from-spam-group t + nnimap-split-rule 'nnimap-split-fancy + ;; understand what this does before you copy it to your own setup! nnimap-split-fancy '(| + ;; trace references to parents and put in their group + (: gnus-registry-split-fancy-with-parent) + ;; this will catch server-side SpamAssassin tags + (: spam-split 'spam-use-regex-headers) (any "ding" "ding") + ;; note that spam by default will go to "spam" (: spam-split) ;; default mailbox - "mail") -@end example + "mail")) -$B$5$F!"LdBj$O(B ding $B08$F$N%a%C%;!<%8$r$9$Y$F(B ding $B%U%)%k%@!<$KF~$l$h$&$H$7(B -$B$F$$$k$3$H$G$9!#$G$b$=$l$O(B ding $B%a!<%j%s%0%j%9%H08$F$KAw$i$l$?(B spam ($BNc(B -$B$($P(B SpamAssassin $B$H(B @code{spam-use-regex-headers} $B$K$h$C$F8!=P$5$l(B -$B$k(B spam) $B$r5v$7$F$7$^$&$G$7$g$&!#0lJ}!"$$$/$D$+$N(B ding $B08$F$N%a%C%;!<%8(B -$B$O%V%i%C%/%[!<%k%j%9%H$K:\$C$F$$$k%a!<%k%5!<%P!<$+$i$d$C$FMh$k$N$G!"(B -ding $B$N5,B'$h$jA0$K(B @code{spam-split} $B$rH/F0$9$k$3$H$,$G$-$^$;$s!#(B +;; my parameters, set with `G p' -SpamAssassin $B%X%C%@!<$K(B ding $B$N5,B'$rCV$-49$($5$;$k$3$H$O$G$-$^$9$,!"B>(B -$B$N$9$Y$F$N(B @code{spam-split} $B$N5,B'(B ($BBhFs$N@55,I=8=%X%C%@!<8!::$r4^(B -$B$`(B) $B$O(B ding $B$N5,B'$N8e$K$J$C$F$7$^$&$G$7$g$&!#(B +;; all nnml groups, and all nnimap groups except +;; "nnimap+mail.lifelogs.com:train" and +;; "nnimap+mail.lifelogs.com:spam": any spam goes to nnimap training, +;; because it must have been detected manually -@example - nnimap-split-fancy '(| -;;; spam-use-regex-headers $B$G8!=P$5$l$?$9$Y$F$N(B spam $B$O(B "regex-spam" $B$X!#(B - (: spam-split "regex-spam" 'spam-use-regex-headers) - (any "ding" "ding") -;;; spam-split $B$G8!=P$5$l$?B>$N$9$Y$F$N(B spam $B$O(B spam-split-group $B$X!#(B - (: spam-split) - ;; default mailbox - "mail") -@end example +((spam-process-destination . "nnimap+mail.lifelogs.com:train")) -$B4pK\E*$K!"$3$l$OFC$K$"$J$?$NI,MW$K0MB8$7$?FCDj$N(B @code{spam-split} $B8!(B -$B::$r5/F0$5$;!"$=$l$i$N8!::$N7k2L$OFCDj$N(B spam $B%0%k!<%W$r;X$7<($7$^$9!#$9(B -$B$Y$F$N%a!<%k$r$9$Y$F$N(B spam $B%F%9%H$KEj$2$kI,MW$O$"$j$^$;$s!#$3$l$,NI$$JL(B -$B$NM}M3$O!"5,B'$r;}$C$F$$$k%a!<%j%s%0%j%9%H$X$N%a%C%;!<%8$KBP$7$F!";q8;=8(B -$BLsE*$J%V%i%C%/%[!<%k!&%A%'%C%/$rr7o(B -$BIU$-$NFI$_9~$_$,9T$o$l$k$+$i$G$9!#(B +;; only some NNTP groups, where I want to autodetect spam +((spam-autodetect . t)) -@emph{@acronym{IMAP} $BMxMQl9g$O!"%V!<(B -$B%kJQ?t(B @code{nnimap-split-download-body} $B$,@_Dj$5$l$kI,MW$,$"$j$^$9!#%G%#(B -$B%U%)%k%H$G$O!"(Bnnimap $B%P%C%/%(%s%I$O%a%C%;!<%8%X%C%@!<$@$1$rpJs(B -$B$rF@$k(B) $B$r;H$&$J$i$P!"$3$NJQ?t$r@_Dj$7$J$1$l$P$J$j$^$;$s!#$=$l(B -$B$O(B @acronym{IMAP} $B$NF0:n$rCY$/$7$F$7$^$$!"%f!<%6$rBeI=$9$k$N$K$U$5$o$7$$(B -$B7hDj$G$O$J$$$N$G!"%G%#%U%)%k%H$G$O@_Dj$5$l$F$$$^$;$s!#(B +;; this is a spam group +((spam-contents gnus-group-spam-classification-spam) -@xref{Splitting in IMAP}. + ;; any spam (which happens when I enter for all unseen messages, + ;; because of the gnus-spam-newsgroup-contents setting above), goes to + ;; "nnimap+mail.lifelogs.com:train" unless I mark it as ham -@emph{TODO: $B8=>u(B spam.el $B$O5-;v$r%P%C%/%(%s%I$KEjF~$9$k$3$H$@$1$r%5%]!<(B -$B%H$7$^$9!#5-;v$,$b$O$d(B spam $B$^$?$O(B ham $B$G$O$J$$$H(B spam.el $B$KEA$($kJ}K!$O(B -$B$"$j$^$;$s!#(B} + (spam-process-destination "nnimap+mail.lifelogs.com:train") -@emph{TODO: spam.el $B$O$9$Y$F$NE}7W%G!<%?%Y!<%9$r71N}$9$k$?$a$N0lDjITJQ$N(B -$BJ}K!$rDs6!$9$kI,MW$,$"$j$^$9!#$$$/$D$+$O$=$N5!G=$r<+A0$G;}$C$F$$$^$9$,!"(B -$B$=$&$G$J$$$b$N$b$"$j$^$9!#(B} + ;; any ham goes to my "nnimap+mail.lifelogs.com:mail" folder, but + ;; also to my "nnimap+mail.lifelogs.com:trainham" folder for training -$B0J2<$O(B @code{spam-split} $B$NF0:n$r@)8f$9$k$?$a$K;H$&$3$H$,$G$-$k3F +* Using `spam.el' on an IMAP server with a statistical filter on the + server + +** Background + +My provider has set up bogofilter (in combination with DCC) on the +mail server (IMAP). Recognized spam goes to "spam.detected", the rest +goes through the normal filter rules, i.e. to "some.folder" or to +"INBOX". Training on false positives or negatives is done by copying +or moving the article to "training.ham" or "training.spam" +respectively. A cron job on the server feeds those to bogofilter with +the suitable ham or spam options and deletes them from the +"training.ham" and "training.spam" folders. + +** Setup + +With the following entries in `gnus-parameters', `spam.el' does most +of the job for me: + + ("nnimap:spam\\.detected" + (gnus-article-sort-functions '(gnus-article-sort-by-chars)) + (ham-process-destination "nnimap:INBOX" "nnimap:training.ham") + (spam-contents gnus-group-spam-classification-spam)) + ("nnimap:\\(INBOX\\|other-folders\\)" + (spam-process-destination . "nnimap:training.spam") + (spam-contents gnus-group-spam-classification-ham)) + +*** The Spam folder: + + In the folder "spam.detected", I have to check for false positives + (i.e. legitimate mails, that were wrongly judged as spam by + bogofilter or DCC). + + Because of the `gnus-group-spam-classification-spam' entry, all + messages are marked as spam (with `$'). When I find a false + positive, I mark the message with some other mark (see `ham-marks' + in the manual: `C-h i d gnus RET i ham-mark RET'). On group exit, + those messages are copied to both groups, "INBOX" (were I want to + have the article) and "training.ham" (for training bogofilter) and + deleted from the "spam.detected" folder. + + The sort-by-chars entry simplifies detection of false positives for + me. I receive lots of worms [1] (sweN, ...), that all have a + similar size. Grouping them by size (i.e. chars) makes finding + other false positives easier. + +*** Ham folders: + + In my ham folders, I just hit `S x' (`gnus-summary-mark-as-spam') + whenever I see an unrecognized spam mail (false negative). On group + exit, those messages are moved to "training.ham". + +* Reporting spam articles in Gmane [2] groups with `spam-report.el' + +With following entry in `gnus-parameters', `S x' +(`gnus-summary-mark-as-spam') marks articles in gmane.* groups as spam +and reports the to Gmane at group exit: + + ("^gmane\\." + (spam-process (gnus-group-spam-exit-processor-report-gmane))) + +Additionally, I use `(setq spam-report-gmane-use-article-number nil)' +because I don't read the groups directly from news.gmane.org, but +through my local news server (leafnode). I.e. the article numbers are +not the same as on news.gmane.org, thus `spam-report.el' has to check +the "X-Report-Spam" header to find the correct number. + +[1] Of course worms aren't "spam" (UCE, UBE) strictly speaking. + Anyhow, bogofilter is an excellent tool for filtering those + unwanted mails for me. + +[2] +@end example @node Blacklists and Whitelists @subsubsection $B%V%i%C%/%j%9%H$H%[%o%$%H%j%9%H(B @@ -21884,6 +22262,12 @@ SpamAssassin $B%X%C%@!<$K(B ding $B$N5,B'$rCV$-49$($5$;$k$3$H$O$G$-$^$9$,!"B> $B$,%0%k!<%W$N(B @code{spam-process} $B%Q%i%a!<%?$K2C$($i$l$k$H!"(Bspam $B0u$,IU$$(B $B$?5-;v$NAw?.)$7$^$9!#$9$Y$FF1Ey$KF0(B +$B:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B + @end defvar @defvar gnus-group-ham-exit-processor-whitelist @@ -21896,6 +22280,12 @@ SpamAssassin $B%X%C%@!<$K(B ding $B$N5,B'$rCV$-49$($5$;$k$3$H$O$G$-$^$9$,!"B> $B$N(B ham $B%W%m%;%C%5!<$O(B @emph{spam} $B$+(B @emph{$BL$J,N`(B} $B%0%k!<%W$K$O8z2L$r5Z(B $B$\$5$J$$$3$H$KCm0U$7$F2<$5$$!#(B +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-ham-exit-processor-whitelist} $B$NBe$o$j$K!"(B +@code{'(ham spam-use-whitelist)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0(B +$B:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B + @end defvar $B%V%i%C%/%j%9%H$O!"$"$J$?$,(B spam $B$NAw?. $B%m%;%C%5!<$O(B @emph{spam} $B$+(B @emph{$BL$J,N`(B} $B%0%k!<%W$K$O8z2L$r5Z$\$5$J$$$3(B $B$H$KCm0U$7$F2<$5$$!#(B +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-ham-exit-processor-BBDB} $B$NBe$o$j$K!"(B +@code{'(ham spam-use-BBDB)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0:n$9$k(B +$B$3$H$OJ]>Z$5$l$^$9!#(B + @end defvar @node Gmane Spam Reporting @@ -21971,6 +22367,12 @@ SpamAssassin $B%X%C%@!<$K(B ding $B$N5,B'$rCV$-49$($5$;$k$3$H$O$G$-$^$9$,!"B> Gmane $B$O(B @uref{http://gmane.org} $B$G8+$D$1$k$3$H$,$G$-$^$9!#(B +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-spam-exit-processor-report-gmane} $B$NBe$o$j$K!"(B +@code{'(spam spam-use-gmane)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0:n$9(B +$B$k$3$H$OJ]>Z$5$l$^$9!#(B + @end defvar @defvar spam-report-gmane-use-article-number @@ -22133,6 +22535,12 @@ Path $B$K(B @code{bogofilter} $B$Nl9g!"(BBogofilter $B$N $B$O(B @code{gnus-spam-process-newsgroups} $BJQ?t$K2C$($F2<$5$$!#$3$N%7%s%\%k(B $B$,%0%k!<%W$N(B @code{spam-process} $B%Q%i%a!<%?$K2C$($i$l$k$H!"(Bspam $B0u$,IU$$(B $B$?5-;v$,(B bogofilter $B$N(B spam $B%G!<%?%Y!<%9$K2C$($i$^$9!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-spam-exit-processor-bogofilter} $B$NBe$o$j$K!"(B +@code{'(spam spam-use-bogofilter)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$K(B +$BF0:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B @end defvar @defvar gnus-group-ham-exit-processor-bogofilter @@ -22143,6 +22551,12 @@ Path $B$K(B @code{bogofilter} $B$Nl9g!"(BBogofilter $B$N $B$?(B @emph{ham} $B%0%k!<%W$N5-;v$,Hs(B-spam $B5-;vMQ$N(B Bogofilter $B%G!<%?%Y!<%9$K(B $BDI2C$5$l$^$9!#$3$N(B ham $B%W%m%;%C%5!<$O(B @emph{spam} $B$+(B @emph{$BL$J,N`(B} $B%0%k!<(B $B%W$K$O8z2L$r5Z$\$5$J$$$3$H$KCm0U$7$F2<$5$$!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-ham-exit-processor-bogofilter} $B$NBe$o$j$K!"(B +@code{'(ham spam-use-bogofilter)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0(B +$B:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B @end defvar @defvar spam-bogofilter-database-directory @@ -22178,8 +22592,8 @@ Bogofilter $B$K;w$?E}7WJ,@O4o$G$"(B @code{spam-use-ifile} $B$K!"C1$J$k(B spam/$BHs(B-spam $B$G$O$J$/$F(B ifile $B$N$9$Y$F(B $B$N%+%F%4%j!<$rM?$($F$b$i$$$?$$$J$i$P!"$3$NJQ?t$rM-8z$K$7$F2<$5$$!#$3$l$r(B -$B;H$&>l9g$O!"$=$NJ88%$K=q$+$l$F$$$k$h$&$K(B ifile $B$r71N}$7$F$*$+$J$1$l$P$J(B -$B$j$^$;$s!#(B +$B;H$&>l9g$O!"$=$NJ88%$K=q$+$l$F$$$k$h$&$K(B ifile $B$r%H%l!<%K%s%0$7$F$*$+$J(B +$B$1$l$P$J$j$^$;$s!#(B @end defvar @@ -22224,6 +22638,12 @@ Emacs Lisp $B$K$h$kE}7WJ,@O4o$G$"$k(B spam-stat.el $B$r(B @code{spam-split} $B$O(B @code{gnus-spam-process-newsgroups} $BJQ?t$K2C$($F2<$5$$!#$3$N%7%s%\%k(B $B$,%0%k!<%W$N(B @code{spam-process} $B%Q%i%a!<%?$K2C$($i$l$k$H!"(Bspam $B0u$,IU$$(B $B$?5-;v$,(B spam $B5-;vMQ$N(B spam-stat $B%G!<%?%Y!<%9$KDI2C$5$l$^$9!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-spam-exit-processor-stat} $B$NBe$o$j$K!"(B +@code{'(spam spam-use-stat)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0:n$9(B +$B$k$3$H$OJ]>Z$5$l$^$9!#(B @end defvar @defvar gnus-group-ham-exit-processor-stat @@ -22234,6 +22654,12 @@ Emacs Lisp $B$K$h$kE}7WJ,@O4o$G$"$k(B spam-stat.el $B$r(B @code{spam-split} $B$?(B @emph{ham} $B%0%k!<%W$N5-;v$,Hs(B-spam $B5-;vMQ$N(B spam-stat $B%G!<%?%Y!<%9$K(B $BDI2C$5$l$^$9!#$3$N(B ham $B%W%m%;%C%5!<$O(B @emph{spam} $B$+(B @emph{$BL$J,N`(B} $B%0%k!<(B $B%W$K$O8z2L$r5Z$\$5$J$$$3$H$KCm0U$7$F2<$5$$!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-ham-exit-processor-stat} $B$NBe$o$j$K!"(B +@code{'(ham spam-use-stat)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0:n$9$k(B +$B$3$H$OJ]>Z$5$l$^$9!#(B @end defvar $B$3$l$O(B @file{spam.el} $B$,(B @file{spam-stat.el} $B$HF/$-9g$&$3$H$r2DG=$K$7$^(B @@ -22303,13 +22729,14 @@ SpamOracle $B$O$=$N2r@O7k2L$r%G!<%?%Y!<%9$H$7$F3JG<$9$k$?$a$K!"%G%#%U%)%k(B @end defvar SpamOracle $B$O%a%C%;!<%8$,(B spam $B$+(B ham $B$+$r8+6K$a$k$?$a$KE}7WE*$J/$J$$NI$$7k2L$rF@$k$?$a$K!"(BSpamOracle $B$O71N}$r(B -$BI,MW$H$7$^$9!#(BSpamOracle $B$O(B spam $B%a!<%k$NFCD'$r3X$S$^$9!#(B@emph{add} $B%b!<(B -$B%I(B ($B71N}%b!<%I(B) $B$r;H$C$F!"NI$$%a!<%k(B (ham) $B$H(B spam $B$r(B SpamOracle $B$KM?$((B -$B$J$1$l$P$J$j$^$;$s!#$3$l$O!"35N,%P%C%U%!$G(B @kbd{|} $B$r2!$9$3$H$K$h$C$F%a!<(B -$B%k$r(B SpamOracle $B$N%W%m%;%9$K%Q%$%W$9$k$+!"$^$?(B -$B$O(B @file{spam.el} $B$N(B spam $B$*$h$S(B ham $B%W%m%;%C%5!<$r;H$&$3$H$K$h$C$F9T$J(B -$B$&$3$H$,$G$-$^$9!"(B@xref{Filtering Spam Using The Spam ELisp Package}. +$B$$$^$9!#4V0c$$$d8+F($7$N>/$J$$NI$$7k2L$rF@$k$?$a$K!"(BSpamOracle $B$O%H%l!<(B +$B%K%s%0$rI,MW$H$7$^$9!#(BSpamOracle $B$O(B spam $B%a!<%k$NFCD'$r3X$S$^$9!#(B +@emph{add} $B%b!<%I(B ($B%H%l!<%K%s%0!&%b!<%I(B) $B$r;H$C$F!"NI$$%a!<(B +$B%k(B (ham) $B$H(B spam $B$r(B SpamOracle $B$KM?$($J$1$l$P$J$j$^$;$s!#$3$l$O!"35N,%P%C(B +$B%U%!$G(B @kbd{|} $B$r2!$9$3$H$K$h$C$F%a!<%k$r(B SpamOracle $B$N%W%m%;%9$K%Q%$%W(B +$B$9$k$+!"$^$?$O(B @file{spam.el} $B$N(B spam $B$*$h$S(B ham $B%W%m%;%C%5!<$r;H$&$3$H(B +$B$K$h$C$F9T$J$&$3$H$,$G$-$^$9!"(B@xref{Filtering Spam Using The Spam ELisp +Package}. @defvar gnus-group-spam-exit-processor-spamoracle $B$3$N%7%s%\%k$r!"%0%k!<%W%Q%i%a!<%?$N%+%9%?%^%$%:$K$h$C$F%0%k!<%W(B @@ -22317,6 +22744,12 @@ SpamOracle $B$O%a%C%;!<%8$,(B spam $B$+(B ham $B$+$r8+6K$a$k$?$a$KE}7WE*$J< $B$O(B @code{gnus-spam-process-newsgroups} $BJQ?t$K2C$($F2<$5$$!#$3$N%7%s%\%k(B $B$,%0%k!<%W$N(B @code{spam-process} $B%Q%i%a!<%?$K2C$($i$l$k$H!"(Bspam $B0u$,IU$$(B $B$?5-;v$,(B spam $B$N%5%s%W%k$H$7$F(B SpamOracle $B$KAw$i$l$^$9!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-spam-exit-processor-spamoracle} $B$NBe$o$j$K!"(B +@code{'(spam spam-use-spamoracle)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$K(B +$BF0:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B @end defvar @defvar gnus-group-ham-exit-processor-spamoracle @@ -22328,6 +22761,12 @@ SpamOracle $B$O%a%C%;!<%8$,(B spam $B$+(B ham $B$+$r8+6K$a$k$?$a$KE}7WE*$J< $B$F(B SpamOracle $B$KAw$i$l$^$9!#$3$N(B ham $B%W%m%;%C%5!<(B $B$O(B @emph{spam} $B$+(B @emph{$BL$J,N`(B} $B%0%k!<%W$K$O8z2L$r5Z$\$5$J$$$3$H$KCm0U$7(B $B$F2<$5$$!#(B + +@emph{$B7Y9p(B} + +$BGQ$l$?(B @code{gnus-group-ham-exit-processor-spamoracle} $B$NBe$o$j$K!"(B +@code{'(ham spam-use-spamoracle)} $B$r;H$&$3$H$r?d>)$7$^$9!#$9$Y$FF1Ey$KF0(B +$B:n$9$k$3$H$OJ]>Z$5$l$^$9!#(B @end defvar @emph{$BNc(B:} $B$3$l$i$O(B ham $B%0%k!<%W$H$7$FJ,N`$5$l$?!"$D$^$j(B ham $B$N5-;v$7$+(B @@ -22335,20 +22774,19 @@ SpamOracle $B$O%a%C%;!<%8$,(B spam $B$+(B ham $B$+$r8+6K$a$k$?$a$KE}7WE*$J< @example ((spam-contents gnus-group-spam-classification-ham) - (spam-process - (gnus-group-spam-exit-processor-spamoracle))) + (spam-process ((ham spam-use-spamoracle) + (spam spam-use-spamoracle)))) @end example -$B$3$N%0%k!<%W$G$O(B @code{gnus-group-spam-exit-processor-spamoracle} $B$,;E;v(B -$B$r$7$^$9!#$3$N%0%k!<%W$K(B spam $B5-;v$,$"$C$F(B (SpamOracle $B$,==J,$J%5%s%W%k(B -$B$r?)$Y$5$;$F$b$i$C$F$$$J$1$l$P!"$=$&$J$j$^$9$M(B)$B!"$+$D%f!<%6$,$$$/$D$+$N(B -$B5-;v$K(B spam $B$N0u$rIU$1$?$J$i$P!"$=$l$i$N5-;v(B -$B$O(B @code{gnus-group-spam-exit-processor-spamoracle} $B$K$h$C$F=hM}$5$l$^$9!#(B -$B$3$N%W%m%;%C%5!<$O!"?7$7$$(B spam $B$N%5%s%W%k$H$7$F(B SpamOracle $B$K5-;v$rAw$j(B -$B$^$9!#(B +$B$3$N%0%k!<%W$G$O(B @code{spam-use-spamoracle} $B$,(B ham $B$H(B spam $BN>J}$N=hM}$r(B +$B9T$J$$$^$9!#$3$N%0%k!<%W$K(B spam $B5-;v$,$"$C$F(B (SpamOracle $B$,==J,$J%5%s%W(B +$B%k$r?)$Y$5$;$F$b$i$C$F$$$J$1$l$P!"$=$&$J$j$^$9$M(B)$B!"$+$D%f!<%6$,$$$/$D$+(B +$B$N5-;v$K(B spam $B$N0u$rIU$1$?$J$i$P!"$=$l$i$N5-;v$O(B SpamOracle $B$K$h$C$F=hM}(B +$B$5$l$^$9!#$=$N%W%m%;%C%5!<$O!"?7$7$$(B spam $B$N%5%s%W%k$H$7$F(B SpamOracle $B$K(B +$B5-;v$rAw$j$^$9!#(B -@node Extending the spam elisp package -@subsubsection Spam elisp $B%Q%C%1!<%8$N3HD%(B +@node Extending the Spam ELisp package +@subsubsection Spam ELisp $B%Q%C%1!<%8$N3HD%(B @cindex spam filtering @cindex spam elisp package, extending @cindex extending the spam elisp package @@ -22372,14 +22810,35 @@ SpamOracle $B$O%a%C%;!<%8$,(B spam $B$+(B ham $B$+$r8+6K$a$k$?$a$KE}7WE*$J< (spam-use-blackbox . spam-check-blackbox) @end example +$B$rDI2C!#(B@code{spam-list-of-processors} $B$K(B + +@example + (gnus-group-ham-exit-processor-blackbox ham spam-use-blackbox) + (gnus-group-spam-exit-processor-blackbox spam spam-use-blackbox) +@end example + +$B$rDI2C!#(B@code{spam-registration-functions} $B$K(B + +@example + (spam-use-blackbox spam-blackbox-register-routine + nil + spam-blackbox-unregister-routine + nil) +@end example + $B$rDI2C!#(B +$B$NEPO?(B/$B:o=|%k!<%A%s$r=q$$$F2<$5$$!#(B + @item $B4X?t(B @code{spam-check-blackbox} $B4X?t$r=q$$$F2<$5$$!#$=$l(B -$B$O(B @samp{nil} $B$+(B @code{spam-split-group} $B$rJV$5$J$1$l$P$J$j$^$;$s!#$"$J(B -$B$?$K$G$-$k$3$H$NNc$O!"4{B8$N(B @code{spam-check-*} $B4X?t$r;2>H$7$F$/$@$5$$!#(B +$B$OB>$N=,47$KJo$C$F(B @samp{nil} $B$+(B @code{spam-split-group} $B$rJV$5$J$1$l$P(B +$B$J$j$^$;$s!#$"$J$?$K$G$-$k$3$H$NNc$O!"4{B8$N(B @code{spam-check-*} $B4X?t$r(B +$B;2>H$7$F$/$@$5$$!#$^$?!"$"$J$?$,$=$&$G$J$$M}M3$r40A4$KM}2r$7$F$$$J$$$J$i(B +$B$P!"%F%s%W%l!<%H$Ksv$jIU$$$F2<$5$$!#(B $B%V%i%C%/%\%C%/%9$,!"$=$l$,F0:n$9$k$?$a$K%a%C%;!<%8A4BN$rI,MW$H$9$kE}7WE*(B $B%a!<%kJ,@O4o$G$"$k$N$J$i$P!"(B @@ -22398,48 +22857,42 @@ Spam $B$^$?$O(B ham $B$N%W%m%;%C%5!<$rMQ0U$9$kI,MW$O$"$j$^$;$s!#(B Blackbox $B$,(B spam $B$^$?$O(B ham $B$N=hM}$r%5%]!<%H$9$k>l9g$@$1!"$=$l$i$rMQ0U$7(B $B$F2<$5$$!#(B +$B$5$i$K(B ham $B$H(B spam $B$N%W%m%;%C%5!<$OC10l$NJQ?t$G$O$J$/$5$l$D$D$"$j!"Be$o(B +$B$j$K(B @code{'(spam spam-use-blackbox)} $B$^$?(B +$B$O(B @code{'(ham spam-use-blackbox)} $B$N7A<0$,?d>)$5$l$^$9!#:#$N$H$3(B +$B$m(B spam/ham $B%W%m%;%C%5!$N%b!<%I$H$NAj8_:nMQ(B + +@subsection Dired +@cindex dired + +@code{gnus-dired-minor-mode} $B$O(B dired $B%P%C%U%!$G;H$($k$$$/$D$+$NJXMx$J5!(B +$BG=$rDs6!$7$^$9!#$3$l$O$C$F%U%!%$%k$r3+$-$^(B +$B$9(B (@code{gnus-dired-find-file-mailcap})$B!#@\F,<-$rIU$1$k$H!"%U%!%$%k$r?7(B +$B$7$$%P%C%U%!$G3+$-$^$9!#(B + +@item C-c C-m C-p +@findex gnus-dired-print +mailcap $B9`L\$K=>$C$F%U%!%$%k$r0u:~$7$^$9(B (@code{gnus-dired-print})$B!#0u:~(B +$B%3%^%s%I$,L5$$>l9g$O(B PostScript $B2hA|$K0u:~$7$^$9!#(B +@end table + @node Various Various @section $B$$$m$$$m$N$$$m$$$m(B @cindex mode lines @@ -24298,6 +24782,10 @@ T-gnus $B$O(B @acronym{SEMI} $B$d(B @acronym{FLIM} $B$KMj$C$F$$$^$9!#$7$?$, @itemize @bullet @item +@code{gnus-group-read-ephemeral-group} $B$r(B @kbd{G M} $B%-!<$GBPOCE*$K8F$V$3(B +$B$H$,$G$-$^$9!#(B + +@item $B%I%i%U%H!&%0%k!<%W$G(B @kbd{e} $B%-!<$,(B @code{gnus-draft-edit-message} $B%3%^(B $B%s%I$K3d$jEv$F$i$l$^$7$?!#(B@code{gnus-summary-edit-article} $B%3%^%s%I$K$O!"(B $BBe$o$j$K(B @kbd{B w} $B%-!<$r;H$C$F2<$5$$!#(B @@ -24332,14 +24820,9 @@ Buttons}. $B$9$Y$F$N5-;v$N%\%?%s$N8+1I$($r@)8f$9$k$?$a(B @item Dired $B$NE}9g(B -@code{gnus-dired-minor-mode} $B$O!"(Bdired $B$N%P%C%U%!$G%-!<@_Dj(B -- $BE:IU%U%!(B -$B%$%k$NAw?.(B (@kbd{C-c C-a})$B!"(Bmailcap $B$NE,@Z$J9`L\$r;H$C$F%U%!%$%k$r3+(B -$B$/(B (@kbd{C-c C-l})$B!"$=$l$K(B mailcap $B$N9`L\$r;H$C$F%U%!%$%k$r0u:~$9(B -$B$k(B (@kbd{C-c P}) -- $B$r9T$J$$$^$9!#$3$l$OH(B) $B$O!"(Bdired $B$N%P%C%U%!(B +$B$G%-!<@_Dj(B -- $BE:IU%U%!%$%k$NAw?.!"(Bmailcap $B$NE,@Z$J9`L\$r;H$C$F%U%!%$%k$r(B +$B3+$/!"$=$l$K(B mailcap $B$N9`L\$r;H$C$F%U%!%$%k$r0u:~$9$k(B -- $B$r9T$J$$$^$9!#(B @item Gnus $B$O(B RSS $B$N%K%e!<%9G[Aw$r!"%K%e!<%9%0%k!<%W$H$7$FI=<($7$^$9!#(B diff --git a/texi/gnus.texi b/texi/gnus.texi index f8d83c1..1c27a59 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -301,7 +301,7 @@ \thispagestyle{empty} Copyright \copyright{} 1995, 1996, 1997, 1998, 1999, 2000, 2001, -2002, 2003 +2002, 2003, 2004 Free Software Foundation, Inc. @@ -580,9 +580,12 @@ Marking Articles * Unread Articles:: Marks for unread articles. * Read Articles:: Marks for read articles. * Other Marks:: Marks that do not affect readedness. -* Setting Marks:: How to set and remove marks. -* Generic Marking Commands:: How to customize the marking. -* Setting Process Marks:: How to mark articles for later processing. + +Marking Articles + +* Setting Marks:: How to set and remove marks. +* Generic Marking Commands:: How to customize the marking. +* Setting Process Marks:: How to mark articles for later processing. Threading @@ -843,6 +846,7 @@ Various * Image Enhancements:: Modern versions of Emacs/XEmacs can display images. * Fuzzy Matching:: What's the big fuzz? * Thwarting Email Spam:: A how-to on avoiding unsolicited commercial email. +* Other modes:: Interaction with other modes. * Various Various:: Things that are really various. Formatting Variables @@ -875,17 +879,21 @@ Thwarting Email Spam Filtering Spam Using The Spam ELisp Package -* Blacklists and Whitelists:: -* BBDB Whitelists:: -* Gmane Spam Reporting:: -* Anti-spam Hashcash Payments:: -* Blackholes:: -* Regular Expressions Header Matching:: -* Bogofilter:: -* ifile spam filtering:: -* spam-stat spam filtering:: -* SpamOracle:: -* Extending the spam elisp package:: +* Spam ELisp Package Sequence of Events:: +* Spam ELisp Package Filtering of Incoming Mail:: +* Spam ELisp Package Global Variables:: +* Spam ELisp Package Configuration Examples:: +* Blacklists and Whitelists:: +* BBDB Whitelists:: +* Gmane Spam Reporting:: +* Anti-spam Hashcash Payments:: +* Blackholes:: +* Regular Expressions Header Matching:: +* Bogofilter:: +* ifile spam filtering:: +* spam-stat spam filtering:: +* SpamOracle:: +* Extending the Spam ELisp package:: Filtering Spam Using Statistics with spam-stat @@ -903,7 +911,7 @@ Appendices * Troubleshooting:: What you might try if things do not work. * Gnus Reference Guide:: Rilly, rilly technical stuff. * Emacs for Heathens:: A short introduction to Emacsian terms. -* Frequently Asked Questions:: The Gnus FAQ. +* Frequently Asked Questions:: The Gnus FAQ History @@ -2539,6 +2547,12 @@ Make a new group (@code{gnus-group-make-group}). Gnus will prompt you for a name, a method and possibly an @dfn{address}. For an easier way to subscribe to @acronym{NNTP} groups (@pxref{Browse Foreign Server}). +@item G M +@kindex G M (Group) +@findex gnus-group-read-ephemeral-group +Make an ephemeral group (@code{gnus-group-read-ephemeral-group}). Gnus +will prompt you for a name, a method and an @dfn{address}. + @item G r @kindex G r (Group) @findex gnus-group-rename-group @@ -15767,6 +15781,7 @@ changes to a wiki (e.g. @url{http://cliki.net/recent-changes.rdf}). @acronym{RSS} has a quite regular and nice interface, and it's possible to get the information Gnus needs to keep groups updated. +@kindex G R (Summary) Use @kbd{G R} from the summary buffer to subscribe to a feed---you will be prompted for the location of the feed. @@ -17615,11 +17630,17 @@ an integer that overrides the value of @item gnus-agent-cat-length-when-long an integer that overrides the value of @code{gnus-agent-long-article}. -@item gnus-agent-cat-disable-undownloaded-faces -a symbol indicating whether the summary buffer should @emph{not} display +@c @item gnus-agent-cat-disable-undownloaded-faces +@c a symbol indicating whether the summary buffer should @emph{not} display +@c undownloaded articles using the gnus-summary-*-undownloaded-face +@c faces. The symbol nil will enable the use of undownloaded faces while +@c all other symbols disable them. + +@item gnus-agent-cat-enable-undownloaded-faces +a symbol indicating whether the summary buffer should display undownloaded articles using the gnus-summary-*-undownloaded-face -faces. The symbol nil will enable the use of undownloaded faces while -all other symbols disable them. +faces. The symbol nil will disable the use of undownloaded faces while +all other symbols enable them. @end table The name of a category can not be changed once the category has been @@ -20481,6 +20502,7 @@ four days, Gnus will decay the scores four times, for instance. * Image Enhancements:: Modern versions of Emacs/XEmacs can display images. * Fuzzy Matching:: What's the big fuzz? * Thwarting Email Spam:: A how-to on avoiding unsolicited commercial email. +* Other modes:: Interaction with other modes. * Various Various:: Things that are really various. @end menu @@ -22160,13 +22182,14 @@ This is annoying. Here's what you can do about it. First, some background on spam. If you have access to e-mail, you are familiar with spam (technically -termed @acronym{UCE}, Unsolicited Commercial E-mail). Simply put, it exists -because e-mail delivery is very cheap compared to paper mail, so only -a very small percentage of people need to respond to an UCE to make it -worthwhile to the advertiser. Ironically, one of the most common -spams is the one offering a database of e-mail addresses for further -spamming. Senders of spam are usually called @emph{spammers}, but terms like -@emph{vermin}, @emph{scum}, and @emph{morons} are in common use as well. +termed @acronym{UCE}, Unsolicited Commercial E-mail). Simply put, it +exists because e-mail delivery is very cheap compared to paper mail, +so only a very small percentage of people need to respond to an UCE to +make it worthwhile to the advertiser. Ironically, one of the most +common spams is the one offering a database of e-mail addresses for +further spamming. Senders of spam are usually called @emph{spammers}, +but terms like @emph{vermin}, @emph{scum}, @emph{sociopaths}, and +@emph{morons} are in common use as well. Spam comes from a wide variety of sources. It is simply impossible to dispose of all spam without discarding useful messages. A good @@ -22179,34 +22202,39 @@ through the TMDA system. Another problem with TMDA is that it requires its users to have a basic understanding of e-mail delivery and processing. -The simplest approach to filtering spam is filtering. If you get 200 -spam messages per day from @samp{random-address@@vmadmin.com}, you -block @samp{vmadmin.com}. If you get 200 messages about -@samp{VIAGRA}, you discard all messages with @samp{VIAGRA} in the -message. This, unfortunately, is a great way to discard legitimate -e-mail. For instance, the very informative and useful RISKS digest -has been blocked by overzealous mail filters because it -@strong{contained} words that were common in spam messages. -Nevertheless, in isolated cases, with great care, direct filtering of -mail can be useful. +The simplest approach to filtering spam is filtering, at the mail +server or when you sort through incoming mail. If you get 200 spam +messages per day from @samp{random-address@@vmadmin.com}, you block +@samp{vmadmin.com}. If you get 200 messages about @samp{VIAGRA}, you +discard all messages with @samp{VIAGRA} in the message. If you get +lots of spam from China, for example, you try to filter all mail from +Chinese IPs. + +This, unfortunately, is a great way to discard legitimate e-mail. For +instance, the very informative and useful RISKS digest has been +blocked by overzealous mail filters because it @strong{contained} +words that were common in spam messages. The risks of blocking a +whole country from contacting you should also be obvious, so don't do +it if you have the choice. Nevertheless, in isolated cases, with +great care, direct filtering of mail can be useful. Another approach to filtering e-mail is the distributed spam processing, for instance DCC implements such a system. In essence, @var{N} systems around the world agree that a machine @var{X} in -China, Ghana, or California is sending out spam e-mail, and these -@var{N} systems enter @var{X} or the spam e-mail from @var{X} into -a database. The criteria for spam detection vary---it may be the -number of messages sent, the content of the messages, and so on. When -a user of the distributed processing system wants to find out if a -message is spam, he consults one of those @var{N} systems. +Ghana, Estonia, or California is sending out spam e-mail, and these +@var{N} systems enter @var{X} or the spam e-mail from @var{X} into a +database. The criteria for spam detection vary---it may be the number +of messages sent, the content of the messages, and so on. When a user +of the distributed processing system wants to find out if a message is +spam, he consults one of those @var{N} systems. Distributed spam processing works very well against spammers that send a large number of messages at once, but it requires the user to set up fairly complicated checks. There are commercial and free distributed spam processing systems. Distributed spam processing has its risks as well. For instance legitimate e-mail senders have been accused of -sending spam, and their web sites have been shut down for some time -because of the incident. +sending spam, and their web sites and mailing lists have been shut +down for some time because of the incident. The statistical approach to spam filtering is also popular. It is based on a statistical analysis of previous spam messages. Usually @@ -22215,7 +22243,19 @@ words or 3-word combinations thrown into the mix. Statistical analysis of spam works very well in most of the cases, but it can classify legitimate e-mail as spam in some cases. It takes time to run the analysis, the full message must be analyzed, and the user has -to store the database of spam analyses. +to store the database of spam analyses. Statistical analysis on the +server is gaining popularity. This has the advantage of letting the +user Just Read Mail, but has the disadvantage that it's harder to tell +the server that it has misclassified mail. + +Fighting spam is not easy, no matter what anyone says. There is no +magic switch that will distinguish Viagra ads from Mom's e-mails. +Even people are having a hard time telling spam apart from non-spam, +because spammers are actively looking to fool us into thinking they +are Mom, essentially. Spamming is irritating, irresponsible, and +idiotic behavior from a bunch of people who think the world owes them +a favor. We hope the following sections will help you in fighting the +spam plague. @node Anti-Spam Basics @subsection Anti-Spam Basics @@ -22281,6 +22321,7 @@ just press @kbd{r} in the usual way), and I'm not bothered at all with spam. It's a win-win situation. Forging @code{From} headers to point to non-existent domains is yucky, in my opinion. +Be careful with this approach. Spammers are wise to it. @node SpamAssassin @@ -22289,7 +22330,7 @@ to non-existent domains is yucky, in my opinion. @cindex Vipul's Razor @cindex DCC -The days where the hints in the previous section was sufficient in +The days where the hints in the previous section were sufficient in avoiding spam are coming to an end. There are many tools out there that claim to reduce the amount of spam you get. This section could easily become outdated fast, as new products replace old, but @@ -22297,6 +22338,11 @@ fortunately most of these tools seem to have similar interfaces. Even though this section will use SpamAssassin as an example, it should be easy to adapt it to most other tools. +Note that this section does not involve the @code{spam.el} package, +which is discussed in the next section. If you don't care for all +the features of @code{spam.el}, you can make do with these simple +recipes. + If the tool you are using is not installed on the mail server, you need to invoke it yourself. Ideas on how to use the @code{:postscript} mail source parameter (@pxref{Mail Source @@ -22378,7 +22424,7 @@ work only because the tools are constantly maintained and updated as new form of spam appears. This means that a small percentage of spam will always get through. It also means that somewhere, someone needs to read lots of spam to update these tools. Hashcash avoids that, but -instead requires that everyone you communicate with supports the +instead prefers that everyone you contact through e-mail supports the scheme. You can view the two approaches as pragmatic vs dogmatic. The approaches have their own advantages and disadvantages, but as often in the real world, a combination of them is stronger than either @@ -22443,7 +22489,7 @@ a useful contribution, however. The idea behind @file{spam.el} is to have a control center for spam detection and filtering in Gnus. To that end, @file{spam.el} does two things: it -filters incoming mail, and it analyzes mail known to be spam or ham. +filters new mail, and it analyzes mail known to be spam or ham. @dfn{Ham} is the name used throughout @file{spam.el} to indicate non-spam messages. @@ -22460,6 +22506,12 @@ should turn it on before @code{spam-initialize}: So, what happens when you load @file{spam.el}? +First, some hooks will get installed by @code{spam-initialize}. There +are some hooks for @code{spam-stat} so it can save its databases, and +there are hooks so interesting things will happen when you enter and +leave a group. More on the sequence of events later (@pxref{Spam +ELisp Package Sequence of Events}). + You get the following keyboard commands: @table @kbd @@ -22495,6 +22547,233 @@ Also, when you load @file{spam.el}, you will be able to customize its variables. Try @code{customize-group} on the @samp{spam} variable group. +@menu +* Spam ELisp Package Sequence of Events:: +* Spam ELisp Package Filtering of Incoming Mail:: +* Spam ELisp Package Global Variables:: +* Spam ELisp Package Configuration Examples:: +* Blacklists and Whitelists:: +* BBDB Whitelists:: +* Gmane Spam Reporting:: +* Anti-spam Hashcash Payments:: +* Blackholes:: +* Regular Expressions Header Matching:: +* Bogofilter:: +* ifile spam filtering:: +* spam-stat spam filtering:: +* SpamOracle:: +* Extending the Spam ELisp package:: +@end menu + +@node Spam ELisp Package Sequence of Events +@subsubsection Spam ELisp Package Sequence of Events +@cindex spam filtering +@cindex spam filtering sequence of events +@cindex spam + +You must read this section to understand how @code{spam.el} works. +Do not skip, speed-read, or glance through this section. + +There are two @emph{contact points}, if you will, between +@code{spam.el} and the rest of Gnus: checking new mail for spam, and +leaving a group. + +Getting new mail is done in one of two ways. You can either split +your incoming mail or you can classify new articles as ham or spam +when you enter the group. + +Splitting incoming mail is better suited to mail backends such as +@code{nnml} or @code{nnimap} where new mail appears in a single file +called a @dfn{Spool File}. See @xref{Spam ELisp Package Filtering of +Incoming Mail}. + +For backends such as @code{nntp} there is no incoming mail spool, so +an alternate mechanism must be used. This may also happen for +backends where the server is in charge of splitting incoming mail, and +Gnus does not do further splitting. The @code{spam-autodetect} and +@code{spam-autodetect-methods} group parameters (accessible with +@kbd{G c} and @kbd{G p} as usual), and the corresponding variables +@code{gnus-spam-autodetect-methods} and +@code{gnus-spam-autodetect-methods} (accessible with @kbd{M-x +customize-variable} as usual). + +When @code{spam-autodetect} is used, it hooks into the process of +entering a group. Thus, entering a group with unseen or unread +articles becomes the substitute for checking incoming mail. Whether +only unseen articles or all unread articles will be processed is +determined by the @code{spam-autodetect-recheck-messages}. When set +to t, unread messages will be rechecked. + +@code{spam-autodetect} grants the user at once more and less control +of spam filtering. The user will have more control over each group's +spam methods, so for instance the @samp{ding} group may have +@code{spam-use-BBDB} as the autodetection method, while the +@samp{suspect} group may have the @code{spam-use-blacklist} and +@code{spam-use-bogofilter} methods enabled. Every article detected to +be spam will be marked with the spam mark @samp{$} and processed on +exit from the group as normal spam. The user has less control over +the @emph{sequence} of checks, as he might with @code{spam-split}. + +When the newly split mail goes into groups, or messages are +autodetected to be ham or spam, those groups must be exited (after +entering, if needed) for further spam processing to happen. It +matters whether the group is considered a ham group, a spam group, or +is unclassified, based on its @code{spam-content} parameter +(@pxref{Spam ELisp Package Global Variables}). Spam groups have the +additional characteristic that, when entered, any unseen or unread +articles (depending on the @code{spam-mark-only-unseen-as-spam} +variable) will be marked as spam. Thus, mail split into a spam group +gets automatically marked as spam when you enter the group. + +So, when you exit a group, the @code{spam-processors} are applied, if +any are set, and the processed mail is moved to the +@code{ham-process-destination} or the @code{spam-process-destination} +depending on the article's classification. If the +@code{ham-process-destination} or the @code{spam-process-destination}, +whichever is appropriate, are nil, the article is left in the current +group. + +If a spam is found in any group (this can be changed to only non-spam +groups with @code{spam-move-spam-nonspam-groups-only}), it is +processed by the active @code{spam-processors} (@pxref{Spam ELisp +Package Global Variables}) when the group is exited. Furthermore, the +spam is moved to the @code{spam-process-destination} (@pxref{Spam +ELisp Package Global Variables}) for further training or deletion. +You have to load the @code{gnus-registry.el} package and enable the +@code{spam-log-to-registry} variable if you want spam to be processed +no more than once. Thus, spam is detected and processed everywhere, +which is what most people want. If the +@code{spam-process-destination} is nil, the spam is marked as +expired, which is usually the right thing to do. + +If spam can not be moved - because of a read-only backend such as NNTP, +for example, it will be copied. + +If a ham mail is found in a ham group, as determined by the +@code{ham-marks} parameter, it is processed as ham by the active ham +@code{spam-processor} when the group is exited. With the variables +@code{spam-process-ham-in-spam-groups} and +@code{spam-process-ham-in-nonham-groups} the behavior can be further +altered so ham found anywhere can be processed. You have to load the +@code{gnus-registry.el} package and enable the +@code{spam-log-to-registry} variable if you want ham to be processed +no more than once. Thus, ham is detected and processed only when +necessary, which is what most people want. More on this in +@xref{Spam ELisp Package Configuration Examples}. + +If ham can not be moved - because of a read-only backend such as NNTP, +for example, it will be copied. + +If all this seems confusing, don't worry. Soon it will be as natural +as typing Lisp one-liners on a neural interface... err, sorry, that's +50 years in the future yet. Just trust us, it's not so bad. + +@node Spam ELisp Package Filtering of Incoming Mail +@subsubsection Spam ELisp Package Filtering of Incoming Mail +@cindex spam filtering +@cindex spam filtering incoming mail +@cindex spam + +To use the @file{spam.el} facilities for incoming mail filtering, you +must add the following to your fancy split list +@code{nnmail-split-fancy} or @code{nnimap-split-fancy}: + +@example +(: spam-split) +@end example + +Note that the fancy split may be called @code{nnmail-split-fancy} or +@code{nnimap-split-fancy}, depending on whether you use the nnmail or +nnimap back ends to retrieve your mail. + +The @code{spam-split} function will process incoming mail and send the +mail considered to be spam into the group name given by the variable +@code{spam-split-group}. By default that group name is @samp{spam}, +but you can customize @code{spam-split-group}. Make sure the contents +of @code{spam-split-group} are an @emph{unqualified} group name, for +instance in an @code{nnimap} server @samp{your-server} the value +@samp{spam} will turn out to be @samp{nnimap+your-server:spam}. The +value @samp{nnimap+server:spam}, therefore, is wrong and will +actually give you the group +@samp{nnimap+your-server:nnimap+server:spam} which may or may not +work depending on your server's tolerance for strange group names. + +You can also give @code{spam-split} a parameter, +e.g. @samp{'spam-use-regex-headers} or @samp{"maybe-spam"}. Why is +this useful? + +Take these split rules (with @code{spam-use-regex-headers} and +@code{spam-use-blackholes} set): + +@example + nnimap-split-fancy '(| + (any "ding" "ding") + (: spam-split) + ;; default mailbox + "mail") +@end example + +Now, the problem is that you want all ding messages to make it to the +ding folder. But that will let obvious spam (for example, spam +detected by SpamAssassin, and @code{spam-use-regex-headers}) through, +when it's sent to the ding list. On the other hand, some messages to +the ding list are from a mail server in the blackhole list, so the +invocation of @code{spam-split} can't be before the ding rule. + +You can let SpamAssassin headers supersede ding rules, but all other +@code{spam-split} rules (including a second invocation of the +regex-headers check) will be after the ding rule: + +@example + nnimap-split-fancy '(| +;;; all spam detected by spam-use-regex-headers goes to "regex-spam" + (: spam-split "regex-spam" 'spam-use-regex-headers) + (any "ding" "ding") +;;; all other spam detected by spam-split goes to spam-split-group + (: spam-split) + ;; default mailbox + "mail") +@end example + +This lets you invoke specific @code{spam-split} checks depending on +your particular needs, and to target the results of those checks to a +particular spam group. You don't have to throw all mail into all the +spam tests. Another reason why this is nice is that messages to +mailing lists you have rules for don't have to have resource-intensive +blackhole checks performed on them. You could also specify different +spam checks for your nnmail split vs. your nnimap split. Go crazy. + +You should still have specific checks such as +@code{spam-use-regex-headers} set to @code{t}, even if you +specifically invoke @code{spam-split} with the check. The reason is +that when loading @file{spam.el}, some conditional loading is done +depending on what @code{spam-use-xyz} variables you have set. This +is usually not critical, though. + +@emph{Note for IMAP users} + +The boolean variable @code{nnimap-split-download-body} needs to be +set, if you want to split based on the whole message instead of just +the headers. By default, the nnimap back end will only retrieve the +message headers. If you use @code{spam-check-bogofilter}, +@code{spam-check-ifile}, or @code{spam-check-stat} (the splitters that +can benefit from the full message body), you should set this variable. +It is not set by default because it will slow @acronym{IMAP} down, and +that is not an appropriate decision to make on behalf of the user. + +@xref{Splitting in IMAP}. + +@emph{TODO: spam.el needs to provide a uniform way of training all the +statistical databases. Some have that functionality built-in, others +don't.} + +@node Spam ELisp Package Global Variables +@subsubsection Spam ELisp Package Global Variables +@cindex spam filtering +@cindex spam filtering variables +@cindex spam variables +@cindex spam + @vindex gnus-spam-process-newsgroups The concepts of ham processors and spam processors are very important. Ham processors and spam processors for a group can be set with the @@ -22505,6 +22784,10 @@ that later similar mail will also be considered non-spam. Spam processors take mail known to be spam and process it so similar spam will be detected later. +The format of the spam or ham processor entry used to be a symbol, +but now it is a cons cell. See the individual spam processor entries +for more information. + @vindex gnus-spam-newsgroup-contents Gnus learns from the spam you get. You have to collect your spam in one or more spam groups, and set or customize the variable @@ -22549,13 +22832,19 @@ should then adjust the @code{ham-marks} group parameter. @defvar ham-marks You can customize this group or topic parameter to be the list of marks you want to consider ham. By default, the list contains the -deleted, read, killed, kill-filed, and low-score marks. +deleted, read, killed, kill-filed, and low-score marks (the idea is +that these articles have been read, but are not spam). It can be +useful to also include the tick mark in the ham marks. It is not +recommended to make the unread mark a ham mark, because it normally +indicates a lack of classification. But you can do it, and we'll be +happy for you. @end defvar @defvar spam-marks You can customize this group or topic parameter to be the list of marks you want to consider spam. By default, the list contains only -the spam mark. +the spam mark. It is not recommended to change that, but you can if +you really want to. @end defvar When you leave @emph{any} group, regardless of its @@ -22578,11 +22867,18 @@ names (it's easiest to customize this variable with @code{customize-variable gnus-ham-process-destinations}). Each newsgroup specification has the format (REGEXP PROCESSOR) in a standard Lisp list, if you prefer to customize the variable manually. -The ultimate location is a group name. If the +The ultimate location is a group name or names. If the @code{ham-process-destination} parameter is not set, ham articles are left in place. If the @code{spam-mark-ham-unread-before-move-from-spam-group} parameter is -set, the ham articles are marked as unread before being moved. +set, the ham articles are marked as unread before being moved. + +If ham can not be moved - because of a read-only backend such as NNTP, +for example, it will be copied. + +Note that you can use multiples destinations per group or regular +expression! This enables you to send your ham to a regular mail +group and to a @emph{ham training} group. When you leave a @emph{ham} group, all ham-marked articles are sent to a ham processor, which will study these as non-spam samples. @@ -22608,125 +22904,209 @@ the @code{spam-process-destination} group parameter or a match in the regular expressions matched with group names (it's easiest to customize this variable with @code{customize-variable gnus-spam-process-destinations}). Each newsgroup specification has -the repeated format (REGEXP PROCESSOR) and they are all in a standard -Lisp list, if you prefer to customize the variable manually. The -ultimate location is a group name. If the +the repeated format (REGEXP GROUP) and they are all in a standard Lisp +list, if you prefer to customize the variable manually. The ultimate +location is a group name or names. If the @code{spam-process-destination} parameter is not set, the spam -articles are only expired. - -To use the @file{spam.el} facilities for incoming mail filtering, you -must add the following to your fancy split list -@code{nnmail-split-fancy} or @code{nnimap-split-fancy}: +articles are only expired. The group name is fully qualified, meaning +that if you see @samp{nntp:servername} before the group name in the +group buffer then you need it here as well. + +If spam can not be moved - because of a read-only backend such as NNTP, +for example, it will be copied. + +Note that you can use multiples destinations per group or regular +expression! This enables you to send your spam to multiple @emph{spam +training} groups. + +@vindex spam-log-to-registry +The problem with processing ham and spam is that Gnus doesn't track +this processing by default. Enable the @code{spam-log-to-registry} +variable so @code{spam.el} will use @code{gnus-registry.el} to track +what articles have been processed, and avoid processing articles +multiple times. Keep in mind that if you limit the number of registry +entries, this won't work as well as it does without a limit. + +@vindex spam-mark-only-unseen-as-spam +Set this variable if you want only unseen articles in spam groups to +be marked as spam. By default, it is set. If you set it to nil, +unread articles will also be marked as spam. + +@vindex spam-mark-ham-unread-before-move-from-spam-group +Set this variable if you want ham to be unmarked before it is moved +out of the spam group. This is very useful when you use something +like the tick mark @samp{!} to mark ham - the article will be placed +in your ham-process-destination, unmarked as if it came fresh from +the mail server. + +@vindex spam-autodetect-recheck-messages +When autodetecting spam, this variable tells @code{spam.el} whether +only unseen articles or all unread articles should be checked for +spam. It is recommended that you leave it off. + +@node Spam ELisp Package Configuration Examples +@subsubsection Spam ELisp Package Configuration Examples +@cindex spam filtering +@cindex spam filtering configuration examples +@cindex spam configuration examples +@cindex spam @example -(: spam-split) -@end example - -Note that the fancy split may be called @code{nnmail-split-fancy} or -@code{nnimap-split-fancy}, depending on whether you use the nnmail or -nnimap back ends to retrieve your mail. - -The @code{spam-split} function will process incoming mail and send the -mail considered to be spam into the group name given by the variable -@code{spam-split-group}. By default that group name is @samp{spam}, -but you can customize @code{spam-split-group}. Make sure the contents -of @code{spam-split-group} are an @emph{unqualified} group name, for -instance in an @code{nnimap} server @samp{your-server} the value -@samp{spam} will turn out to be @samp{nnimap+your-server:spam}. The -value @samp{nnimap+server:spam}, therefore, is wrong and will -actually give you the group -@samp{nnimap+your-server:nnimap+server:spam} which may or may not -work depending on your server's tolerance for strange group names. - -You can also give @code{spam-split} a parameter, -e.g. @samp{'spam-use-regex-headers} or @samp{"maybe-spam"}. Why is -this useful? +;; Ted Zlatanov -Take these split rules (with @code{spam-use-regex-headers} and -@code{spam-use-blackholes} set): +;; for gnus-registry-split-fancy-with-parent and spam autodetection +;; see gnus-registry.el for more information +(gnus-registry-initialize) +(spam-initialize) -@example +;; I like control-S for marking spam +(define-key gnus-summary-mode-map "\C-s" 'gnus-summary-mark-as-spam) + +(setq + spam-log-to-registry t ;; for spam autodetection + spam-use-BBDB t + spam-use-regex-headers t ; catch X-Spam-Flag (SpamAssassin) + ;; all groups with "spam" in the name contain spam + gnus-spam-newsgroup-contents '(("spam" gnus-group-spam-classification-spam)) + ;; see documentation for these + spam-move-spam-nonspam-groups-only nil + spam-mark-only-unseen-as-spam t + spam-mark-ham-unread-before-move-from-spam-group t + nnimap-split-rule 'nnimap-split-fancy + ;; understand what this does before you copy it to your own setup! nnimap-split-fancy '(| + ;; trace references to parents and put in their group + (: gnus-registry-split-fancy-with-parent) + ;; this will catch server-side SpamAssassin tags + (: spam-split 'spam-use-regex-headers) (any "ding" "ding") + ;; note that spam by default will go to "spam" (: spam-split) ;; default mailbox - "mail") -@end example + "mail")) -Now, the problem is that you want all ding messages to make it to the -ding folder. But that will let obvious spam (for example, spam -detected by SpamAssassin, and @code{spam-use-regex-headers}) through, -when it's sent to the ding list. On the other hand, some messages to -the ding list are from a mail server in the blackhole list, so the -invocation of @code{spam-split} can't be before the ding rule. +;; my parameters, set with `G p' -You can let SpamAssassin headers supersede ding rules, but all other -@code{spam-split} rules (including a second invocation of the -regex-headers check) will be after the ding rule: +;; all nnml groups, and all nnimap groups except +;; "nnimap+mail.lifelogs.com:train" and +;; "nnimap+mail.lifelogs.com:spam": any spam goes to nnimap training, +;; because it must have been detected manually -@example - nnimap-split-fancy '(| -;;; all spam detected by spam-use-regex-headers goes to "regex-spam" - (: spam-split "regex-spam" 'spam-use-regex-headers) - (any "ding" "ding") -;;; all other spam detected by spam-split goes to spam-split-group - (: spam-split) - ;; default mailbox - "mail") -@end example +((spam-process-destination . "nnimap+mail.lifelogs.com:train")) -Basically, this lets you invoke specific @code{spam-split} checks -depending on your particular needs, and to target the results of those -checks to a particular spam group. You don't have to throw all mail -into all the spam tests. Another reason why this is nice is that -messages to mailing lists you have rules for don't have to have -resource-intensive blackhole checks performed on them. You could also -specify different spam checks for your nnmail split vs. your nnimap -split. Go crazy. - -You still have to have specific checks such as -@code{spam-use-regex-headers} set to @code{t}, even if you specifically -invoke @code{spam-split} with the check. The reason is that when -loading @file{spam.el}, some conditional loading is done depending on -what @code{spam-use-xyz} variables you have set. +;; all NNTP groups +;; autodetect spam with the blacklist and ham with the BBDB +((spam-autodetect-methods spam-use-blacklist spam-use-BBDB) +;; send all spam to the training group + (spam-process-destination . "nnimap+mail.lifelogs.com:train")) -@emph{Note for IMAP users} +;; only some NNTP groups, where I want to autodetect spam +((spam-autodetect . t)) -The boolean variable @code{nnimap-split-download-body} needs to be -set, if you want to split based on the whole message instead of just -the headers. By default, the nnimap back end will only retrieve the -message headers. If you use @code{spam-check-bogofilter}, -@code{spam-check-ifile}, or @code{spam-check-stat} (the splitters that -can benefit from the full message body), you should set this variable. -It is not set by default because it will slow @acronym{IMAP} down, and -that is not an appropriate decision to make on behalf of the user. +;; my nnimap "nnimap+mail.lifelogs.com:spam" group -@xref{Splitting in IMAP}. +;; this is a spam group +((spam-contents gnus-group-spam-classification-spam) -@emph{TODO: Currently, spam.el only supports insertion of articles -into a back end. There is no way to tell spam.el that an article is no -longer spam or ham.} + ;; any spam (which happens when I enter for all unseen messages, + ;; because of the gnus-spam-newsgroup-contents setting above), goes to + ;; "nnimap+mail.lifelogs.com:train" unless I mark it as ham -@emph{TODO: spam.el needs to provide a uniform way of training all the -statistical databases. Some have that functionality built-in, others -don't.} + (spam-process-destination "nnimap+mail.lifelogs.com:train") -The following are the methods you can use to control the behavior of -@code{spam-split} and their corresponding spam and ham processors: + ;; any ham goes to my "nnimap+mail.lifelogs.com:mail" folder, but + ;; also to my "nnimap+mail.lifelogs.com:trainham" folder for training -@menu -* Blacklists and Whitelists:: -* BBDB Whitelists:: -* Gmane Spam Reporting:: -* Anti-spam Hashcash Payments:: -* Blackholes:: -* Regular Expressions Header Matching:: -* Bogofilter:: -* ifile spam filtering:: -* spam-stat spam filtering:: -* SpamOracle:: -* Extending the spam elisp package:: -@end menu + (ham-process-destination "nnimap+mail.lifelogs.com:mail" + "nnimap+mail.lifelogs.com:trainham") + ;; in this group, only '!' marks are ham + (ham-marks + (gnus-ticked-mark)) + ;; remembers senders in the blacklist on the way out - this is + ;; definitely not needed, it just makes me feel better + (spam-process (gnus-group-spam-exit-processor-blacklist))) + +;; Later, on the IMAP server I use the "train" group for training +;; SpamAssassin to recognize spam, and the "trainham" group for +;; recognizing ham - but Gnus has nothing to do with it. + +@end example + +@example +;; from Reiner Steib <4.uce.03.r.s@@nurfuerspam.de> +* Using `spam.el' on an IMAP server with a statistical filter on the + server + +** Background + +My provider has set up bogofilter (in combination with DCC) on the +mail server (IMAP). Recognized spam goes to "spam.detected", the rest +goes through the normal filter rules, i.e. to "some.folder" or to +"INBOX". Training on false positives or negatives is done by copying +or moving the article to "training.ham" or "training.spam" +respectively. A cron job on the server feeds those to bogofilter with +the suitable ham or spam options and deletes them from the +"training.ham" and "training.spam" folders. + +** Setup + +With the following entries in `gnus-parameters', `spam.el' does most +of the job for me: + + ("nnimap:spam\\.detected" + (gnus-article-sort-functions '(gnus-article-sort-by-chars)) + (ham-process-destination "nnimap:INBOX" "nnimap:training.ham") + (spam-contents gnus-group-spam-classification-spam)) + ("nnimap:\\(INBOX\\|other-folders\\)" + (spam-process-destination . "nnimap:training.spam") + (spam-contents gnus-group-spam-classification-ham)) + +*** The Spam folder: + + In the folder "spam.detected", I have to check for false positives + (i.e. legitimate mails, that were wrongly judged as spam by + bogofilter or DCC). + + Because of the `gnus-group-spam-classification-spam' entry, all + messages are marked as spam (with `$'). When I find a false + positive, I mark the message with some other mark (see `ham-marks' + in the manual: `C-h i d gnus RET i ham-mark RET'). On group exit, + those messages are copied to both groups, "INBOX" (were I want to + have the article) and "training.ham" (for training bogofilter) and + deleted from the "spam.detected" folder. + + The sort-by-chars entry simplifies detection of false positives for + me. I receive lots of worms [1] (sweN, ...), that all have a + similar size. Grouping them by size (i.e. chars) makes finding + other false positives easier. + +*** Ham folders: + + In my ham folders, I just hit `S x' (`gnus-summary-mark-as-spam') + whenever I see an unrecognized spam mail (false negative). On group + exit, those messages are moved to "training.ham". + +* Reporting spam articles in Gmane [2] groups with `spam-report.el' + +With following entry in `gnus-parameters', `S x' +(`gnus-summary-mark-as-spam') marks articles in gmane.* groups as spam +and reports the to Gmane at group exit: + + ("^gmane\\." + (spam-process (gnus-group-spam-exit-processor-report-gmane))) + +Additionally, I use `(setq spam-report-gmane-use-article-number nil)' +because I don't read the groups directly from news.gmane.org, but +through my local news server (leafnode). I.e. the article numbers are +not the same as on news.gmane.org, thus `spam-report.el' has to check +the "X-Report-Spam" header to find the correct number. + +[1] Of course worms aren't "spam" (UCE, UBE) strictly speaking. + Anyhow, bogofilter is an excellent tool for filtering those + unwanted mails for me. + +[2] +@end example @node Blacklists and Whitelists @subsubsection Blacklists and Whitelists @@ -22771,6 +23151,13 @@ customizing the group parameters or the added to a group's @code{spam-process} parameter, the senders of spam-marked articles will be added to the blacklist. +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-spam-exit-processor-blacklist}, it is recommended +that you use @code{'(spam spam-use-blacklist)}. Everything will work +the same way, we promise. + @end defvar @defvar gnus-group-ham-exit-processor-whitelist @@ -22783,6 +23170,13 @@ ham-marked articles in @emph{ham} groups will be added to the whitelist. Note that this ham processor has no effect in @emph{spam} or @emph{unclassified} groups. +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-ham-exit-processor-whitelist}, it is recommended +that you use @code{'(ham spam-use-whitelist)}. Everything will work +the same way, we promise. + @end defvar Blacklists are lists of regular expressions matching addresses you @@ -22842,6 +23236,13 @@ ham-marked articles in @emph{ham} groups will be added to the BBDB. Note that this ham processor has no effect in @emph{spam} or @emph{unclassified} groups. +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-ham-exit-processor-BBDB}, it is recommended +that you use @code{'(ham spam-use-BBDB)}. Everything will work +the same way, we promise. + @end defvar @node Gmane Spam Reporting @@ -22862,6 +23263,13 @@ HTTP request. Gmane can be found at @uref{http://gmane.org}. +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-spam-exit-processor-report-gmane}, it is recommended +that you use @code{'(spam spam-use-gmane)}. Everything will work the +same way, we promise. + @end defvar @defvar spam-report-gmane-use-article-number @@ -23023,6 +23431,13 @@ customizing the group parameters or the @code{gnus-spam-process-newsgroups} variable. When this symbol is added to a group's @code{spam-process} parameter, spam-marked articles will be added to the Bogofilter spam database. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-spam-exit-processor-bogofilter}, it is recommended +that you use @code{'(spam spam-use-bogofilter)}. Everything will work +the same way, we promise. @end defvar @defvar gnus-group-ham-exit-processor-bogofilter @@ -23033,6 +23448,13 @@ added to a group's @code{spam-process} parameter, the ham-marked articles in @emph{ham} groups will be added to the Bogofilter database of non-spam messages. Note that this ham processor has no effect in @emph{spam} or @emph{unclassified} groups. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-ham-exit-processor-bogofilter}, it is recommended +that you use @code{'(ham spam-use-bogofilter)}. Everything will work +the same way, we promise. @end defvar @defvar spam-bogofilter-database-directory @@ -23113,6 +23535,13 @@ customizing the group parameters or the @code{gnus-spam-process-newsgroups} variable. When this symbol is added to a group's @code{spam-process} parameter, the spam-marked articles will be added to the spam-stat database of spam messages. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-spam-exit-processor-stat}, it is recommended +that you use @code{'(spam spam-use-stat)}. Everything will work +the same way, we promise. @end defvar @defvar gnus-group-ham-exit-processor-stat @@ -23123,6 +23552,13 @@ added to a group's @code{spam-process} parameter, the ham-marked articles in @emph{ham} groups will be added to the spam-stat database of non-spam messages. Note that this ham processor has no effect in @emph{spam} or @emph{unclassified} groups. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-ham-exit-processor-stat}, it is recommended +that you use @code{'(ham spam-use-stat)}. Everything will work +the same way, we promise. @end defvar This enables @file{spam.el} to cooperate with @file{spam-stat.el}. @@ -23208,6 +23644,13 @@ customizing the group parameter or the @code{gnus-spam-process-newsgroups} variable. When this symbol is added to a group's @code{spam-process} parameter, spam-marked articles will be sent to SpamOracle as spam samples. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-spam-exit-processor-spamoracle}, it is recommended +that you use @code{'(spam spam-use-spamoracle)}. Everything will work +the same way, we promise. @end defvar @defvar gnus-group-ham-exit-processor-spamoracle @@ -23218,25 +23661,32 @@ to a grup's @code{spam-process} parameter, the ham-marked articles in @emph{ham} groups will be sent to the SpamOracle as samples of ham messages. Note that this ham processor has no effect in @emph{spam} or @emph{unclassified} groups. + +@emph{WARNING} + +Instead of the obsolete +@code{gnus-group-ham-exit-processor-spamoracle}, it is recommended +that you use @code{'(ham spam-use-spamoracle)}. Everything will work +the same way, we promise. @end defvar -@emph{Example:} These are the Group Parameters of an group that has been +@emph{Example:} These are the Group Parameters of a group that has been classified as a ham group, meaning that it should only contain ham messages. @example ((spam-contents gnus-group-spam-classification-ham) - (spam-process - (gnus-group-spam-exit-processor-spamoracle))) + (spam-process ((ham spam-use-spamoracle) + (spam spam-use-spamoracle)))) @end example -For this group the @code{gnus-group-spam-exit-processor-spamoracle} is -installed. If the group contains spam message (e.g. because SpamOracle -has not had enough sample messages yet) and the user marks some -messages as spam messages, these messages will be processed by -@code{gnus-group-spam-exit-processor-spamoracle}. This processor sends -the messages to SpamOracle as new samples for spam. - -@node Extending the spam elisp package -@subsubsection Extending the spam elisp package +For this group the @code{spam-use-spamoracle} is installed for both +ham and spam processing. If the group contains spam message +(e.g. because SpamOracle has not had enough sample messages yet) and +the user marks some messages as spam messages, these messages will be +processed by SpamOracle. The processor sends the messages to +SpamOracle as new samples for spam. + +@node Extending the Spam ELisp package +@subsubsection Extending the Spam ELisp package @cindex spam filtering @cindex spam elisp package, extending @cindex extending the spam elisp package @@ -23260,12 +23710,33 @@ Add @end example to @code{spam-list-of-checks}. +Add +@example + (gnus-group-ham-exit-processor-blackbox ham spam-use-blackbox) + (gnus-group-spam-exit-processor-blackbox spam spam-use-blackbox) +@end example +to @code{spam-list-of-processors}. + +Add +@example + (spam-use-blackbox spam-blackbox-register-routine + nil + spam-blackbox-unregister-routine + nil) +@end example +to @code{spam-registration-functions}. Write the register/unregister +routines using the bogofilter register/unregister routines as a +start, or other restister/unregister routines more appropriate to +Blackbox. + @item functionality Write the @code{spam-check-blackbox} function. It should return -@samp{nil} or @code{spam-split-group}. See the existing -@code{spam-check-*} functions for examples of what you can do. +@samp{nil} or @code{spam-split-group}, observing the other +conventions. See the existing @code{spam-check-*} functions for +examples of what you can do, and stick to the template unless you +fully understand the reasons why you aren't. Make sure to add @code{spam-use-blackbox} to @code{spam-list-of-statistical-checks} if Blackbox is a statistical @@ -23283,48 +23754,40 @@ code Note you don't have to provide a spam or a ham processor. Only provide them if Blackbox supports spam or ham processing. +Also, ham and spam processors are being phased out as single +variables. Instead the form @code{'(spam spam-use-blackbox)} or +@code{'(ham spam-use-blackbox)} is favored. For now, spam/ham +processor variables are still around but they won't be for long. + @lisp -(defvar gnus-group-spam-exit-processor-blackbox "blackbox" +(defvar gnus-group-spam-exit-processor-blackbox "blackbox-spam" "The Blackbox summary exit spam processor. Only applicable to spam groups.") -(defvar gnus-group-ham-exit-processor-blackbox "blackbox" +(defvar gnus-group-ham-exit-processor-blackbox "blackbox-ham" "The whitelist summary exit ham processor. Only applicable to non-spam (unclassified and ham) groups.") @end lisp @item -functionality +Gnus parameters -@lisp -(defun spam-blackbox-register-spam-routine () - (spam-generic-register-routine - ;; @r{the spam function} - (lambda (article) - (let ((from (spam-fetch-field-from-fast article))) - (when (stringp from) - (blackbox-do-something-with-this-spammer from)))) - ;; @r{the ham function} - nil)) - -(defun spam-blackbox-register-ham-routine () - (spam-generic-register-routine - ;; @r{the spam function} - nil - ;; @r{the ham function} - (lambda (article) - (let ((from (spam-fetch-field-from-fast article))) - (when (stringp from) - (blackbox-do-something-with-this-ham-sender from)))))) -@end lisp - -Write the @code{blackbox-do-something-with-this-ham-sender} and -@code{blackbox-do-something-with-this-spammer} functions. You can add -more complex code than fetching the message sender, but keep in mind -that retrieving the whole message takes significantly longer than the -sender through @code{spam-fetch-field-from-fast}, because the message -senders are kept in memory by Gnus. +Add +@example + (const :tag "Spam: Blackbox" (spam spam-use-blackbox)) + (const :tag "Ham: Blackbox" (ham spam-use-blackbox)) +@end example +to the @code{spam-process} group parameter in @code{gnus.el}. Make +sure you do it twice, once for the parameter and once for the +variable customization. + +Add +@example + (variable-item spam-use-blackbox) +@end example +to the @code{spam-autodetect-methods} group parameter in +@code{gnus.el}. @end enumerate @@ -23602,6 +24065,36 @@ Reduce table size: (spam-stat-reduce-size) Save table: (spam-stat-save) @end smallexample +@node Other modes +@section Interaction with other modes + +@subsection Dired +@cindex dired + +@code{gnus-dired-minor-mode} provided some useful functions for dired +buffers. It is enabled with +@lisp +(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) +@end lisp + +@table @kbd +@item C-c C-m C-a +@findex gnus-dired-attach +Send dired's marked files as an attachment (@code{gnus-dired-attach}). +You will be prompted for a message buffer. + +@item C-c C-m C-l +@findex gnus-dired-find-file-mailcap +Visit a file according to the appropriate mailcap entry +(@code{gnus-dired-find-file-mailcap}). With prefix, open file in a new +buffer. + +@item C-c C-m C-p +@findex gnus-dired-print +Print file according to the mailcap entry (@code{gnus-dired-print}). If +there is no print command, print in a PostScript image. +@end table + @node Various Various @section Various Various @cindex mode lines @@ -25173,6 +25666,10 @@ New features in Gnus 5.10: @itemize @bullet @item +@code{gnus-group-read-ephemeral-group} can be called interactively, +using @kbd{G M}. + +@item In draft groups, @kbd{e} is now bound to @code{gnus-draft-edit-message}. Use @kbd{B w} for @code{gnus-summary-edit-article} instead. @@ -25203,13 +25700,10 @@ appearance of all article buttons. @xref{Article Button Levels}. @item Dired integration -@code{gnus-dired-minor-mode} installs key bindings in dired buffers to send -a file as an attachment (@kbd{C-c C-a}), open a file using the appropriate -mailcap entry (@kbd{C-c C-l}), and print a file using the mailcap entry -(@kbd{C-c P}). It is enabled with -@lisp -(add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode) -@end lisp +@code{gnus-dired-minor-mode} (see @ref{Other modes}) installs key +bindings in dired buffers to send a file as an attachment, open a file +using the appropriate mailcap entry, and print a file using the mailcap +entry. @item Gnus can display RSS newsfeeds as a newsgroup. @xref{RSS}. diff --git a/texi/message-ja.texi b/texi/message-ja.texi index 7c3bb8e..ee6233d 100644 --- a/texi/message-ja.texi +++ b/texi/message-ja.texi @@ -22,7 +22,7 @@ This file documents Message, the Emacs message composition mode. $B$3$N%U%!%$%k$O(B Emacs $B$N%a%C%;!<%8:n@.%b!<%I$G$"$k(B Message $B$K4X$9$k@bL@J8(B $B=q$G$9!#(B -Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document @@ -1256,7 +1256,7 @@ Emacs $B$G%9%Z%k%A%'%C%/$9$k$?$a$KIa5Z$7$F$$$kFs$D$NJ}K!!"(B @lisp (setq ispell-message-dictionary-alist '(("^Newsgroups:.*\\bde\\." . "deutsch8") - (".*" . "default"))) + (".*" . "default"))) @end lisp @code{ispell} $B$O%$%s%9%H!<%k$5$l$?(B @samp{ispell} $B%3%^%s%I$K0MB8$7$F$$$^(B @@ -1441,6 +1441,14 @@ Message $B$,(B gnus $B>e$GAv$C$F$$$k>l9g!"%a%C%;!<%8%P%C%U%!$O%I%i%U%H%0%k!<% (setq message-hidden-headers '(not "From" "Subject" "To" "Cc" "Newsgroups")) @end lisp + +@item message-header-synonyms +@vindex message-header-synonyms +$B%X%C%@!l9g!"(B +@code{message-carefully-insert-headers} $B$O(B @code{To} $B%X%C%@!<$rA^F~$7$^(B +$B$;$s!#(B @end table @node Mail Headers diff --git a/texi/message.texi b/texi/message.texi index 710a8d2..9842735 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -18,7 +18,7 @@ This file documents Message, the Emacs message composition mode. -Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003 +Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software Foundation, Inc. Permission is granted to copy, distribute and/or modify this document @@ -1242,7 +1242,7 @@ controlled by the @code{ispell-message-dictionary-alist} variable: @lisp (setq ispell-message-dictionary-alist '(("^Newsgroups:.*\\bde\\." . "deutsch8") - (".*" . "default"))) + (".*" . "default"))) @end lisp @code{ispell} depends on having the external @samp{ispell} command @@ -1431,6 +1431,13 @@ hidden when composing a message. '(not "From" "Subject" "To" "Cc" "Newsgroups")) @end lisp +@item message-header-synonyms +@vindex message-header-synonyms +A list of lists of header synonyms. E.g., if this list contains a +member list with elements @code{Cc} and @code{To}, then +@code{message-carefully-insert-headers} will not insert a @code{To} +header when the message is already @code{Cc}ed to the recipient. + @end table