2001-01-21 00:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

[gnus] / lisp / nnslashdot.el

diff --git a/lisp/nnslashdot.el b/lisp/nnslashdot.el
index 246a361..94bf470 100644 (file)
--- a/lisp/nnslashdot.el
+++ b/lisp/nnslashdot.el
@@ -1,5 +1,5 @@
 ;;; nnslashdot.el --- interfacing with Slashdot
-;; Copyright (C) 1999, 2000 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
 ;; Keywords: news
@@ -155,7 +155,7 @@
                 "by <a[^>]+>\\([^<]+\\)</a>[ \t\n]*.*(\\([^)]+\\))")
                (progn
                  (goto-char (- (match-end 0) 5))
-                 (setq from (concat 
+                 (setq from (concat
                              (nnweb-decode-entities-string (match-string 1))
                              " <" (match-string 2) ">")))
              (setq from "")
@@ -183,7 +183,7 @@
               (concat subject " (" score ")")
               from date
               (concat "<" (nnslashdot-sid-strip sid) "%"
-                      (number-to-string (1+ article)) 
+                      (number-to-string (1+ article))
                       "@slashdot>")
               (if parent
                   (concat "<" (nnslashdot-sid-strip sid) "%"
@@ -257,7 +257,7 @@
               "by <a[^>]+>\\([^<]+\\)</a>[ \t\n]*.*(\\([^)]+\\))")
              (progn
                (goto-char (- (match-end 0) 5))
-               (setq from (concat 
+               (setq from (concat
                            (nnweb-decode-entities-string (match-string 1))
                            " <" (match-string 2) ">")))
            (setq from "")
@@ -284,7 +284,7 @@
             (1+ article) (concat subject " (" score ")")
             from date
             (concat "<" (nnslashdot-sid-strip sid) "%"
-                    (number-to-string (1+ article)) 
+                    (number-to-string (1+ article))
                     "@slashdot>")
             (if parent
                 (concat "<" (nnslashdot-sid-strip sid) "%"
@@ -385,7 +385,7 @@
        sid elem description articles gname)
     (condition-case why
         ;; First we do the Ultramode to get info on all the latest groups.
-       (progn 
+       (progn
          (mm-with-unibyte-buffer
            (nnweb-insert "http://slashdot.org/slashdot.xml" t)
            (goto-char (point-min))
@@ -431,7 +431,7 @@
     (nnslashdot-write-groups)
     (nnslashdot-generate-active)
     t))
-  
+
 (deffoo nnslashdot-request-newgroups (date &optional server)
   (nnslashdot-possibly-change-server nil server)
   (nnslashdot-generate-active)
@@ -519,7 +519,7 @@
 (defun nnslashdot-write-groups ()
   (with-temp-file (expand-file-name "groups" nnslashdot-directory)
     (prin1 nnslashdot-groups (current-buffer))))
-    
+
 (defun nnslashdot-init (server)
   "Initialize buffers and such."
   (unless (file-exists-p nnslashdot-directory)