Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit f936e6078140c39223ae564f42df69797f0fde6b 1 parent c0931b6
@larsmagne larsmagne authored
Showing with 6 additions and 2 deletions.
  1. +2 −0  lisp/ChangeLog
  2. +1 −1  lisp/gnus.el
  3. +3 −1 lisp/nntp.el
View
2  lisp/ChangeLog
@@ -1,5 +1,7 @@
Wed Jul 31 21:38:08 1996 Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+ * nntp.el (nntp-retrieve-headers-with-xover): Didn't work.
+
* gnus-load.el (gnus-suppress-keymap): New function.
Wed Jul 31 01:20:58 1996 Sudish Joseph <sudish@mindspring.com>
View
2  lisp/gnus.el
@@ -28,7 +28,7 @@
(eval '(run-hooks 'gnus-load-hook))
-(defconst gnus-version-number "0.2"
+(defconst gnus-version-number "0.3"
"Version number for this version of Gnus.")
(defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
View
4 lisp/nntp.el
@@ -706,13 +706,15 @@ It will prompt for a password."
(delete-char -1))
(goto-char (point-min))
(delete-matching-lines "^\\.$\\|^[1-5][0-9][0-9] ")
- (copy-to-buffer nntp-server-buffer (point-min) (point-max))))))
+ ;;(copy-to-buffer nntp-server-buffer (point-min) (point-max))
+ t))))
nntp-server-xover)
(defun nntp-send-xover-command (beg end &optional wait-for-reply)
"Send the XOVER command to the server."
(let ((range (format "%d-%d" beg end))
+ (curbuf (current-buffer))
(nntp-inhibit-erase t))
(if (stringp nntp-server-xover)
;; If `nntp-server-xover' is a string, then we just send this
Please sign in to comment.
Something went wrong with that request. Please try again.