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

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

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

revision 1.44 by ttn, Sat Aug 6 19:51:42 2005 UTC revision 1.45 by miles, Tue Oct 4 22:51:06 2005 UTC
# Line 568  If the charset is `composition', return Line 568  If the charset is `composition', return
568      ;; This is for XEmacs.      ;; This is for XEmacs.
569      (mm-mule-charset-to-mime-charset charset)))      (mm-mule-charset-to-mime-charset charset)))
570    
571  (defun mm-delete-duplicates (list)  (if (fboundp 'delete-dups)
572    "Simple substitute for CL `delete-duplicates', testing with `equal'."      (defalias 'mm-delete-duplicates 'delete-dups)
573    (let (result head)    (defun mm-delete-duplicates (list)
574      (while list      "Destructively remove `equal' duplicates from LIST.
575        (setq head (car list))  Store the result in LIST and return it.  LIST must be a proper list.
576        (setq list (delete head list))  Of several `equal' occurrences of an element in LIST, the first
577        (setq result (cons head result)))  one is kept.
578      (nreverse result)))  
579    This is a compatibility function for Emacsen without `delete-dups'."
580        ;; Code from `subr.el' in Emacs 22:
581        (let ((tail list))
582          (while tail
583            (setcdr tail (delete (car tail) (cdr tail)))
584            (setq tail (cdr tail))))
585        list))
586    
587  ;; Fixme:  This is used in places when it should be testing the  ;; Fixme:  This is used in places when it should be testing the
588  ;; default multibyteness.  See mm-default-multibyte-p.  ;; default multibyteness.  See mm-default-multibyte-p.

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

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