# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1124892923 0
# Node ID 53f6f03cfce26a051e7be87a78b51f95f16f1b6c
# Parent  23c9aeba8f591daecc0e2d0087d0e725a4e1453d
(news-inews-hook, news-group-hook-alist, mail-send-hook):
Defvar at compile time.

diff -r 23c9aeba8f59 -r 53f6f03cfce2 lisp/obsolete/swedish.el
--- a/lisp/obsolete/swedish.el	Wed Aug 24 14:00:17 2005 +0000
+++ b/lisp/obsolete/swedish.el	Wed Aug 24 14:15:23 2005 +0000
@@ -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 @@
 
 (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 ? ))