Synch with Oort Gnus.

[elisp/gnus.git-] / lisp / nnrss.el

diff --git a/lisp/nnrss.el b/lisp/nnrss.el
index bc4bf58..636c2f1 100644 (file)
--- a/lisp/nnrss.el
+++ b/lisp/nnrss.el
@@ -370,11 +370,12 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
               nnrss-directory)))
     (when (file-exists-p file)
       (with-temp-buffer
-       (let ((coding-system-for-read 'binary))
-         (insert-file-contents file))
-       (emacs-lisp-mode)
-       (goto-char (point-min))
-       (eval-buffer)))))
+       (let ((coding-system-for-read 'binary)
+              emacs-lisp-mode-hook)
+         (insert-file-contents file)
+          (emacs-lisp-mode)
+          (goto-char (point-min))
+          (eval-buffer))))))
 
 (defun nnrss-save-server-data (server)
   (gnus-make-directory nnrss-directory)
@@ -407,11 +408,12 @@ To use the description in headers, put this name into `nnmail-extra-headers'.")
               nnrss-directory)))
     (when (file-exists-p file)
       (with-temp-buffer
-       (let ((coding-system-for-read 'binary))
-         (insert-file-contents file))
-       (emacs-lisp-mode)
-       (goto-char (point-min))
-       (eval-buffer))
+       (let ((coding-system-for-read 'binary)
+              emacs-lisp-mode-hook)
+         (insert-file-contents file)
+          (emacs-lisp-mode)
+          (goto-char (point-min))
+          (eval-buffer)))
       (dolist (e nnrss-group-data)
        (gnus-sethash (nth 2 e) e nnrss-group-hashtb)
        (if (and (car e) (> nnrss-group-min (car e)))