From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/15059 Path: main.gmane.org!not-for-mail From: Lars Magne Ingebrigtsen Newsgroups: gmane.emacs.gnus.general Subject: Gnus v5.6.5 is released Date: 24 Apr 1998 21:33:27 +0200 Sender: owner-ding@hpc.uh.edu Message-ID: Reply-To: ding@GNUS.ORG NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 8bit X-Trace: main.gmane.org 1035154155 19867 80.91.224.250 (20 Oct 2002 22:49:15 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 22:49:15 +0000 (UTC) Return-Path: Original-Received: from xemacs.org (xemacs.cs.uiuc.edu [128.174.252.16]) by altair.xemacs.org (8.8.8/8.8.8) with ESMTP id MAA25532 for ; Fri, 24 Apr 1998 12:52:42 -0700 Original-Received: from sina.hpc.uh.edu (root@Sina.HPC.UH.EDU [129.7.3.5]) by xemacs.org (8.8.5/8.8.5) with ESMTP id PAA08710 for ; Fri, 24 Apr 1998 15:05:10 -0500 (CDT) Original-Received: from sina.hpc.uh.edu (lists@Sina.HPC.UH.EDU [129.7.3.5]) by sina.hpc.uh.edu (8.7.3/8.7.3) with ESMTP id PAH03233; Fri, 24 Apr 1998 15:04:54 -0500 (CDT) Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Fri, 24 Apr 1998 15:02:34 -0500 (CDT) Original-Received: from claymore.vcinet.com (claymore.vcinet.com [208.205.12.23]) by sina.hpc.uh.edu (8.7.3/8.7.3) with SMTP id PAA03196 for ; Fri, 24 Apr 1998 15:02:20 -0500 (CDT) Original-Received: (qmail 5936 invoked by uid 504); 24 Apr 1998 20:02:01 -0000 Original-Received: (qmail 5930 invoked from network); 24 Apr 1998 20:01:56 -0000 Original-Received: from nic.lp.se (LEVITTE@195.84.196.241) by claymore.vcinet.com with SMTP; 24 Apr 1998 20:01:53 -0000 Original-Received: by lp.se (MX V5.0) with SITE; Fri, 24 Apr 1998 22:01:37 +0200 Original-To: X-Boast: News<=>Mail gateway Original-Path: news.bofh.se!ding-patches-gate!list Original-Lines: 1002 X-Boast: Mail<=>News gateway X-Face: &w!^oO~dS|}-P0~ge{$c!h\ or "/ftp@ftp.gnus.org:/pub/emacs/gnus/". The patch is available as . 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 + + * gnus.el: Gnus v5.6.5 is released. + + Fri Apr 24 21:19:21 1998 Lars Magne Ingebrigtsen + + * gnus-msg.el (gnus-post-method): Doc fix. + (gnus-post-method): Reversed semantics. + + 1998-04-01 Jan Vroonhof + + * 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 + + * nnmbox.el (nnmbox-request-create-group): New function. + + Sun Apr 12 07:55:16 1998 Lars Magne Ingebrigtsen + + * gnus-agent.el (gnus-agent-save-group-info): Only do those that + are covered. + + Tue Apr 7 11:26:31 1998 Lars Magne Ingebrigtsen + + * nntp.el (nntp-authinfo-file): Doc fix. + + 1998-03-31 Ken Raeburn + + * 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 + + * message.el (message-supersede): Check Sender. + (message-cancel-news): Fix Sender check. + + Sun Mar 29 11:54:33 1998 Lars Magne Ingebrigtsen + + * 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 * 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 . ! (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 --- 1,4 ---- ! ;;; nneething.el --- arbitrary file access for Gnus ;; Copyright (C) 1995,96,97,98 Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen *** 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 ! ;; Masanobu UMEDA ! ;; 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 + + * 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 * gnus.texi (Example Methods): Addition. -- (domestic pets only, the antidote for overdose, milk.) larsi@ifi.uio.no * Lars Magne Ingebrigtsen