[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el |
Date: |
Tue, 04 Feb 2003 08:06:42 -0500 |
Index: emacs/lisp/gnus/nnslashdot.el
diff -c emacs/lisp/gnus/nnslashdot.el:1.3 emacs/lisp/gnus/nnslashdot.el:1.4
*** emacs/lisp/gnus/nnslashdot.el:1.3 Tue Oct 30 23:16:51 2001
--- emacs/lisp/gnus/nnslashdot.el Tue Feb 4 08:06:38 2003
***************
*** 98,104 ****
(entry (assoc group nnslashdot-groups))
(sid (nth 2 entry))
(first-comments t)
! headers article subject score from date lines parent point cid
s startats changed)
(save-excursion
(set-buffer nnslashdot-buffer)
--- 98,104 ----
(entry (assoc group nnslashdot-groups))
(sid (nth 2 entry))
(first-comments t)
! headers article subject score from date lines parent point cid
s startats changed)
(save-excursion
(set-buffer nnslashdot-buffer)
***************
*** 189,195 ****
from date
(concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>")
(if parent
! (concat "<" (nnslashdot-sid-strip sid) "%"
parent "@slashdot>")
"")
0 lines nil nil))
--- 189,195 ----
from date
(concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>")
(if parent
! (concat "<" (nnslashdot-sid-strip sid) "%"
parent "@slashdot>")
"")
0 lines nil nil))
***************
*** 197,203 ****
(while (and articles (<= (car articles) article))
(pop articles))
(setq article (1+ article)))
! (if nnslashdot-threaded
(progn
(setq start (pop startats))
(if start (setq start (+ start 2))))
--- 197,203 ----
(while (and articles (<= (car articles) article))
(pop articles))
(setq article (1+ article)))
! (if nnslashdot-threaded
(progn
(setq start (pop startats))
(if start (setq start (+ start 2))))
***************
*** 252,258 ****
(when (numberp article)
(if (= article 1)
(progn
! (re-search-forward
"Posted by")
(search-forward "<BR>")
(setq contents
--- 252,258 ----
(when (numberp article)
(if (= article 1)
(progn
! (re-search-forward
"Posted by")
(search-forward "<BR>")
(setq contents
***************
*** 262,268 ****
(re-search-forward
"< [ \t\r\n]*<A
HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
(match-beginning 0)))))
! (setq cid (cdr (assq article
(nth 4 (assoc group nnslashdot-groups)))))
(search-forward (format "<a name=\"%s\">" cid))
(setq contents
--- 262,268 ----
(re-search-forward
"< [ \t\r\n]*<A
HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
(match-beginning 0)))))
! (setq cid (cdr (assq article
(nth 4 (assoc group nnslashdot-groups)))))
(search-forward (format "<a name=\"%s\">" cid))
(setq contents
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el,
Juanma Barranquero <=