*** pub/rgnus/lisp/gnus.el Wed Jul 31 21:21:04 1996 --- rgnus/lisp/gnus.el Wed Jul 31 23:03:00 1996 *************** *** 28,34 **** (eval '(run-hooks 'gnus-load-hook)) ! (defconst gnus-version-number "0.2" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) --- 28,34 ---- (eval '(run-hooks 'gnus-load-hook)) ! (defconst gnus-version-number "0.3" "Version number for this version of Gnus.") (defconst gnus-version (format "Red Gnus v%s" gnus-version-number) *** pub/rgnus/lisp/nntp.el Wed Jul 31 21:18:15 1996 --- rgnus/lisp/nntp.el Wed Jul 31 23:04:36 1996 *************** *** 706,718 **** (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)))))) 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)) (nntp-inhibit-erase t)) (if (stringp nntp-server-xover) ;; If `nntp-server-xover' is a string, then we just send this --- 706,720 ---- (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)) ! 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 *** pub/rgnus/lisp/ChangeLog Wed Jul 31 21:37:56 1996 --- rgnus/lisp/ChangeLog Wed Jul 31 23:03:00 1996 *************** *** 1,5 **** --- 1,7 ---- Wed Jul 31 21:38:08 1996 Lars Magne Ingebrigtsen + * 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