/[emacs]/emacs/lisp/gnus/gnus-util.el
ViewVC logotype

Diff of /emacs/lisp/gnus/gnus-util.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.35 by rfrancoise, Sat Sep 24 13:46:19 2005 UTC revision 1.36 by miles, Tue Oct 4 22:51:05 2005 UTC
# Line 1037  This function saves the current buffer." Line 1037  This function saves the current buffer."
1037           (set-buffer gnus-group-buffer)           (set-buffer gnus-group-buffer)
1038           (eq major-mode 'gnus-group-mode))))           (eq major-mode 'gnus-group-mode))))
1039    
 (defun gnus-remove-duplicates (list)  
   (let (new)  
     (while list  
       (or (member (car list) new)  
           (setq new (cons (car list) new)))  
       (setq list (cdr list)))  
     (nreverse new)))  
   
1040  (defun gnus-remove-if (predicate list)  (defun gnus-remove-if (predicate list)
1041    "Return a copy of LIST with all items satisfying PREDICATE removed."    "Return a copy of LIST with all items satisfying PREDICATE removed."
1042    (let (out)    (let (out)

Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26