* encrypt.el: add autoload tags

* spam.el (spam-resolve-registrations-routine): remove article
from unregistration list too.  Reported by David Hanak
<dhanak@isis.vanderbilt.edu>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f1f0f6..c232b63 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2004-10-18  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * encrypt.el: add autoload tags
+
+       * spam.el (spam-resolve-registrations-routine): remove article
+       from unregistration list too.  Reported by David Hanak
+       <dhanak@isis.vanderbilt.edu>
+
 2004-10-18  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-art.el (gnus-copy-article-ignored-headers): Default to
@@ -11,6 +19,8 @@
 
 2004-10-15  Teodor Zlatanov  <tzz@lifelogs.com>
 
+       * 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 8393823..8fca281 100644 (file)
--- 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 4ac7815..6cb22c8 100644 (file)
--- 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