[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-mlspl.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/gnus-mlspl.el [emacs-unicode-2] |
Date: |
Thu, 09 Sep 2004 06:03:26 -0400 |
Index: emacs/lisp/gnus/gnus-mlspl.el
diff -c emacs/lisp/gnus/gnus-mlspl.el:1.7.6.1
emacs/lisp/gnus/gnus-mlspl.el:1.7.6.2
*** emacs/lisp/gnus/gnus-mlspl.el:1.7.6.1 Fri Mar 12 00:02:57 2004
--- emacs/lisp/gnus/gnus-mlspl.el Thu Sep 9 09:36:25 2004
***************
*** 1,5 ****
;;; gnus-mlspl.el --- a group params-based mail splitting mechanism
! ;; Copyright (C) 1998, 1999, 2000
;; Free Software Foundation, Inc.
;; Author: Alexandre Oliva <address@hidden>
--- 1,6 ----
;;; gnus-mlspl.el --- a group params-based mail splitting mechanism
!
! ;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2004
;; Free Software Foundation, Inc.
;; Author: Alexandre Oliva <address@hidden>
***************
*** 8,25 ****
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
! ;; it under the terms of the GNU General Public License as published by
! ;; the Free Software Foundation; either version 2, or (at your option)
! ;; any later version.
!
! ;; GNU Emacs is distributed in the hope that it will be useful,
! ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
! ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
! ;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
! ;; along with GNU Emacs; see the file COPYING. If not, write to the
! ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
--- 9,26 ----
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
! ;; it under the terms of the GNU General Public License as published
! ;; by the Free Software Foundation; either version 2, or (at your
! ;; option) any later version.
!
! ;; GNU Emacs is distributed in the hope that it will be useful, but
! ;; WITHOUT ANY WARRANTY; without even the implied warranty of
! ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
! ;; General Public License for more details.
;; You should have received a copy of the GNU General Public License
! ;; along with this program; see the file COPYING. If not, write to
! ;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.
;;; Commentary:
***************
*** 62,68 ****
uses are as simple as the name of a default mail group, but more
elaborate fancy splits may also be useful to split mail that doesn't
match any of the group-specified splitting rules. See
! gnus-group-split-fancy for details."
(interactive "P")
(setq nnmail-split-methods 'nnmail-split-fancy)
(when catch-all
--- 63,69 ----
uses are as simple as the name of a default mail group, but more
elaborate fancy splits may also be useful to split mail that doesn't
match any of the group-specified splitting rules. See
! `gnus-group-split-fancy' for details."
(interactive "P")
(setq nnmail-split-methods 'nnmail-split-fancy)
(when catch-all
***************
*** 73,80 ****
;;;###autoload
(defun gnus-group-split-update (&optional catch-all)
! "Computes nnmail-split-fancy from group params and CATCH-ALL, by
! calling (gnus-group-split-fancy nil nil CATCH-ALL).
If CATCH-ALL is nil, gnus-group-split-default-catch-all-group is used
instead. This variable is set by gnus-group-split-setup."
--- 74,82 ----
;;;###autoload
(defun gnus-group-split-update (&optional catch-all)
! "Computes nnmail-split-fancy from group params and CATCH-ALL.
! It does this by calling by calling (gnus-group-split-fancy nil
! nil CATCH-ALL).
If CATCH-ALL is nil, gnus-group-split-default-catch-all-group is used
instead. This variable is set by gnus-group-split-setup."
***************
*** 88,94 ****
;;;###autoload
(defun gnus-group-split ()
"Uses information from group parameters in order to split mail.
! See gnus-group-split-fancy for more information.
gnus-group-split is a valid value for nnmail-split-methods."
(let (nnmail-split-fancy)
--- 90,96 ----
;;;###autoload
(defun gnus-group-split ()
"Uses information from group parameters in order to split mail.
! See `gnus-group-split-fancy' for more information.
gnus-group-split is a valid value for nnmail-split-methods."
(let (nnmail-split-fancy)
***************
*** 140,151 ****
nnml:mail.others:
\((split-spec . catch-all))
! Calling (gnus-group-split-fancy nil nil \"mail.misc\") returns:
\(| (& (any \"\\\\(address@hidden|address@hidden)\"
\"mail.bar\")
(any \"\\\\(address@hidden|address@hidden|address@hidden)\"
! - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\"))
\"mail.others\")"
(let* ((newsrc (cdr gnus-newsrc-alist))
split)
--- 142,153 ----
nnml:mail.others:
\((split-spec . catch-all))
! Calling (gnus-group-split-fancy nil nil \"mail.others\") returns:
\(| (& (any \"\\\\(address@hidden|address@hidden)\"
\"mail.bar\")
(any \"\\\\(address@hidden|address@hidden|address@hidden)\"
! - \"bugs-foo\" - \"rambling-foo\" \"mail.foo\"))
\"mail.others\")"
(let* ((newsrc (cdr gnus-newsrc-alist))
split)
***************
*** 202,213 ****
(list 'any split-regexp)
;; Generate RESTRICTs for SPLIT-EXCLUDEs.
(if (listp split-exclude)
! (let ((seq split-exclude)
! res)
! (while seq
! (push (cons '- (pop seq))
! res))
! (apply #'nconc (nreverse res)))
(list '- split-exclude))
(list group-clean))
split)
--- 204,212 ----
(list 'any split-regexp)
;; Generate RESTRICTs for SPLIT-EXCLUDEs.
(if (listp split-exclude)
! (apply #'append
! (mapcar (lambda (arg) (list '- arg))
! split-exclude))
(list '- split-exclude))
(list group-clean))
split)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/gnus-mlspl.el [emacs-unicode-2],
Miles Bader <=