[Emacs-diffs] Changes to emacs/lisp/gnus/spam.el [lexbind]

[Miles Bader]

Index: emacs/lisp/gnus/spam.el
diff -c emacs/lisp/gnus/spam.el:1.2.4.2 emacs/lisp/gnus/spam.el:1.2.4.3
*** emacs/lisp/gnus/spam.el:1.2.4.2     Wed Oct  6 05:23:52 2004
--- emacs/lisp/gnus/spam.el     Mon Oct 25 04:22:24 2004
***************
*** 78,84 ****
  (defgroup spam nil
    "Spam configuration.")
  
! (defcustom spam-directory "~/News/spam/"
    "Directory for spam whitelists and blacklists."
    :type 'directory
    :group 'spam)
--- 78,84 ----
  (defgroup spam nil
    "Spam configuration.")
  
! (defcustom spam-directory (nnheader-concat gnus-directory "spam/")
    "Directory for spam whitelists and blacklists."
    :type 'directory
    :group 'spam)
***************
*** 1814,1827 ****
    (remove-hook 'gnus-get-new-news-hook 'spam-setup-widening)
    (remove-hook 'gnus-summary-prepare-hook 'spam-find-spam))
  
  (when spam-install-hooks
    (spam-initialize))
  
  (provide 'spam)
  
- ;;; spam.el ends here.
- 
- (provide 'spam)
- 
  ;;; arch-tag: 07e6e0ca-ab0a-4412-b445-1f6c72a4f27f
  ;;; spam.el ends here
--- 1814,1825 ----
    (remove-hook 'gnus-get-new-news-hook 'spam-setup-widening)
    (remove-hook 'gnus-summary-prepare-hook 'spam-find-spam))
  
+ (add-hook 'spam-unload-hook 'spam-unload-hook)
+ 
  (when spam-install-hooks
    (spam-initialize))
  
  (provide 'spam)
  
  ;;; arch-tag: 07e6e0ca-ab0a-4412-b445-1f6c72a4f27f
  ;;; spam.el ends here