Commit 6f42bcf2 authored by Juanma Barranquero's avatar Juanma Barranquero
Browse files

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

Defvar at compile time.
parent 9ca3e593
......@@ -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 ? ))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment