gnus-assq-delete-all.
* gnus-xmas.el (gnus-xmas-assq-delete-all): New function.
2003-05-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
2003-05-13 Lars Magne Ingebrigtsen <larsi@gnus.org>
+ * 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.
* message.el (message-ignored-bounced-headers): Add Delivered-To.
* gnus-sum.el (gnus-summary-find-next): Indent.
"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)
"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)
(gnus-registry-store-extra id alist)))
(defun gnus-registry-fetch-group (id)
(defalias 'gnus-put-text-property 'gnus-xmas-put-text-property)
(defalias 'gnus-deactivate-mark 'ignore)
(defalias 'gnus-window-edges 'window-pixel-edges)
(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))
(if (and (<= emacs-major-version 19)
(< emacs-minor-version 14))
`(open-network-stream ,name ,buffer ,host ,service ,protocol)
`(open-network-stream ,name ,buffer ,host ,service)))
`(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
(provide 'gnus-xmas)
;;; gnus-xmas.el ends here
(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-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)
(defalias 'gnus-add-text-properties 'add-text-properties)
(defalias 'gnus-put-text-property 'put-text-property)
(defvar gnus-mode-line-image-cache t)