*** pub/qgnus/lisp/gnus-agent.el	Thu Sep 24 19:52:00 1998
--- qgnus/lisp/gnus-agent.el	Thu Nov 19 04:40:04 1998
***************
*** 1384,1395 ****
  	       ;; Maybe everything has been expired from `gnus-article-alist'
  	       ;; and so the above marking as read could not be conducted,
  	       ;; or there are expired article within the range of the alist.
! 	       (when (or (not (caar gnus-agent-article-alist))
! 			 (> (car expired) (caar gnus-agent-article-alist)))  
! 	       (setcar (nthcdr 2 info)
! 		       (gnus-add-to-range
! 			(nth 2 info)
! 			(nreverse expired))))
  	       (gnus-dribble-enter
  		(concat "(gnus-group-set-info '"
  			(gnus-prin1-to-string info)
--- 1384,1397 ----
  	       ;; Maybe everything has been expired from `gnus-article-alist'
  	       ;; and so the above marking as read could not be conducted,
  	       ;; or there are expired article within the range of the alist.
! 	       (when (and (car expired)
! 			  (or (not (caar gnus-agent-article-alist))
! 			      (> (car expired)
! 				 (caar gnus-agent-article-alist))) )
! 		 (setcar (nthcdr 2 info)
! 			 (gnus-add-to-range
! 			  (nth 2 info)
! 			  (nreverse expired))))
  	       (gnus-dribble-enter
  		(concat "(gnus-group-set-info '"
  			(gnus-prin1-to-string info)
*** pub/qgnus/lisp/gnus-async.el	Mon Jun  1 04:30:16 1998
--- qgnus/lisp/gnus-async.el	Thu Nov 19 04:40:05 1998
***************
*** 213,223 ****
         (when arg
  	 (gnus-async-set-buffer)
  	 (gnus-async-with-semaphore
! 	  (push (list ',(intern (format "%s-%d" group article)
! 				gnus-asynch-obarray)
! 		      ,mark (set-marker (make-marker) (point-max))
! 		      ,group ,article)
! 		gnus-async-article-alist)))
         (if (not (gnus-buffer-live-p ,summary))
  	   (gnus-async-with-semaphore
  	    (setq gnus-async-fetch-list nil))
--- 213,225 ----
         (when arg
  	 (gnus-async-set-buffer)
  	 (gnus-async-with-semaphore
! 	  (setq
! 	   gnus-async-article-alist
! 	   (cons (list ',(intern (format "%s-%d" group article)
! 				 gnus-asynch-obarray)
! 		       ,mark (set-marker (make-marker) (point-max))
! 		       ,group ,article)
! 		 gnus-async-article-alist))))
         (if (not (gnus-buffer-live-p ,summary))
  	   (gnus-async-with-semaphore
  	    (setq gnus-async-fetch-list nil))
*** pub/qgnus/lisp/gnus-cache.el	Sat Aug 29 19:18:02 1998
--- qgnus/lisp/gnus-cache.el	Thu Nov 19 04:40:05 1998
***************
*** 642,647 ****
--- 642,649 ----
      (when top
        (gnus-message 5 "Generating the cache active file...")
        (setq gnus-cache-active-hashtb (gnus-make-hashtable 123)))
+     (when (string-match "^\\(nn[^_]+\\)_" group)
+       (setq group (replace-match "\\1:" t t group)))
      ;; Separate articles from all other files and directories.
      (while files
        (if (string-match "^[0-9]+$" (file-name-nondirectory (car files)))
***************
*** 654,660 ****
      ;; Go through all the other files.
      (while alphs
        (when (and (file-directory-p (car alphs))
! 		 (not (string-match "^\\.\\.?$"
  				    (file-name-nondirectory (car alphs)))))
  	;; We descend directories.
  	(gnus-cache-generate-active (car alphs)))
--- 656,662 ----
      ;; Go through all the other files.
      (while alphs
        (when (and (file-directory-p (car alphs))
! 		 (not (string-match "^\\."
  				    (file-name-nondirectory (car alphs)))))
  	;; We descend directories.
  	(gnus-cache-generate-active (car alphs)))
*** pub/qgnus/lisp/gnus-draft.el	Thu Sep 24 19:52:00 1998
--- qgnus/lisp/gnus-draft.el	Thu Nov 19 04:40:05 1998
***************
*** 133,145 ****
  	(message-remove-header gnus-agent-meta-information-header)))
      ;; Then we send it.  If we have no meta-information, we just send
      ;; it and let Message figure out how.
!     (when (if type
! 	      (let ((message-this-is-news (eq type 'news))
! 		    (message-this-is-mail (eq type 'mail))
! 		    (gnus-post-method method)
! 		    (message-post-method method))
! 		(message-send-and-exit))
! 	    (message-send-and-exit))
        (let ((gnus-verbose-backends nil))
  	(gnus-request-expire-articles
  	 (list article) (or group "nndraft:queue") t)))))
--- 133,148 ----
  	(message-remove-header gnus-agent-meta-information-header)))
      ;; Then we send it.  If we have no meta-information, we just send
      ;; it and let Message figure out how.
!     (when (and (or (null method)
! 		   (gnus-server-opened method)
! 		   (gnus-open-server method))
! 	       (if type
! 		   (let ((message-this-is-news (eq type 'news))
! 			 (message-this-is-mail (eq type 'mail))
! 			 (gnus-post-method method)
! 			 (message-post-method method))
! 		     (message-send-and-exit))
! 		 (message-send-and-exit)))
        (let ((gnus-verbose-backends nil))
  	(gnus-request-expire-articles
  	 (list article) (or group "nndraft:queue") t)))))
*** pub/qgnus/lisp/gnus-group.el	Thu Aug 27 11:03:57 1998
--- qgnus/lisp/gnus-group.el	Thu Nov 19 04:40:05 1998
***************
*** 3048,3054 ****
        (mapatoms
         (lambda (group)
  	 (and (string-match regexp (symbol-value group))
- 	      (gnus-active (symbol-name group))
  	      (push (symbol-name group) groups)))
         gnus-description-hashtb))
      (if (not groups)
--- 3048,3053 ----
*** pub/qgnus/lisp/gnus-util.el	Thu Sep 24 19:52:01 1998
--- qgnus/lisp/gnus-util.el	Thu Nov 19 04:40:06 1998
***************
*** 35,40 ****
--- 35,41 ----
  (require 'nnheader)
  (require 'timezone)
  (require 'message)
+ (eval-when-compile (require 'rmail))
  
  (eval-and-compile
    (autoload 'nnmail-date-to-time "nnmail")
***************
*** 723,729 ****
    (setq filename (expand-file-name filename))
    (setq rmail-default-rmail-file filename)
    (let ((artbuf (current-buffer))
! 	(tmpbuf (gnus-get-buffer-create " *Gnus-output*")))
      (save-excursion
        (or (get-file-buffer filename)
  	  (file-exists-p filename)
--- 724,730 ----
    (setq filename (expand-file-name filename))
    (setq rmail-default-rmail-file filename)
    (let ((artbuf (current-buffer))
! 	(tmpbuf (get-buffer-create " *Gnus-output*")))
      (save-excursion
        (or (get-file-buffer filename)
  	  (file-exists-p filename)
***************
*** 774,780 ****
    "Append the current article to a mail file named FILENAME."
    (setq filename (expand-file-name filename))
    (let ((artbuf (current-buffer))
! 	(tmpbuf (gnus-get-buffer-create " *Gnus-output*")))
      (save-excursion
        ;; Create the file, if it doesn't exist.
        (when (and (not (get-file-buffer filename))
--- 775,781 ----
    "Append the current article to a mail file named FILENAME."
    (setq filename (expand-file-name filename))
    (let ((artbuf (current-buffer))
! 	(tmpbuf (get-buffer-create " *Gnus-output*")))
      (save-excursion
        ;; Create the file, if it doesn't exist.
        (when (and (not (get-file-buffer filename))
*** pub/qgnus/lisp/gnus.el	Thu Sep 24 19:52:01 1998
--- qgnus/lisp/gnus.el	Thu Nov 19 04:40:06 1998
***************
*** 250,256 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.44"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 250,256 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.45"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 1582,1588 ****
        timezone-make-sortable-date timezone-make-time-string)
       ("rmailout" rmail-output)
       ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages
!       rmail-show-message)
       ("gnus-audio" :interactive t gnus-audio-play)
       ("gnus-xmas" gnus-xmas-splash)
       ("gnus-soup" :interactive t
--- 1582,1589 ----
        timezone-make-sortable-date timezone-make-time-string)
       ("rmailout" rmail-output)
       ("rmail" rmail-insert-rmail-file-header rmail-count-new-messages
!       rmail-show-message rmail-summary-exists
!       rmail-select-summary rmail-update-summary)
       ("gnus-audio" :interactive t gnus-audio-play)
       ("gnus-xmas" gnus-xmas-splash)
       ("gnus-soup" :interactive t
*** pub/qgnus/lisp/message.el	Thu Sep 24 19:52:02 1998
--- qgnus/lisp/message.el	Thu Nov 19 04:40:07 1998
***************
*** 644,653 ****
  The default is `abbrev', which uses mailabbrev.  nil switches
  mail aliases off.")
  
! (defcustom message-autosave-directory
    (nnheader-concat message-directory "drafts/")
!   "*Directory where Message autosaves buffers if Gnus isn't running.
! If nil, Message won't autosave."
    :group 'message-buffers
    :type 'directory)
  
--- 644,653 ----
  The default is `abbrev', which uses mailabbrev.  nil switches
  mail aliases off.")
  
! (defcustom message-auto-save-directory
    (nnheader-concat message-directory "drafts/")
!   "*Directory where Message auto-saves buffers if Gnus isn't running.
! If nil, Message won't auto-save."
    :group 'message-buffers
    :type 'directory)
  
***************
*** 1941,1947 ****
  	;; (mail-hist-put-headers-into-history))
  	(run-hooks 'message-sent-hook)
  	(message "Sending...done")
! 	;; Mark the buffer as unmodified and delete autosave.
  	(set-buffer-modified-p nil)
  	(delete-auto-save-file-if-necessary t)
  	(message-disassociate-draft)
--- 1941,1947 ----
  	;; (mail-hist-put-headers-into-history))
  	(run-hooks 'message-sent-hook)
  	(message "Sending...done")
! 	;; Mark the buffer as unmodified and delete auto-save.
  	(set-buffer-modified-p nil)
  	(delete-auto-save-file-if-necessary t)
  	(message-disassociate-draft)
***************
*** 3213,3224 ****
  
  (defun message-set-auto-save-file-name ()
    "Associate the message buffer with a file in the drafts directory."
!   (when message-autosave-directory
      (if (gnus-alive-p)
  	(setq message-draft-article
  	      (nndraft-request-associate-buffer "drafts"))
        (setq buffer-file-name (expand-file-name "*message*"
! 					       message-autosave-directory))
        (setq buffer-auto-save-file-name (make-auto-save-file-name)))
      (clear-visited-file-modtime)))
  
--- 3213,3224 ----
  
  (defun message-set-auto-save-file-name ()
    "Associate the message buffer with a file in the drafts directory."
!   (when message-auto-save-directory
      (if (gnus-alive-p)
  	(setq message-draft-article
  	      (nndraft-request-associate-buffer "drafts"))
        (setq buffer-file-name (expand-file-name "*message*"
! 					       message-auto-save-directory))
        (setq buffer-auto-save-file-name (make-auto-save-file-name)))
      (clear-visited-file-modtime)))
  
*** pub/qgnus/lisp/nnagent.el	Sat Jul 25 02:41:38 1998
--- qgnus/lisp/nnagent.el	Thu Nov 19 04:40:07 1998
***************
*** 73,79 ****
  	     (ftp-error (setq err (format "%s" arg)))))
        (nnagent-close-server)
        (nnheader-report
!        'nnagent (or err "No such file or directory: %s" dir)))
       ((not (file-directory-p (file-truename dir)))
        (nnagent-close-server)
        (nnheader-report 'nnagent "Not a directory: %s" dir))
--- 73,80 ----
  	     (ftp-error (setq err (format "%s" arg)))))
        (nnagent-close-server)
        (nnheader-report
!        'nnagent (or err
! 		    (format "No such file or directory: %s" dir))))
       ((not (file-directory-p (file-truename dir)))
        (nnagent-close-server)
        (nnheader-report 'nnagent "Not a directory: %s" dir))
*** pub/qgnus/lisp/nngateway.el	Sat Jun 27 07:55:45 1998
--- qgnus/lisp/nngateway.el	Thu Nov 19 04:40:07 1998
***************
*** 25,30 ****
--- 25,31 ----
  
  ;;; Code:
  
+ (eval-when-compile (require 'cl))
  (require 'nnoo)
  (require 'message)
  
*** pub/qgnus/lisp/nnmail.el	Sun Sep  6 20:13:07 1998
--- qgnus/lisp/nnmail.el	Thu Nov 19 04:40:07 1998
***************
*** 1140,1147 ****
  		       ;; group twice.
  		       (not (assoc (car method) group-art)))
  		  (push (cons (if regrepp
! 				  (replace-match
! 				   (car method) nil nil (car method))
  				(car method))
  			      (funcall func (car method)))
  			group-art))
--- 1140,1146 ----
  		       ;; group twice.
  		       (not (assoc (car method) group-art)))
  		  (push (cons (if regrepp
! 				  (nnmail-expand-newtext (car method))
  				(car method))
  			      (funcall func (car method)))
  			group-art))
*** pub/qgnus/lisp/nntp.el	Thu Aug 27 11:04:01 1998
--- qgnus/lisp/nntp.el	Thu Nov 19 04:40:07 1998
***************
*** 652,658 ****
  
  (deffoo nntp-request-group (group &optional server dont-check)
    (nntp-possibly-change-group nil server)
!   (when (nntp-send-command "^21.*\n" "GROUP" group)
      (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
        (setcar (cddr entry) group))))
  
--- 652,658 ----
  
  (deffoo nntp-request-group (group &optional server dont-check)
    (nntp-possibly-change-group nil server)
!   (when (nntp-send-command "^[245].*\n" "GROUP" group)
      (let ((entry (nntp-find-connection-entry nntp-server-buffer)))
        (setcar (cddr entry) group))))
  
***************
*** 979,985 ****
  	  (set-buffer (process-buffer (car entry)))
  	  (erase-buffer)
  	  (nntp-send-string (car entry) (concat "GROUP " group))
! 	  (nntp-wait-for-string "^2.*\n")
  	  (setcar (cddr entry) group)
  	  (erase-buffer))))))
  
--- 979,987 ----
  	  (set-buffer (process-buffer (car entry)))
  	  (erase-buffer)
  	  (nntp-send-string (car entry) (concat "GROUP " group))
! 	  ;; allow for unexpected responses, since this can be called
! 	  ;; from a timer with quit inhibited
! 	  (nntp-wait-for-string "^[245].*\n")
  	  (setcar (cddr entry) group)
  	  (erase-buffer))))))
  
*** pub/qgnus/lisp/pop3.el	Sun Feb 22 04:19:20 1998
--- qgnus/lisp/pop3.el	Thu Nov 19 04:40:07 1998
***************
*** 1,10 ****
  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface
  
! ;; Copyright (C) 1996,1997 Free Software Foundation, Inc.
  
  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
  ;; Keywords: mail, pop3
! ;; Version: 1.3l
  
  ;; This file is part of GNU Emacs.
  
--- 1,10 ----
  ;;; pop3.el --- Post Office Protocol (RFC 1460) interface
  
! ;; Copyright (C) 1996,1997,1998 Free Software Foundation, Inc.
  
  ;; Author: Richard L. Pieri <ratinox@peorth.gweep.net>
  ;; Keywords: mail, pop3
! ;; Version: 1.3m
  
  ;; This file is part of GNU Emacs.
  
***************
*** 37,43 ****
  (require 'mail-utils)
  (provide 'pop3)
  
! (defconst pop3-version "1.3l")
  
  (defvar pop3-maildrop (or (user-login-name) (getenv "LOGNAME") (getenv "USER") nil)
    "*POP3 maildrop.")
--- 37,43 ----
  (require 'mail-utils)
  (provide 'pop3)
  
! (defconst pop3-version "1.3m")
  
  (defvar pop3-maildrop (or (user-login-name) (getenv "LOGNAME") (getenv "USER") nil)
    "*POP3 maildrop.")
***************
*** 111,117 ****
  Returns the process associated with the connection."
    (let ((process-buffer
  	 (get-buffer-create (format "trace of POP session to %s" mailhost)))
! 	(process))
      (save-excursion
        (set-buffer process-buffer)
        (erase-buffer)
--- 111,120 ----
  Returns the process associated with the connection."
    (let ((process-buffer
  	 (get-buffer-create (format "trace of POP session to %s" mailhost)))
! 	(process)
! 	(coding-system-for-read 'binary)   ;; because FSF Emacs 20 and
! 	(coding-system-for-write 'binary)  ;; XEmacs 20/1 are st00pid 
!     )
      (save-excursion
        (set-buffer process-buffer)
        (erase-buffer)
*** pub/qgnus/lisp/ChangeLog	Thu Sep 24 19:52:00 1998
--- qgnus/lisp/ChangeLog	Thu Nov 19 04:40:04 1998
***************
*** 1,3 ****
--- 1,37 ----
+ Thu Nov 19 04:37:45 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.6.45 is released.
+ 
+ 1998-11-08 00:42:58  Andrew Innes  <andrewi@harlequin.co.uk>
+ 
+ 	* nntp.el (nntp-request-group): Allow for error codes.
+ 
+ 1998-10-12  Andrew Innes  <andrewi@harlequin.co.uk>
+ 
+ 	* gnus/nntp.el (nntp-possibly-change-group): Allow for unexpected
+ 	responses to GROUP command, since this may be called from a timer
+ 	with quit inhibited.
+ 
+ 1998-10-11 01:16:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-agent.el (gnus-agent-expire): Check (car expired).
+ 
+ 1998-10-02 04:49:27  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-cache.el (gnus-cache-generate-active): Ignore directories
+ 	that start with a dot.
+ 
+ 1998-10-01 07:42:40  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* nnmail.el (nnmail-article-group): Expand properly.
+ 
+ 	* gnus-group.el (gnus-group-apropos): Also do non-active groups. 
+ 
+ 1998-09-29 13:12:31  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-async.el (gnus-make-async-article-function): Don't use
+ 	push. 
+ 
  Thu Sep 24 19:29:43 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.6.44 is released.
*** pub/qgnus/texi/gnus.texi	Thu Sep 24 19:52:04 1998
--- qgnus/texi/gnus.texi	Thu Nov 19 04:40:09 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.6.44 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.6.45 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 318,324 ****
  @tex
  
  @titlepage
! @title Gnus 5.6.44 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 318,324 ----
  @tex
  
  @titlepage
! @title Gnus 5.6.45 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 354,360 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.6.44.
  
  @end ifinfo
  
--- 354,360 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.6.45.
  
  @end ifinfo
  
***************
*** 11797,11812 ****
  @node Agent Expiry
  @subsection Agent Expiry
  
! @vindex gnus-agent-expiry-days
! @findex gnus-agent-expiry
! @kindex M-x gnus-agent-expiry
! @cindex Agent expiry
! @cindex Gnus Agent expiry
  @cindex expiry
  
  @code{nnagent} doesn't handle expiry.  Instead, there's a special
! @code{gnus-agent-expiry} command that will expire all read articles that
! are older than @code{gnus-agent-expiry-days} days.  It can be run
  whenever you feel that you're running out of space.  It's not
  particularly fast or efficient, and it's not a particularly good idea to
  interrupt it (with @kbd{C-g} or anything else) once you've started it.
--- 11797,11812 ----
  @node Agent Expiry
  @subsection Agent Expiry
  
! @vindex gnus-agent-expire-days
! @findex gnus-agent-expire
! @kindex M-x gnus-agent-expire
! @cindex Agent expire
! @cindex Gnus Agent expire
  @cindex expiry
  
  @code{nnagent} doesn't handle expiry.  Instead, there's a special
! @code{gnus-agent-expire} command that will expire all read articles that
! are older than @code{gnus-agent-expire-days} days.  It can be run
  whenever you feel that you're running out of space.  It's not
  particularly fast or efficient, and it's not a particularly good idea to
  interrupt it (with @kbd{C-g} or anything else) once you've started it.
*** pub/qgnus/texi/message.texi	Thu Sep 24 19:52:04 1998
--- qgnus/texi/message.texi	Thu Nov 19 04:40:09 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.6.44 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.6.45 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Message 5.6.44 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Message 5.6.45 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 83,89 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.6.44.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
--- 83,89 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Message 5.6.45.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has.