[Emacs-diffs] Changes to emacs/lisp/gnus/nnslashdot.el

[Juanma Barranquero]

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
                              "&lt;&nbsp;[ \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
                              "&lt;&nbsp;[ \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