(news-inews-hook, news-group-hook-alist, mail-send-hook):

Defvar at compile time.

diff --git a/lisp/obsolete/swedish.el b/lisp/obsolete/swedish.el
index 0deb1b3425d298e1a5f5566a6b27a0a39acfbef8..5e1794705a92adc51d32fb0b79a1135702b7d1f6 100644 (file)
--- a/lisp/obsolete/swedish.el
+++ b/lisp/obsolete/swedish.el
@@ -33,6 +33,11 @@
 
 (require 'latin-1)
 
+(eval-when-compile
+  (defvar news-inews-hook)
+  (defvar news-group-hook-alist)
+  (defvar mail-send-hook))
+
 (defvar swedish-re
   "[ \t\n]\\(och\\|att\\|en\\|{r\\|\\[R\\|p}\\|P\\]\\|som\\|det\\|av\\|den\\|f|r\\|F\\\\R\\)[ \t\n.,?!:;'\")}]"
   "Regular expression for common Swedish words.")
@@ -77,10 +82,9 @@ Leaves point just after the word that looks Swedish."
 
 (setq rmail-show-message-hook 'swascii-to-8859-buffer-maybe)
 
-(or (boundp 'news-group-hook-alist) (setq news-group-hook-alist nil))
 (setq news-group-hook-alist
       (append '(("^swnet." . swascii-to-8859-buffer-maybe))
-             news-group-hook-alist))
+             (bound-and-true-p news-group-hook-alist)))
 
 (defvar 8859-to-swascii-trans
   (let ((string (make-string 256 ? ))