diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/lisp/ChangeLog dgnus/lisp/ChangeLog *** pub/dgnus/lisp/ChangeLog Wed Mar 22 09:06:46 1995 --- dgnus/lisp/ChangeLog Wed Mar 22 14:03:59 1995 *************** *** 1,3 **** --- 1,11 ---- + Wed Mar 22 13:55:21 1995 Lars Ingebrigtsen + + * nntp.el (nntp-send-mode-reader): Blocked reading of active list. + + Wed Mar 22 13:55:05 1995 Lars Ingebrigtsen + + * gnus.el: 0.37 is released. + Wed Mar 22 08:37:15 1995 Lars Magne Ingebrigtsen * nntp.el (nntp-send-mode-reader): Actually send the mode reader diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/lisp/gnus.el dgnus/lisp/gnus.el *** pub/dgnus/lisp/gnus.el Wed Mar 22 09:06:42 1995 --- dgnus/lisp/gnus.el Wed Mar 22 14:04:01 1995 *************** *** 1203,1209 **** (defconst gnus-maintainer "Lars Magne Ingebrigtsen " "The mail address of the Gnus maintainer.") ! (defconst gnus-version "(ding) Gnus v0.37" "Version number for this version of Gnus.") (defvar gnus-info-nodes --- 1203,1209 ---- (defconst gnus-maintainer "Lars Magne Ingebrigtsen " "The mail address of the Gnus maintainer.") ! (defconst gnus-version "(ding) Gnus v0.38" "Version number for this version of Gnus.") (defvar gnus-info-nodes *************** *** 3797,3804 **** --- 3797,3814 ---- (progn (run-hooks 'gnus-exit-gnus-hook) (gnus-save-newsrc-file) + (gnus-close-backends) (gnus-clear-system)))) + (defun gnus-close-backends () + (let ((methods gnus-valid-select-methods) + func) + (while methods + (if (fboundp (setq func (intern (concat (car (car methods)) + "-request-close")))) + (funcall func)) + (setq methods (cdr methods))))) + (defun gnus-group-quit () "Quit reading news without updating .newsrc.eld or .newsrc. The hook `gnus-exit-gnus-hook' is called before actually exiting." *************** *** 3814,3819 **** --- 3824,3830 ---- (progn (run-hooks 'gnus-exit-gnus-hook) (gnus-dribble-save) + (gnus-close-backends) (gnus-clear-system)))) (defun gnus-group-describe-briefly () diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/lisp/nntp.el dgnus/lisp/nntp.el *** pub/dgnus/lisp/nntp.el Wed Mar 22 09:06:43 1995 --- dgnus/lisp/nntp.el Wed Mar 22 14:04:02 1995 *************** *** 423,436 **** This function is supposed to be called from `nntp-server-opened-hook'. It will make innd servers enter nnrpd mode to allow actual article reading." ! (nntp-send-command nil "MODE READER")) (defun nntp-send-authinfo () "Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. It will prompt for a password." ! (nntp-send-command nil "AUTHINFO USER" (user-login-name)) ! (nntp-send-command nil "AUTHINFO PASS" (read-string "NNTP password: "))) (defun nntp-default-sentinel (proc status) "Default sentinel function for NNTP server process." --- 423,436 ---- This function is supposed to be called from `nntp-server-opened-hook'. It will make innd servers enter nnrpd mode to allow actual article reading." ! (nntp-send-command "^.*\r$" "MODE READER")) (defun nntp-send-authinfo () "Send the AUTHINFO to the nntp server. This function is supposed to be called from `nntp-server-opened-hook'. It will prompt for a password." ! (nntp-send-command "^.*\r$" "AUTHINFO USER" (user-login-name)) ! (nntp-send-command "^.*\r$" "AUTHINFO PASS" (read-string "NNTP password: "))) (defun nntp-default-sentinel (proc status) "Default sentinel function for NNTP server process." *************** *** 691,706 **** (if nntp-server-process (delete-process nntp-server-process)) (setq nntp-server-process nil) ! (let* ((servers nntp-server-alist) ! (prev servers)) ! (if (and servers (string= (car (car servers)) server)) ! (setq nntp-server-alist (cdr nntp-server-alist)) ! (setq servers (cdr servers)) ! (while servers ! (if (string= (car (car servers)) server) ! (setcdr prev (cdr servers))) ! (setq prev servers) ! (setq servers (cdr servers)))))) (defun nntp-request-close () "Close all server connections." --- 691,699 ---- (if nntp-server-process (delete-process nntp-server-process)) (setq nntp-server-process nil) ! (setq nntp-server-alist (delq (assoc nntp-current-server nntp-server-alist) ! nntp-server-alist)) ! (setq nntp-current-server "")) (defun nntp-request-close () "Close all server connections." diff --exclude=*.elc --exclude=*~ --exclude=*-[0-9] --exclude=gnus --context --recursive pub/dgnus/readme dgnus/readme *** pub/dgnus/readme Sat Dec 31 23:46:40 1994 --- dgnus/readme Tue Mar 21 02:37:46 1995 *************** *** 1,18 **** ! This package contains a pre-release of (ding) Gnus, version 0.5. The ! lisp directory contains the source lisp files, and the texi directory ! contains an early draft of the Gnus info pages. ! ! IMPORTANT NOTE FOR NNML USERS: If you have used an earlier version of ! this package, you have to do the following: ! ! ESC ESC (load "nnml") ! M-x nnml-generate-nov-databases ! ! nnml will chew on your mail for a while, and then you can use Gnus ! again. Do not attempt to start Gnus before you have done this. ! ! (This note only applies to people who use nnml as a mail backedn.) ! Gnus is meant to be totally compatible with GNUS. But, alas, it probably isn't, which is one of the reasons for this pre-release. --- 1,6 ---- ! This package contains a pre-release of (ding) Gnus, version 0.37 or ! thereabouts . The lisp directory contains the source lisp files, and ! the texi directory contains an early draft of the Gnus info pages. Gnus is meant to be totally compatible with GNUS. But, alas, it probably isn't, which is one of the reasons for this pre-release.