/[emacs]/emacs/lisp/gnus/nnslashdot.el
ViewVC logotype

Diff of /emacs/lisp/gnus/nnslashdot.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by zsh, Wed Oct 31 04:16:51 2001 UTC revision 1.3.4.1 by miles, Fri Apr 4 06:20:21 2003 UTC
# Line 98  Line 98 
98           (entry (assoc group nnslashdot-groups))           (entry (assoc group nnslashdot-groups))
99           (sid (nth 2 entry))           (sid (nth 2 entry))
100           (first-comments t)           (first-comments t)
101           headers article subject score from date lines parent point cid           headers article subject score from date lines parent point cid
102           s startats changed)           s startats changed)
103      (save-excursion      (save-excursion
104        (set-buffer nnslashdot-buffer)        (set-buffer nnslashdot-buffer)
# Line 189  Line 189 
189                 from date                 from date
190                 (concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>")                 (concat "<" (nnslashdot-sid-strip sid) "%" cid "@slashdot>")
191                 (if parent                 (if parent
192                     (concat "<" (nnslashdot-sid-strip sid) "%"                     (concat "<" (nnslashdot-sid-strip sid) "%"
193                             parent "@slashdot>")                             parent "@slashdot>")
194                   "")                   "")
195                 0 lines nil nil))                 0 lines nil nil))
# Line 197  Line 197 
197              (while (and articles (<= (car articles) article))              (while (and articles (<= (car articles) article))
198                (pop articles))                (pop articles))
199              (setq article (1+ article)))              (setq article (1+ article)))
200            (if nnslashdot-threaded            (if nnslashdot-threaded
201                (progn                (progn
202                  (setq start (pop startats))                  (setq start (pop startats))
203                  (if start (setq start (+ start 2))))                  (if start (setq start (+ start 2))))
# Line 252  Line 252 
252              (when (numberp article)              (when (numberp article)
253                (if (= article 1)                (if (= article 1)
254                    (progn                    (progn
255                      (re-search-forward                      (re-search-forward
256                       "Posted by")                       "Posted by")
257                      (search-forward "<BR>")                      (search-forward "<BR>")
258                      (setq contents                      (setq contents
# Line 262  Line 262 
262                               (re-search-forward                               (re-search-forward
263                                "&lt;&nbsp;[ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")                                "&lt;&nbsp;[ \t\r\n]*<A HREF=\"\\(\\(http:\\)?//slashdot\\.org\\)?/article")
264                               (match-beginning 0)))))                               (match-beginning 0)))))
265                  (setq cid (cdr (assq article                  (setq cid (cdr (assq article
266                                       (nth 4 (assoc group nnslashdot-groups)))))                                       (nth 4 (assoc group nnslashdot-groups)))))
267                  (search-forward (format "<a name=\"%s\">" cid))                  (search-forward (format "<a name=\"%s\">" cid))
268                  (setq contents                  (setq contents

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.3.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26