Gnus development mailing list
 help / color / mirror / Atom feed
* Gnus v5.6.5 is released
@ 1998-04-24 19:33 Lars Magne Ingebrigtsen
  1998-04-24 21:53 ` Jason L Tibbitts III
                   ` (3 more replies)
  0 siblings, 4 replies; 7+ messages in thread
From: Lars Magne Ingebrigtsen @ 1998-04-24 19:33 UTC (permalink / raw)


Bug fixes.

Get it from <URL:http://www.gnus.org/gnus.tar.gz> or 
"/ftp@ftp.gnus.org:/pub/emacs/gnus/".  The patch is available as
<URL:http://www.gnus.org/patches/gnus-5.6.4-5.6.5.diff.gz>.

ChangeLog since last release:

Fri Apr 24 21:32:14 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>

	* gnus.el: Gnus v5.6.5 is released.

Fri Apr 24 21:19:21 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* gnus-msg.el (gnus-post-method): Doc fix.
	(gnus-post-method): Reversed semantics.

1998-04-01  Jan Vroonhof  <vroonhof@math.ethz.ch>

	* gnus-msg.el (gnus-post-method): Customized. Added 'native
	option. In the function, added support for new value.

Fri Apr 24 20:04:15 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* nnmbox.el (nnmbox-request-create-group): New function.

Sun Apr 12 07:55:16 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* gnus-agent.el (gnus-agent-save-group-info): Only do those that
	are covered.

Tue Apr  7 11:26:31 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* nntp.el (nntp-authinfo-file): Doc fix.

1998-03-31  Ken Raeburn  <raeburn@cygnus.com>

	* nnml.el (nnml-request-expire-articles): Sort active-articles,
	then only expire the intersection of that set with the requested
	articles.

Wed Apr  1 16:01:44 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* message.el (message-supersede): Check Sender.
	(message-cancel-news): Fix Sender check.

Sun Mar 29 11:54:33 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

	* nnkiboze.el (nnkiboze-generate-group): Would mess up newsrs
	hashtb. 
	(nnkiboze-enter-nov): Created bogus Xrefs headers.

	* gnus-agent.el (gnus-agent-save-group-info): New function.

	* gnus-start.el (gnus-get-unread-articles): Use it.

	* message.el (message-expand-group): Allow completion from in the
	middle of strings.
	(message-font-lock-keywords): Work when mail-header-separator is
	"". 



-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Magne Ingebrigtsen


^ permalink raw reply	[flat|nested] 7+ messages in thread
* Gnus v5.6.5 is released
@ 1998-04-24 19:33 Lars Magne Ingebrigtsen
  0 siblings, 0 replies; 7+ messages in thread
From: Lars Magne Ingebrigtsen @ 1998-04-24 19:33 UTC (permalink / raw)


Bug fixes.

Get it from <URL:http://www.gnus.org/gnus.tar.gz> or 
"/ftp@ftp.gnus.org:/pub/emacs/gnus/".  The patch is available as
<URL:http://www.gnus.org/patches/gnus-5.6.4-5.6.5.diff.gz>.

Patches for this release:



*** pub/qgnus/lisp/ChangeLog	Sun Mar 29 09:56:00 1998
--- qgnus/lisp/ChangeLog	Fri Apr 24 21:32:14 1998
***************
*** 1,3 ****
--- 1,56 ----
+ Fri Apr 24 21:32:14 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.6.5 is released.
+ 
+ Fri Apr 24 21:19:21 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-msg.el (gnus-post-method): Doc fix.
+ 	(gnus-post-method): Reversed semantics.
+ 
+ 1998-04-01  Jan Vroonhof  <vroonhof@math.ethz.ch>
+ 
+ 	* gnus-msg.el (gnus-post-method): Customized. Added 'native
+ 	option. In the function, added support for new value.
+ 
+ Fri Apr 24 20:04:15 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nnmbox.el (nnmbox-request-create-group): New function.
+ 
+ Sun Apr 12 07:55:16 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-agent.el (gnus-agent-save-group-info): Only do those that
+ 	are covered.
+ 
+ Tue Apr  7 11:26:31 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nntp.el (nntp-authinfo-file): Doc fix.
+ 
+ 1998-03-31  Ken Raeburn  <raeburn@cygnus.com>
+ 
+ 	* nnml.el (nnml-request-expire-articles): Sort active-articles,
+ 	then only expire the intersection of that set with the requested
+ 	articles.
+ 
+ Wed Apr  1 16:01:44 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* message.el (message-supersede): Check Sender.
+ 	(message-cancel-news): Fix Sender check.
+ 
+ Sun Mar 29 11:54:33 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nnkiboze.el (nnkiboze-generate-group): Would mess up newsrs
+ 	hashtb. 
+ 	(nnkiboze-enter-nov): Created bogus Xrefs headers.
+ 
+ 	* gnus-agent.el (gnus-agent-save-group-info): New function.
+ 
+ 	* gnus-start.el (gnus-get-unread-articles): Use it.
+ 
+ 	* message.el (message-expand-group): Allow completion from in the
+ 	middle of strings.
+ 	(message-font-lock-keywords): Work when mail-header-separator is
+ 	"". 
+ 
  Sun Mar 29 09:56:00 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Gnus v5.6.4 is released.
