* 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* Re: Gnus v5.6.5 is released
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
` (2 subsequent siblings)
3 siblings, 0 replies; 7+ messages in thread
From: Jason L Tibbitts III @ 1998-04-24 21:53 UTC (permalink / raw)
Hmmm. A news<->gateway echoed that back to the list:
Received: from nic.lp.se (LEVITTE@195.84.196.241)
by claymore.vcinet.com with SMTP; 24 Apr 1998 20:01:59 -0000
Received: by lp.se (MX V5.0) with SITE; Fri, 24 Apr 1998 22:01:40 +0200
X-Boast: News<=>Mail gateway
Path: news.bofh.se!ding-announce-gate!list
This makes me...unhappy. I really, really hate bidirectional gateways.
Especially ones set up without my knowledge.
- J<
^ permalink raw reply [flat|nested] 7+ messages in thread* Re: Gnus v5.6.5 is released
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
3 siblings, 1 reply; 7+ messages in thread
From: SL Baur @ 1998-04-24 23:24 UTC (permalink / raw)
> Get it from <URL:http://www.gnus.org/gnus.tar.gz> or
> "/ftp@ftp.gnus.org:/pub/emacs/gnus/".
Oops. The full tarball is unreadable:
-rw------- 1 4867 14867 789221 Apr 24 21:15 gnus-5.6.5.tar.gz
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Gnus v5.6.5 is released
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 17:25 ` Michael R Cook
1998-04-27 14:20 ` Hrvoje Niksic
3 siblings, 0 replies; 7+ messages in thread
From: Michael R Cook @ 1998-04-25 17:25 UTC (permalink / raw)
Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:
> * gnus.el: Gnus v5.6.5 is released.
In previous releases, I would do
$ ./configure --prefix=/foo/bar
$ make
$ make install
With 5.6.5, I got errors at `make install' about not being able to
create `/stage/...' directories. It seems $(prefix) evaluates to
the null string.
My workaround was to do this first:
$ export prefix=/foo/bar
Michael.
^ permalink raw reply [flat|nested] 7+ messages in thread
* Re: Gnus v5.6.5 is released
1998-04-24 19:33 Gnus v5.6.5 is released Lars Magne Ingebrigtsen
` (2 preceding siblings ...)
1998-04-25 17:25 ` Michael R Cook
@ 1998-04-27 14:20 ` Hrvoje Niksic
3 siblings, 0 replies; 7+ messages in thread
From: Hrvoje Niksic @ 1998-04-27 14:20 UTC (permalink / raw)
Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:
> 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.
Wow. I'll try using nnkiboze now.
--
Hrvoje Niksic <hniksic@srce.hr> | Student at FER Zagreb, Croatia
--------------------------------+--------------------------------
By any chance, have you seen a summoned 9th order fire elemental
wandering around? No? Oh.. Tell me if you do.
^ 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).