Mercurial > emacs
comparison lisp/gnus/gnus-mlspl.el @ 85712:a3c27999decb
Update Gnus to No Gnus 0.7 from the Gnus CVS trunk
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-911
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 28 Oct 2007 09:18:39 +0000 |
| parents | 24202b793a08 |
| children | 107ccd98fa12 880960b70474 |
comparison
equal
deleted
inserted
replaced
| 85711:b6f5dc84b2e1 | 85712:a3c27999decb |
|---|---|
| 32 (require 'gnus-sum) | 32 (require 'gnus-sum) |
| 33 (require 'gnus-group) | 33 (require 'gnus-group) |
| 34 (require 'nnmail) | 34 (require 'nnmail) |
| 35 | 35 |
| 36 (defvar gnus-group-split-updated-hook nil | 36 (defvar gnus-group-split-updated-hook nil |
| 37 "Hook called just after nnmail-split-fancy is updated by | 37 "Hook called just after `nnmail-split-fancy' is updated by |
| 38 gnus-group-split-update.") | 38 `gnus-group-split-update'.") |
| 39 | 39 |
| 40 (defvar gnus-group-split-default-catch-all-group "mail.misc" | 40 (defvar gnus-group-split-default-catch-all-group "mail.misc" |
| 41 "Group name (or arbitrary fancy split) with default splitting rules. | 41 "Group name (or arbitrary fancy split) with default splitting rules. |
| 42 Used by gnus-group-split and gnus-group-split-update as a fallback | 42 Used by `gnus-group-split' and `gnus-group-split-update' as a fallback |
| 43 split, in case none of the group-based splits matches.") | 43 split, in case none of the group-based splits matches.") |
| 44 | 44 |
| 45 ;;;###autoload | 45 ;;;###autoload |
| 46 (defun gnus-group-split-setup (&optional auto-update catch-all) | 46 (defun gnus-group-split-setup (&optional auto-update catch-all) |
| 47 "Set up the split for nnmail-split-fancy. | 47 "Set up the split for `nnmail-split-fancy'. |
| 48 Sets things up so that nnmail-split-fancy is used for mail | 48 Sets things up so that nnmail-split-fancy is used for mail |
| 49 splitting, and defines the variable nnmail-split-fancy according with | 49 splitting, and defines the variable nnmail-split-fancy according with |
| 50 group parameters. | 50 group parameters. |
| 51 | 51 |
| 52 If AUTO-UPDATE is non-nil (prefix argument accepted, if called | 52 If AUTO-UPDATE is non-nil (prefix argument accepted, if called |
| 53 interactively), it makes sure nnmail-split-fancy is re-computed before | 53 interactively), it makes sure nnmail-split-fancy is re-computed before |
| 54 getting new mail, by adding gnus-group-split-update to | 54 getting new mail, by adding `gnus-group-split-update' to |
| 55 nnmail-pre-get-new-mail-hook. | 55 `nnmail-pre-get-new-mail-hook'. |
| 56 | 56 |
| 57 A non-nil CATCH-ALL replaces the current value of | 57 A non-nil CATCH-ALL replaces the current value of |
| 58 gnus-group-split-default-catch-all-group. This variable is only used | 58 `gnus-group-split-default-catch-all-group'. This variable is only used |
| 59 by gnus-group-split-update, and only when its CATCH-ALL argument is | 59 by gnus-group-split-update, and only when its CATCH-ALL argument is |
| 60 nil. This argument may contain any fancy split, that will be added as | 60 nil. This argument may contain any fancy split, that will be added as |
| 61 the last split in a `|' split produced by gnus-group-split-fancy, | 61 the last split in a `|' split produced by `gnus-group-split-fancy', |
| 62 unless overridden by any group marked as a catch-all group. Typical | 62 unless overridden by any group marked as a catch-all group. Typical |
| 63 uses are as simple as the name of a default mail group, but more | 63 uses are as simple as the name of a default mail group, but more |
| 64 elaborate fancy splits may also be useful to split mail that doesn't | 64 elaborate fancy splits may also be useful to split mail that doesn't |
| 65 match any of the group-specified splitting rules. See | 65 match any of the group-specified splitting rules. See |
| 66 `gnus-group-split-fancy' for details." | 66 `gnus-group-split-fancy' for details." |
| 76 (defun gnus-group-split-update (&optional catch-all) | 76 (defun gnus-group-split-update (&optional catch-all) |
| 77 "Computes nnmail-split-fancy from group params and CATCH-ALL. | 77 "Computes nnmail-split-fancy from group params and CATCH-ALL. |
| 78 It does this by calling by calling (gnus-group-split-fancy nil | 78 It does this by calling by calling (gnus-group-split-fancy nil |
| 79 nil CATCH-ALL). | 79 nil CATCH-ALL). |
| 80 | 80 |
| 81 If CATCH-ALL is nil, gnus-group-split-default-catch-all-group is used | 81 If CATCH-ALL is nil, `gnus-group-split-default-catch-all-group' is used |
| 82 instead. This variable is set by gnus-group-split-setup." | 82 instead. This variable is set by `gnus-group-split-setup'." |
| 83 (interactive) | 83 (interactive) |
| 84 (setq nnmail-split-fancy | 84 (setq nnmail-split-fancy |
| 85 (gnus-group-split-fancy | 85 (gnus-group-split-fancy |
| 86 nil (null nnmail-crosspost) | 86 nil (null nnmail-crosspost) |
| 87 (or catch-all gnus-group-split-default-catch-all-group))) | 87 (or catch-all gnus-group-split-default-catch-all-group))) |
| 88 (run-hooks 'gnus-group-split-updated-hook)) | 88 (run-hooks 'gnus-group-split-updated-hook)) |
| 89 | 89 |
| 90 ;;;###autoload | 90 ;;;###autoload |
| 91 (defun gnus-group-split () | 91 (defun gnus-group-split () |
| 92 "Uses information from group parameters in order to split mail. | 92 "Use information from group parameters in order to split mail. |
| 93 See `gnus-group-split-fancy' for more information. | 93 See `gnus-group-split-fancy' for more information. |
| 94 | 94 |
| 95 gnus-group-split is a valid value for nnmail-split-methods." | 95 `gnus-group-split' is a valid value for `nnmail-split-methods'." |
| 96 (let (nnmail-split-fancy) | 96 (let (nnmail-split-fancy) |
| 97 (gnus-group-split-update) | 97 (gnus-group-split-update) |
| 98 (nnmail-split-fancy))) | 98 (nnmail-split-fancy))) |
| 99 | 99 |
| 100 ;;;###autoload | 100 ;;;###autoload |