projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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)
(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
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)))
(dolist (e nnrss-group-data)
(gnus-sethash (nth 2 e) e nnrss-group-hashtb)
(if (and (car e) (> nnrss-group-min (car e)))