From a14997dba88c8e5e48b0a08e593944d151d7731a Mon Sep 17 00:00:00 2001 From: Teodor Zlatanov Date: Mon, 18 Oct 2004 18:25:22 +0000 Subject: [PATCH] * encrypt.el: add autoload tags * spam.el (spam-resolve-registrations-routine): remove article from unregistration list too. Reported by David Hanak --- lisp/ChangeLog | 10 ++++++++++ lisp/encrypt.el | 2 ++ lisp/spam.el | 7 ++++--- 3 files changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4f1f0f674..c232b6305 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-10-18 Teodor Zlatanov + + * encrypt.el: add autoload tags + + * spam.el (spam-resolve-registrations-routine): remove article + from unregistration list too. Reported by David Hanak + + 2004-10-18 Reiner Steib * gnus-art.el (gnus-copy-article-ignored-headers): Default to @@ -11,6 +19,8 @@ 2004-10-15 Teodor Zlatanov + * encrypt.el: add autoload cookies + * spam.el (spam-backend-article-list-property) (spam-backend-get-article-todo-list) (spam-backend-put-article-todo-list, ) diff --git a/lisp/encrypt.el b/lisp/encrypt.el index 83938239d..8fca28110 100644 --- a/lisp/encrypt.el +++ b/lisp/encrypt.el @@ -94,6 +94,7 @@ Format example: (defvar encrypt-temp-prefix "encrypt" "Prefix for temporary filenames") +;;;###autoload (defun encrypt-find-model (filename) "Given a filename, find a encrypt-file-alist entry" (dolist (entry encrypt-file-alist) @@ -103,6 +104,7 @@ Format example: (string-match match filename)) (return model))))) +;;;###autoload (defun encrypt-insert-file-contents (file &optional model) "Decrypt FILE into the current buffer." (interactive "fFile to insert: ") diff --git a/lisp/spam.el b/lisp/spam.el index 4ac781513..6cb22c8ec 100644 --- a/lisp/spam.el +++ b/lisp/spam.el @@ -1704,10 +1704,11 @@ See the Info node `(gnus)Fancy Mail Splitting' for more details." t) ;; eliminate duplicates - (dolist (article ulist) - (when (assq article rlist) + (dolist (article (copy-sequence ulist)) + (when (memq article rlist) (incf delcount) - (setq rlist (delq article rlist)))) + (setq rlist (delq article rlist)) + (setq ulist (delq article ulist)))) (unless (zerop delcount) (gnus-message -- 2.34.1