From f3ecc9316c7746968c3d3f424d6bc266c26fc413 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Tue, 13 May 2003 21:49:09 +0000 Subject: [PATCH] * gnus-registry.el (gnus-registry-store-extra-entry): Use gnus-assq-delete-all. * gnus-xmas.el (gnus-xmas-assq-delete-all): New function. --- lisp/ChangeLog | 5 +++++ lisp/gnus-registry.el | 2 +- lisp/gnus-xmas.el | 7 +++++++ lisp/gnus.el | 1 + 4 files changed, 14 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2c2b338be..ce64840d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2003-05-13 Lars Magne Ingebrigtsen + * gnus-registry.el (gnus-registry-store-extra-entry): Use + gnus-assq-delete-all. + + * gnus-xmas.el (gnus-xmas-assq-delete-all): New function. + * message.el (message-ignored-bounced-headers): Add Delivered-To. * gnus-sum.el (gnus-summary-find-next): Indent. diff --git a/lisp/gnus-registry.el b/lisp/gnus-registry.el index 606317cd7..e97b1e4ab 100644 --- a/lisp/gnus-registry.el +++ b/lisp/gnus-registry.el @@ -300,7 +300,7 @@ The message must have at least one group name." "Put a specific entry in the extras field of the registry entry for id." (let* ((extra (gnus-registry-fetch-extra id)) (alist (cons (cons key value) - (assq-delete-all key (gnus-registry-fetch-extra id))))) + (gnus-assq-delete-all key (gnus-registry-fetch-extra id))))) (gnus-registry-store-extra id alist))) (defun gnus-registry-fetch-group (id) diff --git a/lisp/gnus-xmas.el b/lisp/gnus-xmas.el index 9225a5a79..a01366a02 100644 --- a/lisp/gnus-xmas.el +++ b/lisp/gnus-xmas.el @@ -390,6 +390,7 @@ call it with the value of the `gnus-data' text property." (defalias 'gnus-put-text-property 'gnus-xmas-put-text-property) (defalias 'gnus-deactivate-mark 'ignore) (defalias 'gnus-window-edges 'window-pixel-edges) + (defalias 'gnus-assq-delete-all 'gnus-xmas-assq-delete-all) (if (and (<= emacs-major-version 19) (< emacs-minor-version 14)) @@ -885,6 +886,12 @@ Warning: Don't insert text immediately after the image." `(open-network-stream ,name ,buffer ,host ,service ,protocol) `(open-network-stream ,name ,buffer ,host ,service))) +(defun gnus-xmas-assq-delete-all (key alist) + (let ((elem nil)) + (while (setq elem (assq key alist)) + (setq alist (delq elem alist))) + alist)) + (provide 'gnus-xmas) ;;; gnus-xmas.el ends here diff --git a/lisp/gnus.el b/lisp/gnus.el index 18a911b4e..672c0d2b1 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -319,6 +319,7 @@ be set in `.emacs' instead." (defalias 'gnus-appt-select-lowest-window 'appt-select-lowest-window) (defalias 'gnus-mail-strip-quoted-names 'mail-strip-quoted-names) (defalias 'gnus-character-to-event 'identity) + (defalias 'gnus-assq-delete-all 'assq-delete-all) (defalias 'gnus-add-text-properties 'add-text-properties) (defalias 'gnus-put-text-property 'put-text-property) (defvar gnus-mode-line-image-cache t) -- 2.34.1