Mercurial > emacs
comparison lisp/gnus/mm-util.el @ 65846:a4e8d78ae3fb
Revision: miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-574
Merge from gnus--rel--5.10
2005-10-04 Reiner Steib <Reiner.Steib@gmx.de>
* lisp/gnus/mm-url.el (mm-url-predefined-programs): Add switches for curl.
* lisp/gnus/gnus-util.el (gnus-remove-duplicates): Remove.
* lisp/gnus/nnmail.el (nnmail-article-group): Use mm-delete-duplicates
instead of gnus-remove-duplicates.
* lisp/gnus/message.el (message-remove-duplicates): Remove.
(message-idna-to-ascii-rhs-1): Use mm-delete-duplicates instead of
message-remove-duplicates.
* lisp/gnus/mm-util.el (mm-delete-duplicates): Use `delete-dups' if
available, else use implementation from `delete-dups'.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Tue, 04 Oct 2005 22:51:06 +0000 |
| parents | fafd692d1e40 |
| children | 1077b8039c32 aa89c814f853 |
comparison
equal
deleted
inserted
replaced
| 65845:3c2a85b1a338 | 65846:a4e8d78ae3fb |
|---|---|
| 566 (mm-preferred-coding-system charset) | 566 (mm-preferred-coding-system charset) |
| 567 (mm-mule-charset-to-mime-charset charset)) | 567 (mm-mule-charset-to-mime-charset charset)) |
| 568 ;; This is for XEmacs. | 568 ;; This is for XEmacs. |
| 569 (mm-mule-charset-to-mime-charset charset))) | 569 (mm-mule-charset-to-mime-charset charset))) |
| 570 | 570 |
| 571 (defun mm-delete-duplicates (list) | 571 (if (fboundp 'delete-dups) |
| 572 "Simple substitute for CL `delete-duplicates', testing with `equal'." | 572 (defalias 'mm-delete-duplicates 'delete-dups) |
| 573 (let (result head) | 573 (defun mm-delete-duplicates (list) |
| 574 (while list | 574 "Destructively remove `equal' duplicates from LIST. |
| 575 (setq head (car list)) | 575 Store the result in LIST and return it. LIST must be a proper list. |
| 576 (setq list (delete head list)) | 576 Of several `equal' occurrences of an element in LIST, the first |
| 577 (setq result (cons head result))) | 577 one is kept. |
| 578 (nreverse result))) | 578 |
| 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)) | |
| 579 | 586 |
| 580 ;; Fixme: This is used in places when it should be testing the | 587 ;; Fixme: This is used in places when it should be testing the |
| 581 ;; default multibyteness. See mm-default-multibyte-p. | 588 ;; default multibyteness. See mm-default-multibyte-p. |
| 582 (eval-and-compile | 589 (eval-and-compile |
| 583 (if (and (not (featurep 'xemacs)) | 590 (if (and (not (featurep 'xemacs)) |