projects
/
elisp
/
gnus.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Cleaning up more.
[elisp/gnus.git-]
/
lisp
/
nnslashdot.el
diff --git
a/lisp/nnslashdot.el
b/lisp/nnslashdot.el
index
554afb7
..
4f8e6f6
100644
(file)
--- a/
lisp/nnslashdot.el
+++ b/
lisp/nnslashdot.el
@@
-201,8
+201,8
@@
(set-buffer nntp-server-buffer)
(erase-buffer)
(mm-with-unibyte-current-buffer
(set-buffer nntp-server-buffer)
(erase-buffer)
(mm-with-unibyte-current-buffer
- (dolist (header nnslashdot-headers)
- (nnheader-insert-nov (cdr header)))))
+ (dolist (header nnslashdot-headers)
+ (nnheader-insert-nov (cdr header)))))
'nov))
(deffoo nnslashdot-sane-retrieve-headers (articles group)
'nov))
(deffoo nnslashdot-sane-retrieve-headers (articles group)
@@
-248,7
+248,7
@@
t)
(goto-char point)
(while (re-search-forward
t)
(goto-char point)
(while (re-search-forward
- "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
+ "<a name=\"\\([0-9]+\\)\"><\\(b\\|H4\\)>\\([^<]+\\)</\\(b\\|H4\\)>.*score:\\([^)]+\\))"
nil t)
(setq article (string-to-number (match-string 1))
subject (match-string 3)
nil t)
(setq article (string-to-number (match-string 1))
subject (match-string 3)