emacs-diffs
[Top][All Lists]
Advanced

[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)




reply via email to

[Prev in Thread] Current Thread [Next in Thread]