From 4f1a432d754e19d6e480b2681848d1d8cb9a63ef Mon Sep 17 00:00:00 2001 From: ichikawa Date: Tue, 4 Aug 1998 14:53:39 +0000 Subject: [PATCH] Sync up with Gnus 5.6.28 --- ChangeLog | 12 ++++++++++++ lisp/ChangeLog | 35 +++++++++++++++++++++++++++++++++-- lisp/gnus-art.el | 7 ++++++- lisp/gnus-cache.el | 2 +- lisp/gnus-group.el | 8 ++++---- lisp/gnus-uu.el | 13 +++++++------ lisp/gnus.el | 4 ++-- lisp/nndir.el | 6 +++--- lisp/nndoc.el | 6 +++--- lisp/nntp.el | 3 ++- texi/gnus.texi | 12 ++++++------ texi/message.texi | 6 +++--- 12 files changed, 82 insertions(+), 32 deletions(-) diff --git a/ChangeLog b/ChangeLog index e9164d4..f3387a0 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,15 @@ +1998-08-04 Tatsuya Ichikawa + + * lisp/gnus.el (gnus-version-number): Update to 6.8.5. + + * Sync up with Gnus 5.6.28. + +1998-07-27 Tatsuya Ichikawa + + * lisp/gnus.el (gnus-version-number): Update to 6.8.4. + + * Sync up with Gnus 5.6.27. + 1998-07-27 Yoshiki Hayashi * texi/message-ja.texi: Japanese translation of "message.texi". diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7b41fcb..429b2d6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,33 @@ +Tue Aug 4 05:25:01 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.28 is released. + +1998-08-03 22:00:25 Lars Magne Ingebrigtsen + + * nndoc.el (nndoc-set-delims): Removed article-end. + (nndoc-dissect-buffer): Use eobp. + +1998-08-03 19:59:36 Trung Tran-Duc + + * nntp.el (nntp-open-connection): Bind coding-system-for-write. + +1998-07-31 16:45:36 Lars Magne Ingebrigtsen + + * gnus-group.el (gnus-group-read-ephemeral-group): Make the server + unique. + +1998-07-28 François Pinard + + * gnus-uu.el (gnus-uu-reginize-string): Consider the number of + parts as part of the fixed subject, instead of a wild quantity. + +1998-07-30 21:47:23 Lars Magne Ingebrigtsen + + * gnus-cache.el (gnus-summary-insert-cached-articles): Sort + articles. + + * nndir.el (nndir): Use nnml functions. + Mon Jul 27 03:26:00 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.27 is released. @@ -39,9 +69,10 @@ Mon Jul 27 03:26:00 1998 Lars Magne Ingebrigtsen * gnus-sum.el (gnus-summary-update-article): Don't pass along iheader to regeneration routine. -1998-07-26 17:33:03 KOSEKI Yoshinori +1998-07-27 KOSEKI Yoshinori - * nnmail.el (nnmail-move-inbox): Nix out password on errors. + * nnmail.el (nnmail-move-inbox): Clear nnmail-internal-password, + when supplied Password is incorrect. Sat Jul 25 19:31:36 1998 Lars Magne Ingebrigtsen diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el index 708c27c..51545f9 100644 --- a/lisp/gnus-art.el +++ b/lisp/gnus-art.el @@ -2073,7 +2073,12 @@ If ALL-HEADERS is non-nil, no headers are hidden." (unless (vectorp gnus-current-headers) (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) - (gnus-summary-show-thread) + (when (gnus-summary-show-thread) + ;; If the summary buffer really was folded, the + ;; previous goto may not actually have gone to + ;; the right article, but the thread root instead. + ;; So we go again. + (gnus-summary-goto-subject gnus-current-article)) (gnus-run-hooks 'gnus-mark-article-hook) (gnus-set-mode-line 'summary) (when (gnus-visual-p 'article-highlight 'highlight) diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index 21e3c50..3ba956d 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -347,7 +347,7 @@ Returns the list of articles removed." (defun gnus-summary-insert-cached-articles () "Insert all the articles cached for this group into the current buffer." (interactive) - (let ((cached gnus-newsgroup-cached) + (let ((cached (sort (copy-sequence gnus-newsgroup-cached) '<)) (gnus-verbose (max 6 gnus-verbose))) (unless cached (gnus-message 3 "No cached articles for this group")) diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el index a7c0328..71ea9ad 100644 --- a/lisp/gnus-group.el +++ b/lisp/gnus-group.el @@ -1554,10 +1554,6 @@ be permanent." gnus-summary-mode-hook gnus-select-group-hook (group (gnus-group-group-name)) (method (gnus-find-method-for-group group))) - (setq method - `(,(car method) ,(concat (cadr method) "-ephemeral") - (,(intern (format "%s-address" (car method))) ,(cadr method)) - ,@(cddr method))) (gnus-group-read-ephemeral-group (gnus-group-prefixed-name group method) method))) @@ -1588,6 +1584,10 @@ Return the name of the group is selection was successful." ;; Transform the select method into a unique server. (when (stringp method) (setq method (gnus-server-to-method method))) + (setq method + `(,(car method) ,(concat (cadr method) "-ephemeral") + (,(intern (format "%s-address" (car method))) ,(cadr method)) + ,@(cddr method))) (let ((group (if (gnus-group-foreign-p group) group (gnus-group-prefixed-name group method)))) (gnus-sethash diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el index 7d7cc8a..4512edb 100644 --- a/lisp/gnus-uu.el +++ b/lisp/gnus-uu.el @@ -1020,9 +1020,9 @@ didn't work, and overwrite existing files. Otherwise, ask each time." (defun gnus-uu-reginize-string (string) ;; Takes a string and puts a \ in front of every special character; - ;; replaces the last thing that looks like "2/3" with "[0-9]+/[0-9]+" + ;; replaces the last thing that looks like "2/3" with "[0-9]+/3" ;; or, if it can't find something like that, tries "2 of 3", then - ;; finally just replaces the last two numbers with "[0-9]+". + ;; finally just replaces the next to last number with "[0-9]+". (let ((count 2)) (save-excursion (set-buffer (get-buffer-create gnus-uu-output-buffer-name)) @@ -1033,12 +1033,13 @@ didn't work, and overwrite existing files. Otherwise, ask each time." (setq case-fold-search nil) (end-of-line) - (if (re-search-backward "\\([^0-9]\\)[0-9]+/[0-9]+" nil t) - (replace-match "\\1[0-9]+/[0-9]+") + (if (re-search-backward "\\([^0-9]\\)[0-9]+/\\([0-9]+\\)" nil t) + (replace-match "\\1[0-9]+/\\2") (end-of-line) - (if (re-search-backward "\\([^0-9]\\)[0-9]+[ \t]*of[ \t]*[0-9]+" nil t) - (replace-match "\\1[0-9]+ of [0-9]+") + (if (re-search-backward "\\([^0-9]\\)[0-9]+[ \t]*of[ \t]*\\([0-9]+\\)" + nil t) + (replace-match "\\1[0-9]+ of \\2") (end-of-line) (if (re-search-backward "\\([^0-9]\\)[0-9]+\\([^0-9]+\\)[0-9]+" diff --git a/lisp/gnus.el b/lisp/gnus.el index 5ee89d4..e59f425 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -250,11 +250,11 @@ is restarted, and sometimes reloaded." :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) -(defconst gnus-version-number "6.8.4" +(defconst gnus-version-number "6.8.5" "Version number for this version of gnus.") (defconst gnus-version - (format "Semi-gnus %s (based on Gnus 5.6.27; for SEMI 1.8, FLIM 1.8/1.9)" + (format "Semi-gnus %s (based on Gnus 5.6.28; for SEMI 1.8, FLIM 1.8/1.9)" gnus-version-number) "Version string for this version of gnus.") diff --git a/lisp/nndir.el b/lisp/nndir.el index 5a32cbd..c4c7509 100644 --- a/lisp/nndir.el +++ b/lisp/nndir.el @@ -89,10 +89,10 @@ (nnoo-map-functions nndir (nnml-retrieve-headers 0 nndir-current-group 0 0) (nnml-request-article 0 nndir-current-group 0 0) - (nnmh-request-group nndir-current-group 0 0) + (nnml-request-group nndir-current-group 0 0) (nnml-close-group nndir-current-group 0) - (nnmh-request-list (nnoo-current-server 'nndir) nndir-directory) - (nnmh-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) + (nnml-request-list (nnoo-current-server 'nndir) nndir-directory) + (nnml-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) (provide 'nndir) diff --git a/lisp/nndoc.el b/lisp/nndoc.el index c32f50f..e4c79c1 100644 --- a/lisp/nndoc.el +++ b/lisp/nndoc.el @@ -131,7 +131,6 @@ from the document.") (defvoo nndoc-file-begin nil) (defvoo nndoc-first-article nil) -(defvoo nndoc-article-end nil) (defvoo nndoc-article-begin nil) (defvoo nndoc-head-begin nil) (defvoo nndoc-head-end nil) @@ -307,7 +306,8 @@ from the document.") "Set the nndoc delimiter variables according to the type of the document." (let ((vars '(nndoc-file-begin nndoc-first-article - nndoc-article-end nndoc-head-begin nndoc-head-end + nndoc-article-begin-function + nndoc-head-begin nndoc-head-end nndoc-file-end nndoc-article-begin nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body-function nndoc-article-transform-function @@ -572,7 +572,7 @@ from the document.") (funcall nndoc-head-begin-function)) (nndoc-head-begin (nndoc-search nndoc-head-begin))) - (if (or (>= (point) (point-max)) + (if (or (eobp) (and nndoc-file-end (looking-at nndoc-file-end))) (goto-char (point-max)) diff --git a/lisp/nntp.el b/lisp/nntp.el index cb06d09..5b6545f 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -832,7 +832,8 @@ password contained in '~/.nntp-authinfo'." (let* ((pbuffer (nntp-make-process-buffer buffer)) (process (condition-case () - (let ((coding-system-for-read nntp-coding-system-for-read)) + (let ((coding-system-for-read nntp-coding-system-for-read) + (coding-system-for-write nntp-coding-system-for-write)) (funcall nntp-open-connection-function pbuffer)) (error nil) (quit nil)))) diff --git a/texi/gnus.texi b/texi/gnus.texi index b3d7add..d0b45c2 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.8.4 Manual +@settitle Semi-gnus 6.8.5 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -316,7 +316,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.8.4 Manual +@title Semi-gnus 6.8.5 Manual @author by Lars Magne Ingebrigtsen @page @@ -359,7 +359,7 @@ internationalization/localization and multiscript features based on MULE API. So Semi-gnus does not discriminate various language communities. Oh, if you are a Klingon, please wait Unicode Next Generation. -This manual corresponds to Semi-gnus 6.8.4. +This manual corresponds to Semi-gnus 6.8.5. @end ifinfo @@ -15385,7 +15385,7 @@ On July 28th 1996 work on Red Gnus was begun, and it was released on January 25th 1997 (after 84 releases) as ``Gnus 5.4'' (67 releases). On September 13th 1997, Quassia Gnus was started and lasted 37 -releases. If was released as ``Gnus 5.6.27' on March 8th 1998. +releases. If was released as ``Gnus 5.6.28' on March 8th 1998. If you happen upon a version of Gnus that has a prefixed name -- ``(ding) Gnus'', ``September Gnus'', ``Red Gnus'', ``Quassia Gnus'' -- @@ -15862,7 +15862,7 @@ actually are people who are using Gnus. Who'd'a thunk it! * 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.27. +* Quassia Gnus:: Two times two is four, or Gnus 5.6.28. @end menu These lists are, of course, just @emph{short} overviews of the @@ -16397,7 +16397,7 @@ Emphasized text can be properly fontisized: @node Quassia Gnus @subsubsection Quassia Gnus -New features in Gnus 5.6.27: +New features in Gnus 5.6.28: @itemize @bullet diff --git a/texi/message.texi b/texi/message.texi index cb8a914..4cd5b5e 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.27 Manual +@settitle Message 5.6.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Message 5.6.27 Manual +@title Message 5.6.28 Manual @author by Lars Magne Ingebrigtsen @page @@ -83,7 +83,7 @@ Message mode buffers. * Key Index:: List of Message mode keys. @end menu -This manual corresponds to Message 5.6.27. Message is distributed with +This manual corresponds to Message 5.6.28. Message is distributed with the Gnus distribution bearing the same version number as this manual has. -- 1.7.10.4