X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fnndb.el;h=d8fb469cd19f08b4678ddc0f31df3a22e1032555;hb=7064878d80c116f154853a32b3851403815b054b;hp=6cc95c3a0ba469ceec0149c2e18f43172b114bc6;hpb=3738187cad20787b5b99c4061256e30e19ee721a;p=elisp%2Fgnus.git-

diff --git a/lisp/nndb.el b/lisp/nndb.el
index 6cc95c3..d8fb469 100644
--- a/lisp/nndb.el
+++ b/lisp/nndb.el
@@ -60,12 +60,6 @@
 (eval-when-compile (require 'cl))
 
 (eval-and-compile
-  (unless (fboundp 'open-network-stream)
-    (require 'tcp)))
-
-(eval-when-compile (require 'cl))
-
-(eval-and-compile
   (autoload 'news-setup "rnewspost")
   (autoload 'news-reply-mode "rnewspost")
   (autoload 'cancel-timer "timer")
@@ -202,12 +196,12 @@ article was posted to nndb")
     (set-buffer nntp-server-buffer)
     (goto-char (point-min))
     (if (looking-at "^[34]")
-       ;; x-expire returned error--presume no articles were expirable)
+	;; x-expire returned error--presume no articles were expirable)
 	(setq list nil)
       ;; otherwise, pull all of the following numbers into the list
       (re-search-forward "follows\r?\n?" nil t)
       (while (re-search-forward "^[0-9]+$" nil t)
-      (push (string-to-int (match-string 0)) list)))
+	(push (string-to-int (match-string 0)) list)))
     list))
 
 (defun nndb-request-expire-articles-remote
@@ -219,15 +213,15 @@ article was posted to nndb")
     ;; first calculate the wait period in days
     (setq days (or (and nnmail-expiry-wait-function
 			(funcall nnmail-expiry-wait-function group))
-    nnmail-expiry-wait))
+		   nnmail-expiry-wait))
     ;; now handle the special cases
     (cond (force
-    (setq days 0))
+	   (setq days 0))
 	  ((eq days 'never)
 	   ;; This isn't an expirable group.
-	  (setq days -1))
+	   (setq days -1))
 	  ((eq days 'immediate)
-	  (setq days 0)))
+	   (setq days 0)))
 
 
     ;; build article string
@@ -268,19 +262,19 @@ Optional LAST is ignored."
 	  (cons new-group article))
       ;; else move normally
       (let ((artbuf (get-buffer-create " *nndb move*")))
-      (and
-       (nndb-request-article article group server artbuf)
-       (save-excursion
-	 (set-buffer artbuf)
-	 (insert-buffer-substring nntp-server-buffer)
-	 (setq result (eval accept-form))
-	 (kill-buffer (current-buffer))
-	 result)
-       (nndb-request-expire-articles (list article)
-				     group
-				     server
-				     t))
-      result)
+	(and
+	 (nndb-request-article article group server artbuf)
+	 (save-excursion
+	   (set-buffer artbuf)
+	   (insert-buffer-substring nntp-server-buffer)
+	   (setq result (eval accept-form))
+	   (kill-buffer (current-buffer))
+	   result)
+	 (nndb-request-expire-articles (list article)
+				       group
+				       server
+				       t))
+	result)
       )))
 
 (deffoo nndb-request-accept-article (group server &optional last)
@@ -307,11 +301,11 @@ Optional LAST is ignored."
     (nntp-send-buffer "^[23.*\n")
     (list (int-to-string article))))
 
-			    ; nndb-request-delete-group does not exist
-					; todo -- maybe later
+; nndb-request-delete-group does not exist
+; todo -- maybe later
 
-			    ; nndb-request-rename-group does not exist
-					; todo -- maybe later
+; nndb-request-rename-group does not exist
+; todo -- maybe later
 
 ;; -- standard compatability functions