*** pub/qgnus/lisp/gnus-agent.el	Thu Mar 26 15:45:29 1998
--- qgnus/lisp/gnus-agent.el	Sun Apr 12 07:55:46 1998
***************
*** 512,517 ****
--- 512,530 ----
      (when (file-exists-p (gnus-agent-lib-file "active"))
        (delete-file (gnus-agent-lib-file "active"))))
  
+ (defun gnus-agent-save-group-info (method group active)
+   (when (gnus-agent-method-p method)
+     (let* ((gnus-command-method method)
+ 	   (file (gnus-agent-lib-file "active")))
+       (gnus-make-directory (file-name-directory file))
+       (nnheader-temp-write file
+ 	(insert-file-contents file)
+ 	(goto-char (point-min))
+ 	(when (re-search-forward "^" (regexp-quote group) " " nil t)
+ 	  (gnus-delete-line))
+ 	(insert group " " (number-to-string (cdr active)) " "
+ 		(number-to-string (car active)) "\n")))))
+ 
  (defun gnus-agent-group-path (group)
    "Translate GROUP into a path."
    (if nnmail-use-long-file-names
*** pub/qgnus/lisp/gnus-msg.el	Thu Mar 19 15:12:58 1998
--- qgnus/lisp/gnus-msg.el	Fri Apr 24 21:21:59 1998
***************
*** 33,50 ****
  (require 'message)
  (require 'gnus-art)
  
! ;; Added by Sudish Joseph <joseph@cis.ohio-state.edu>.
! (defvar gnus-post-method nil
    "*Preferred method for posting USENET news.
! If this variable is nil, Gnus will use the current method to decide
! which method to use when posting.  If it is non-nil, it will override
! the current method.  This method will not be used in mail groups and
! the like, only in \"real\" newsgroups.
! 
! The value must be a valid method as discussed in the documentation of
! `gnus-select-method'.  It can also be a list of methods.  If that is
! the case, the user will be queried for what select method to use when
! posting.")
  
  (defvar gnus-outgoing-message-group nil
    "*All outgoing messages will be put in this group.
--- 33,56 ----
  (require 'message)
  (require 'gnus-art)
  
! (defcustom gnus-post-method nil
    "*Preferred method for posting USENET news.
! 
! If this variable is `current', Gnus will use the \"current\" select
! method when posting.  If it is nil (which is the default), Gnus will
! use the native posting method of the server.
! 
! This method will not be used in mail groups and the like, only in
! \"real\" newsgroups.
! 
! If not nil nor `native', the value must be a valid method as discussed
! in the documentation of `gnus-select-method'. It can also be a list of
! methods. If that is the case, the user will be queried for what select
! method to use when posting."
!   :group 'gnus-group-foreign
!   :type `(choice (const nil)
! 		 (const native)
! 		 (sexp :tag "Methods" ,gnus-select-method)))
  
  (defvar gnus-outgoing-message-group nil
    "*All outgoing messages will be put in this group.
***************
*** 428,445 ****
       ;; If the group-method is nil (which shouldn't happen) we use
       ;; the default method.
       ((null group-method)
!       (or gnus-post-method gnus-select-method message-post-method))
!      ;; We want this group's method.
       ((and arg (not (eq arg 0)))
!       group-method)
       ;; We query the user for a post method.
       ((or arg
  	  (and gnus-post-method
  	       (listp (car gnus-post-method))))
        (let* ((methods
  	      ;; Collect all methods we know about.
  	      (append
! 	       (when gnus-post-method
  		 (if (listp (car gnus-post-method))
  		     gnus-post-method
  		   (list gnus-post-method)))
--- 434,456 ----
       ;; If the group-method is nil (which shouldn't happen) we use
       ;; the default method.
       ((null group-method)
!       (or (and (null (eq gnus-post-method 'active)) gnus-post-method)
! 	       gnus-select-method message-post-method))
!      ;; We want the inverse of the default
       ((and arg (not (eq arg 0)))
!       (if (eq gnus-post-method 'active)
! 	  gnus-select-method
! 	group-method))
       ;; We query the user for a post method.
       ((or arg
  	  (and gnus-post-method
+ 	       (not (eq gnus-post-method 'current))
  	       (listp (car gnus-post-method))))
        (let* ((methods
  	      ;; Collect all methods we know about.
  	      (append
! 	       (when (and gnus-post-method
! 			  (not (eq gnus-post-method 'current)))
  		 (if (listp (car gnus-post-method))
  		     gnus-post-method
  		   (list gnus-post-method)))
***************
*** 472,477 ****
--- 483,490 ----
  		   (cons (or gnus-last-posting-server "") 0))))
  	  method-alist))))
       ;; Override normal method.
+      ((eq gnus-post-method 'current)
+       group-method) 
       (gnus-post-method
        gnus-post-method)
       ;; Use the normal select method.
*** pub/qgnus/lisp/gnus-start.el	Sat Feb 28 07:42:44 1998
--- qgnus/lisp/gnus-start.el	Sun Mar 29 13:33:32 1998
***************
*** 1371,1376 ****
--- 1371,1377 ----
  		info (inline (gnus-find-method-for-group
  			      (gnus-info-group info)))))
        (gnus-activate-group (gnus-info-group info) nil t))
+ 
      (let* ((range (gnus-info-read info))
  	   (num 0))
        ;; If a cache is present, we may have to alter the active info.
***************
*** 1482,1487 ****
--- 1483,1492 ----
  	  ;; These groups are foreign.  Check the level.
  	  (when (<= (gnus-info-level info) foreign-level)
  	    (setq active (gnus-activate-group group 'scan))
+ 	    ;; Let the Gnus agent save the active file.
+ 	    (when (and gnus-agent gnus-plugged)
+ 	      (gnus-agent-save-group-info
+ 	       method (gnus-group-real-name group) active))
  	    (unless (inline (gnus-virtual-group-p group))
  	      (inline (gnus-close-group group)))
  	    (when (fboundp (intern (concat (symbol-name (car method))
***************
*** 1682,1692 ****
  
  
  (defun gnus-ignored-newsgroups-has-to-p ()
!   "T only when gnus-ignored-newsgroups includes \"^to\\\\.\" as an element."
    ;; note this regexp is the same as:
    ;; (concat (regexp-quote "^to\\.") "\\($\\|" (regexp-quote "\\|") "\\)")
!   (string-match "\\^to\\\\\\.\\($\\|\\\\|\\)"
! 		gnus-ignored-newsgroups))
  
  ;; Read an active file and place the results in `gnus-active-hashtb'.
  (defun gnus-active-to-gnus-format (&optional method hashtb ignore-errors
--- 1687,1696 ----
  
  
  (defun gnus-ignored-newsgroups-has-to-p ()
!   "Non-nil iff gnus-ignored-newsgroups includes \"^to\\\\.\" as an element."
    ;; note this regexp is the same as:
    ;; (concat (regexp-quote "^to\\.") "\\($\\|" (regexp-quote "\\|") "\\)")
!   (string-match "\\^to\\\\\\.\\($\\|\\\\|\\)" gnus-ignored-newsgroups))
  
  ;; Read an active file and place the results in `gnus-active-hashtb'.
  (defun gnus-active-to-gnus-format (&optional method hashtb ignore-errors
*** pub/qgnus/lisp/gnus-sum.el	Thu Mar 19 16:44:13 1998
--- qgnus/lisp/gnus-sum.el	Mon Apr 13 10:50:18 1998
***************
*** 7168,7174 ****
      (gnus-summary-copy-article n nil method)))
  
  (defun gnus-summary-import-article (file)
!   "Import a random file into a mail newsgroup."
    (interactive "fImport file: ")
    (let ((group gnus-newsgroup-name)
  	(now (current-time))
--- 7168,7174 ----
      (gnus-summary-copy-article n nil method)))
  
  (defun gnus-summary-import-article (file)
!   "Import an arbitrary file into a mail newsgroup."
    (interactive "fImport file: ")
    (let ((group gnus-newsgroup-name)
  	(now (current-time))
*** pub/qgnus/lisp/gnus-undo.el	Sat Feb 14 18:10:38 1998
--- qgnus/lisp/gnus-undo.el	Mon Apr 13 10:50:41 1998
***************
*** 25,31 ****
  
  ;; This package allows arbitrary undoing in Gnus buffers.  As all the
  ;; Gnus buffers aren't very text-oriented (what is in the buffers is
! ;; just some random representation of the actual data), normal Emacs
  ;; undoing doesn't work at all for Gnus.
  ;;
  ;; This package works by letting Gnus register functions for reversing
--- 25,31 ----
  
  ;; This package allows arbitrary undoing in Gnus buffers.  As all the
  ;; Gnus buffers aren't very text-oriented (what is in the buffers is
! ;; just some arbitrary representation of the actual data), normal Emacs
  ;; undoing doesn't work at all for Gnus.
  ;;
  ;; This package works by letting Gnus register functions for reversing
*** pub/qgnus/lisp/gnus.el	Thu Mar 19 15:21:45 1998
--- qgnus/lisp/gnus.el	Fri Apr 24 21:31:06 1998
***************
*** 246,252 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.4"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 246,252 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "5.6.5"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 1677,1683 ****
       ("gnus-agent" gnus-open-agent gnus-agent-get-function
        gnus-agent-save-groups gnus-agent-save-active gnus-agent-method-p
        gnus-agent-get-undownloaded-list gnus-agent-fetch-session
!       gnus-summary-set-agent-mark)
       ("gnus-agent" :interactive t
        gnus-unplugged gnus-agentize gnus-agent-batch)
       ("gnus-vm" :interactive t gnus-summary-save-in-vm
--- 1677,1683 ----
       ("gnus-agent" gnus-open-agent gnus-agent-get-function
        gnus-agent-save-groups gnus-agent-save-active gnus-agent-method-p
        gnus-agent-get-undownloaded-list gnus-agent-fetch-session
!       gnus-summary-set-agent-mark gnus-agent-save-group-info)
       ("gnus-agent" :interactive t
        gnus-unplugged gnus-agentize gnus-agent-batch)
       ("gnus-vm" :interactive t gnus-summary-save-in-vm
*** pub/qgnus/lisp/message.el	Thu Mar 26 15:29:56 1998
--- qgnus/lisp/message.el	Wed Apr  1 16:01:53 1998
***************
*** 773,780 ****
        (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content)
         (1 'message-header-name-face)
         (2 'message-header-name-face))
!       (,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
!        1 'message-separator-face)
        (,(concat "^[ \t]*"
  		"\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
  		"[:>|}].*")
--- 773,783 ----
        (,(concat "^\\(X-[A-Za-z0-9-]+\\|In-Reply-To\\):" content)
         (1 'message-header-name-face)
         (2 'message-header-name-face))
!       ,@(if (and mail-header-separator
! 		 (not (equal mail-header-separator "")))
! 	    `((,(concat "^\\(" (regexp-quote mail-header-separator) "\\)$")
! 	       1 'message-separator-face))
! 	  nil)
        (,(concat "^[ \t]*"
  		"\\([" cite-prefix "]+[" cite-suffix "]*\\)?"
  		"[:>|}].*")
***************
*** 3404,3410 ****
  	(unless (string-equal
  		 (downcase
  		  (or sender (cadr (mail-extract-address-components from))))
! 		 (downcase (message-make-address)))
  	  (error "This article is not yours"))
  	;; Make control message.
  	(setq buf (set-buffer (get-buffer-create " *message cancel*")))
--- 3407,3413 ----
  	(unless (string-equal
  		 (downcase
  		  (or sender (cadr (mail-extract-address-components from))))
! 		 (downcase (message-make-sender)))
  	  (error "This article is not yours"))
  	;; Make control message.
  	(setq buf (set-buffer (get-buffer-create " *message cancel*")))
***************
*** 3435,3443 ****
    (let ((cur (current-buffer)))
      ;; Check whether the user owns the article that is to be superseded.
      (unless (string-equal
! 	     (downcase (cadr (mail-extract-address-components
! 			      (message-fetch-field "from"))))
! 	     (downcase (message-make-address)))
        (error "This article is not yours"))
      ;; Get a normal message buffer.
      (message-pop-to-buffer (message-buffer-name "supersede"))
--- 3438,3447 ----
    (let ((cur (current-buffer)))
      ;; Check whether the user owns the article that is to be superseded.
      (unless (string-equal
! 	     (downcase (or (message-fetch-field "sender")
! 			   (cadr (mail-extract-address-components
! 				  (message-fetch-field "from")))))
! 	     (downcase (message-make-sender)))
        (error "This article is not yours"))
      ;; Get a normal message buffer.
      (message-pop-to-buffer (message-buffer-name "supersede"))
***************
*** 3721,3727 ****
  
  (defvar gnus-active-hashtb)
  (defun message-expand-group ()
!   "Expand the group name under point."  (let* ((b (save-excursion
  	      (save-restriction
  		(narrow-to-region
  		 (save-excursion
--- 3725,3732 ----
  
  (defvar gnus-active-hashtb)
  (defun message-expand-group ()
!   "Expand the group name under point."
!   (let* ((b (save-excursion
  	      (save-restriction
  		(narrow-to-region
  		 (save-excursion
***************
*** 3731,3737 ****
  		 (point))
  		(skip-chars-backward "^, \t\n") (point))))
  	 (completion-ignore-case t)
! 	 (string (buffer-substring b (point)))
  	 (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))
  	 (completions (all-completions string hashtb))
  	 (cur (current-buffer))
--- 3736,3743 ----
  		 (point))
  		(skip-chars-backward "^, \t\n") (point))))
  	 (completion-ignore-case t)
! 	 (string (buffer-substring b (progn (skip-chars-forward "^,\t\n ")
! 					    (point))))
  	 (hashtb (and (boundp 'gnus-active-hashtb) gnus-active-hashtb))
  	 (completions (all-completions string hashtb))
  	 (cur (current-buffer))
*** pub/qgnus/lisp/nnbabyl.el	Fri Feb 20 04:14:14 1998
--- qgnus/lisp/nnbabyl.el	Fri Apr 24 20:04:29 1998
***************
*** 242,248 ****
    (nnmail-activate 'nnbabyl)
    (unless (assoc group nnbabyl-group-alist)
      (push (list group (cons 1 0))
! 				    nnbabyl-group-alist)
      (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
    t)
  
--- 242,248 ----
    (nnmail-activate 'nnbabyl)
    (unless (assoc group nnbabyl-group-alist)
      (push (list group (cons 1 0))
! 	  nnbabyl-group-alist)
      (nnmail-save-active nnbabyl-group-alist nnbabyl-active-file))
    t)
  
*** pub/qgnus/lisp/nneething.el	Mon Feb 23 18:30:36 1998
--- qgnus/lisp/nneething.el	Mon Apr 13 10:50:47 1998
***************
*** 1,4 ****
! ;;; nneething.el --- random file access for Gnus
  ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
--- 1,4 ----
! ;;; nneething.el --- arbitrary file access for Gnus
  ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
  
  ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
*** pub/qgnus/lisp/nnkiboze.el	Sun Mar 29 09:55:30 1998
--- qgnus/lisp/nnkiboze.el	Fri Apr 24 21:30:29 1998
***************
*** 115,120 ****
--- 115,122 ----
        (save-excursion
  	(set-buffer nntp-server-buffer)
  	(erase-buffer)
+ 	(unless (file-exists-p nov-file)
+ 	  (nnkiboze-request-scan group))
  	(if (not (file-exists-p nov-file))
  	    (nnheader-report 'nnkiboze "Can't select group %s" group)
  	  (nnheader-insert-file-contents nov-file)
***************
*** 224,230 ****
  	 (gnus-verbose (min gnus-verbose 3))
   	 gnus-select-group-hook gnus-summary-prepare-hook
  	 gnus-thread-sort-functions gnus-show-threads
! 	 gnus-visual gnus-suppress-duplicates)
      (unless info
        (error "No such group: %s" group))
      ;; Load the kiboze newsrc file for this group.
--- 226,232 ----
  	 (gnus-verbose (min gnus-verbose 3))
   	 gnus-select-group-hook gnus-summary-prepare-hook
  	 gnus-thread-sort-functions gnus-show-threads
! 	 gnus-visual gnus-suppress-duplicates num-unread)
      (unless info
        (error "No such group: %s" group))
      ;; Load the kiboze newsrc file for this group.
***************
*** 267,273 ****
  	  (gnus-group-jump-to-group (caar newsrc))
  	  (gnus-message 3 "nnkiboze: Checking %s..." (caar newsrc))
  	  (setq ginfo (gnus-get-info (gnus-group-group-name))
! 		orig-info (gnus-copy-sequence ginfo))
  	  (unwind-protect
  	      (progn
  		;; We set all list of article marks to nil.  Since we operate
--- 269,277 ----
  	  (gnus-group-jump-to-group (caar newsrc))
  	  (gnus-message 3 "nnkiboze: Checking %s..." (caar newsrc))
  	  (setq ginfo (gnus-get-info (gnus-group-group-name))
! 		orig-info (gnus-copy-sequence ginfo)
! 		num-unread (car (gnus-gethash (caar newsrc)
! 					      gnus-newsrc-hashtb)))
  	  (unwind-protect
  	      (progn
  		;; We set all list of article marks to nil.  Since we operate
***************
*** 305,314 ****
  		       gnus-newsgroup-name))
  		    (setq gnus-newsgroup-scored (cdr gnus-newsgroup-scored)))
  		  ;; That's it.  We exit this group.
! 		  (gnus-summary-exit-no-update)))
  	    ;; Restore the proper info.
  	    (when ginfo
! 	      (setcdr ginfo (cdr orig-info)))))
  	(setcdr (car newsrc) (car active))
  	(gnus-message 3 "nnkiboze: Checking %s...done" (caar newsrc))
  	(setq newsrc (cdr newsrc))))
--- 309,321 ----
  		       gnus-newsgroup-name))
  		    (setq gnus-newsgroup-scored (cdr gnus-newsgroup-scored)))
  		  ;; That's it.  We exit this group.
! 		  (when (eq major-mode 'gnus-summary-mode)
! 		    (kill-buffer (current-buffer)))))
  	    ;; Restore the proper info.
  	    (when ginfo
! 	      (setcdr ginfo (cdr orig-info)))
! 	    (setcar (gnus-gethash (caar newsrc) gnus-newsrc-hashtb)
! 		    num-unread)))
  	(setcdr (car newsrc) (car active))
  	(gnus-message 3 "nnkiboze: Checking %s...done" (caar newsrc))
  	(setq newsrc (cdr newsrc))))
***************
*** 316,323 ****
      (nnheader-temp-write newsrc-file
        (insert "(setq nnkiboze-newsrc '")
        (gnus-prin1 nnkiboze-newsrc)
!       (insert ")\n"))
!     t))
  
  (defun nnkiboze-enter-nov (buffer header group)
    (save-excursion
--- 323,333 ----
      (nnheader-temp-write newsrc-file
        (insert "(setq nnkiboze-newsrc '")
        (gnus-prin1 nnkiboze-newsrc)
!       (insert ")\n")))
!   (save-excursion
!     (set-buffer gnus-group-buffer)
!     (gnus-group-list-groups))
!   t)
  
  (defun nnkiboze-enter-nov (buffer header group)
    (save-excursion
***************
*** 342,348 ****
        ;; The first Xref has to be the group this article
        ;; really came for - this is the article nnkiboze
        ;; will request when it is asked for the article.
!       (insert group ":"
  	      (int-to-string (mail-header-number header)) " ")
        (while (re-search-forward " [^ ]+:[0-9]+" nil t)
  	(goto-char (1+ (match-beginning 0)))
--- 352,358 ----
        ;; The first Xref has to be the group this article
        ;; really came for - this is the article nnkiboze
        ;; will request when it is asked for the article.
!       (insert " " group ":"
  	      (int-to-string (mail-header-number header)) " ")
        (while (re-search-forward " [^ ]+:[0-9]+" nil t)
  	(goto-char (1+ (match-beginning 0)))
*** pub/qgnus/lisp/nnmbox.el	Fri Feb 20 04:14:14 1998
--- qgnus/lisp/nnmbox.el	Fri Apr 24 20:04:29 1998
***************
*** 1,15 ****
  ;;; nnmbox.el --- mail mbox access for Gnus
  ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
  
! ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
! ;; 	Masanobu UMEDA <umerin@flab.flab.fujitsu.junet>
! ;; Keywords: news, mail
! 
! ;; This file is part of GNU Emacs.
! 
! ;; GNU Emacs is free software; you can redistribute it and/or modify
! ;; it under the terms of the GNU General Public License as published by
! ;; the Free Software Foundation; either version 2, or (at your option)
  ;; any later version.
  
  ;; GNU Emacs is distributed in the hope that it will be useful,
--- 1,7 ----
  ;;; nnmbox.el --- mail mbox access for Gnus
  ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc.
  
! ;; Author: Lars Magne Ingebrignnmbox2, or (at your option)
  ;; any later version.
  
  ;; GNU Emacs is distributed in the hope that it will be useful,
***************
*** 205,210 ****
--- 197,210 ----
       (nnmail-save-active nnmbox-group-alist nnmbox-active-file))))
  
  (deffoo nnmbox-close-group (group &optional server)
+   t)
+ 
+ (deffoo nnmbox-request-create-group (group &optional server args)
+   (nnmail-activate 'nnmbox)
+   (unless (assoc group nnmbox-group-alist)
+     (push (list group (cons 1 0))
+ 	  nnmbox-group-alist)
+     (nnmail-save-active nnmbox-group-alist nnmbox-active-file))
    t)
  
  (deffoo nnmbox-request-list (&optional server)
*** pub/qgnus/lisp/nnml.el	Sat Mar  7 14:19:15 1998
--- qgnus/lisp/nnml.el	Wed Apr  1 16:08:07 1998
***************
*** 271,276 ****
--- 271,281 ----
  	article rest mod-time number)
      (nnmail-activate 'nnml)
  
+     (setq active-articles (sort active-articles '<))
+     ;; Articles not listed in active-articles are already gone,
+     ;; so don't try to expire them.
+     (setq articles (gnus-sorted-intersection articles active-articles))
+ 
      (while (and articles is-old)
        (when (setq article (nnml-article-to-file (setq number (pop articles))))
  	(when (setq mod-time (nth 5 (file-attributes article)))
*** pub/qgnus/lisp/nntp.el	Sat Mar 28 08:48:08 1998
--- qgnus/lisp/nntp.el	Tue Apr  7 11:26:29 1998
***************
*** 167,173 ****
    "*Coding system to write to NNTP.")
  
  (defcustom nntp-authinfo-file "~/.authinfo"
!   "Docstring."
    :type
    '(choice file
  	   (repeat :tag "Entries"
--- 167,173 ----
    "*Coding system to write to NNTP.")
  
  (defcustom nntp-authinfo-file "~/.authinfo"
!   ".netrc-like file that holds nntp authinfo passwords."
    :type
    '(choice file
  	   (repeat :tag "Entries"
*** pub/qgnus/Makefile.in	Sat Feb 28 08:08:56 1998
--- qgnus/Makefile.in	Sun Mar 29 12:11:33 1998
***************
*** 1,16 ****
  srcdir = @srcdir@
  
  @SET_MAKE@
! EMACS = emacs
  XEMACS = xemacs
  
  all: lick info
  
  lick:
! 	cd lisp && $(MAKE) EMACS=$(EMACS) all
  
  install:
! 	cd lisp && $(MAKE) EMACS=$(EMACS) install
  	cd texi && $(MAKE) EMACS=$(EMACS) install
  
  # Rule for Lars and nobody else.
--- 1,17 ----
+ lispdir = @lispdir@
  srcdir = @srcdir@
  
  @SET_MAKE@
! EMACS = @EMACS@
  XEMACS = xemacs
  
  all: lick info
  
  lick:
! 	cd lisp && $(MAKE) EMACS=$(EMACS) lispdir=$(lispdir) all
  
  install:
! 	cd lisp && $(MAKE) EMACS=$(EMACS) lispdir=$(lispdir) install
  	cd texi && $(MAKE) EMACS=$(EMACS) install
  
  # Rule for Lars and nobody else.
*** pub/qgnus/texi/Makefile.in	Thu Mar 19 14:59:49 1998
--- qgnus/texi/Makefile.in	Sun Mar 29 12:10:31 1998
***************
*** 115,123 ****
  install:
  	$(SHELL) $(top_srcdir)/mkinstalldirs $(infodir)
  	@for file in gnus message; do \
! 	  for ifile in `cd $$d && echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
  	    if test -f $$ifile; then \
! 	      echo " $(INSTALL_DATA) $$d/$$ifile $(infodir)/$$ifile"; \
  	      $(INSTALL_DATA) $$ifile $(infodir)/$$ifile; \
  	    else : ; fi; \
  	  done; \
--- 115,123 ----
  install:
  	$(SHELL) $(top_srcdir)/mkinstalldirs $(infodir)
  	@for file in gnus message; do \
! 	  for ifile in `echo $$file $$file-[0-9] $$file-[0-9][0-9]`; do \
  	    if test -f $$ifile; then \
! 	      echo " $(INSTALL_DATA) $$ifile $(infodir)/$$ifile"; \
  	      $(INSTALL_DATA) $$ifile $(infodir)/$$ifile; \
  	    else : ; fi; \
  	  done; \
*** pub/qgnus/texi/gnus.texi	Sun Mar 29 09:56:00 1998
--- qgnus/texi/gnus.texi	Fri Apr 24 21:32:13 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.6.4 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Gnus 5.6.5 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 316,322 ****
  @tex
  
  @titlepage
! @title Gnus 5.6.4 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 316,322 ----
  @tex
  
  @titlepage
! @title Gnus 5.6.5 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 352,358 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.6.4.
  
  @end ifinfo
  
--- 352,358 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Gnus 5.6.5.
  
  @end ifinfo
  
***************
*** 1904,1909 ****
--- 1904,1913 ----
  include @code{dejanews}, @code{altavista} and @code{reference}.
  @xref{Web Searches}.
  
+ If you use the @code{dejanews} search engine, you can limit the search
+ to a particular group by using a match string like
+ @samp{~g alt.sysadmin.recovery shaving}.
+ 
  @item G DEL
  @kindex G DEL (Group)
  @findex gnus-group-delete-group
***************
*** 3257,3264 ****
  Twenty minus thread level spaces.
  @item U
  Unread.
  @item R
! Replied.
  @item i
  Score as a number (@pxref{Scoring}).
  @item z
--- 3261,3272 ----
  Twenty minus thread level spaces.
  @item U
  Unread.
+ 
  @item R
! This misleadingly named specifier is the @dfn{secondary mark}.  This
! mark will say whether the article has been replied to, has been cached,
! or has been saved.  
! 
  @item i
  Score as a number (@pxref{Scoring}).
  @item z
***************
*** 4009,4015 ****
  
  @item SPACE
  @vindex gnus-unread-mark
! Markes as unread (@code{gnus-unread-mark}).
  
  @dfn{Unread articles} are articles that haven't been read at all yet.
  @end table
--- 4017,4023 ----
  
  @item SPACE
  @vindex gnus-unread-mark
! Marked as unread (@code{gnus-unread-mark}).
  
  @dfn{Unread articles} are articles that haven't been read at all yet.
  @end table
***************
*** 4332,4338 ****
  @item M P R
  @kindex M P R (Summary)
  @findex gnus-uu-mark-by-regexp
! Mark articles by a regular expression (@code{gnus-uu-mark-by-regexp}).
  
  @item M P r
  @kindex M P r (Summary)
--- 4340,4347 ----
  @item M P R
  @kindex M P R (Summary)
  @findex gnus-uu-mark-by-regexp
! Mark articles that have a @code{Subject} header that matches a regular
! expression (@code{gnus-uu-mark-by-regexp}).
  
  @item M P r
  @kindex M P r (Summary)
***************
*** 8093,8098 ****
--- 8102,8112 ----
  If that's the case, Gnus will always prompt you for what method to use
  for posting.
  
+ Finally, if you want to always post using the same select method as
+ you're reading from (which might be convenient if you're reading lots of
+ groups from different private servers), you can set this variable to
+ @code{current}. 
+ 
  
  @node Mail and Post
  @section Mail and Post
***************
*** 8967,8983 ****
  by the @code{nntp-maximum-request} variable, and is 400 by default.  If
  your network is buggy, you should set this to 1.
  
! @item nntp-connection-timeout
! @vindex nntp-connection-timeout
! If you have lots of foreign @code{nntp} groups that you connect to
! regularly, you're sure to have problems with @sc{nntp} servers not
! responding properly, or being too loaded to reply within reasonable
! time.  This is can lead to awkward problems, which can be helped
! somewhat by setting @code{nntp-connection-timeout}.  This is an integer
! that says how many seconds the @code{nntp} backend should wait for a
! connection before giving up.  If it is @code{nil}, which is the default,
! no timeouts are done.
! 
  @c @item nntp-command-timeout
  @c @vindex nntp-command-timeout
  @c @cindex PPP connections
--- 8981,8997 ----
  by the @code{nntp-maximum-request} variable, and is 400 by default.  If
  your network is buggy, you should set this to 1.
  
! @c @item nntp-connection-timeout
! @c @vindex nntp-connection-timeout
! @c If you have lots of foreign @code{nntp} groups that you connect to
! @c regularly, you're sure to have problems with @sc{nntp} servers not
! @c responding properly, or being too loaded to reply within reasonable
! @c time.  This is can lead to awkward problems, which can be helped
! @c somewhat by setting @code{nntp-connection-timeout}.  This is an integer
! @c that says how many seconds the @code{nntp} backend should wait for a
! @c connection before giving up.  If it is @code{nil}, which is the default,
! @c no timeouts are done.
! @c 
  @c @item nntp-command-timeout
  @c @vindex nntp-command-timeout
  @c @cindex PPP connections
***************
*** 15688,15694 ****
  * ding Gnus::          New things in Gnus 5.0/5.1, the first new Gnus.
  * September Gnus::     The Thing Formally Known As Gnus 5.3/5.3.
  * Red Gnus::           Third time best---Gnus 5.4/5.5.
! * Quassia Gnus::       Two times two is four, or Gnus 5.6.4.
  @end menu
  
  These lists are, of course, just @emph{short} overviews of the
--- 15702,15708 ----
  * ding Gnus::          New things in Gnus 5.0/5.1, the first new Gnus.
  * September Gnus::     The Thing Formally Known As Gnus 5.3/5.3.
  * Red Gnus::           Third time best---Gnus 5.4/5.5.
! * Quassia Gnus::       Two times two is four, or Gnus 5.6.5.
  @end menu
  
  These lists are, of course, just @emph{short} overviews of the
***************
*** 16223,16229 ****
  @node Quassia Gnus
  @subsubsection Quassia Gnus
  
! New features in Gnus 5.6.4:
  
  @itemize @bullet
  
--- 16237,16243 ----
  @node Quassia Gnus
  @subsubsection Quassia Gnus
  
! New features in Gnus 5.6.5:
  
  @itemize @bullet
  
***************
*** 17511,17516 ****
--- 17525,17536 ----
  @item
  A Date scoring type that will match if the article
  is less than a certain number of days old.
+ 
+ @item
+ New spec: %~(tab 56) to put point on column 56
+ 
+ @item
+ Allow Gnus Agent scoring to use normal score files.
  
  @item
  Solve the halting problem.
*** pub/qgnus/texi/message.texi	Sun Mar 29 09:56:00 1998
--- qgnus/texi/message.texi	Fri Apr 24 21:32:13 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.6.4 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Message 5.6.5 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Message 5.6.4 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Message 5.6.5 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.4.  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.5.  Message is distributed with
  the Gnus distribution bearing the same version number as this manual
  has. 
  
*** pub/qgnus/texi/ChangeLog	Sat Mar 28 08:57:50 1998
--- qgnus/texi/ChangeLog	Fri Apr 24 21:21:59 1998
***************
*** 1,3 ****
--- 1,10 ----
+ Fri Apr 24 16:00:40 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.texi (Unread Articles): Typo.
+ 	(Summary Buffer Lines): Fix.
+ 	(Foreign Groups): Addition.
+ 	(Posting Server): Addition.
+ 
  Sat Mar 28 08:57:46 1998  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
  	* gnus.texi (Example Methods): Addition.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Magne Ingebrigtsen



^ permalink raw reply	[flat|nested] 7+ messages in thread

end of thread, other threads:[~1998-04-27 14:20 UTC | newest]

Thread overview: 7+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1998-04-24 19:33 Gnus v5.6.5 is released Lars Magne Ingebrigtsen
1998-04-24 21:53 ` Jason L Tibbitts III
1998-04-24 23:24 ` SL Baur
1998-04-25 13:11   ` Lars Magne Ingebrigtsen
1998-04-25 17:25 ` Michael R Cook
1998-04-27 14:20 ` Hrvoje Niksic
1998-04-24 19:33 Lars Magne Ingebrigtsen

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).