From: ichikawa Date: Sun, 30 Aug 1998 03:25:50 +0000 (+0000) Subject: Sync up with gnus-5.6.42 X-Git-Tag: ichikawa-199811302358~2 X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e501a5e41d87ce00a9e9187e5e907a7cbba7b3af;p=elisp%2Fgnus.git- Sync up with gnus-5.6.42 --- diff --git a/ChangeLog b/ChangeLog index 1d775d7..c5976e8 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,12 @@ +1998-08-30 Tatsuya Ichikawa + + * lisp/gnus-agent.el (gnus-agent-fetch-headers): Bug Fix. + When add a new newsgroup , gnus-agent cannot fetch articles. + + * lisp/gnus.el (gnus-version-number): Update to 6.8.17. + + * Sync up with Gnus 5.6.42. + 1998-08-28 Shuhei KOBAYASHI * lisp/gnus-i18n.el (gnus-set-summary-default-charset): Try diff --git a/README.ichikawa b/README.ichikawa index 750cc8a..61b2919 100644 --- a/README.ichikawa +++ b/README.ichikawa @@ -23,4 +23,7 @@ NEWS: * TODO - ...... +* T-gnus 6.8.17 is the last version Gnus 5.6 base. + After this , T-gnus 6.9 - this is based on pgnus. + + T-gnus 6.9.0 - Based on pgnus-0.6 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 94fbbde..d06cf06 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,28 @@ +Sat Aug 29 19:17:19 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.42 is released. + +1998-08-29 17:06:27 Simon Josefsson + + * gnus-sum.el (gnus-summary-make-menu-bar): Typo. + +1998-08-29 12:47:42 Tatsuya Ichikawa + + * gnus-agent.el: Use nnheader-insert-file-contents. + +1998-08-29 12:18:18 Lars Magne Ingebrigtsen + + * nnvirtual.el (nnvirtual-request-group): Update the right group. + +1998-08-27 16:46:38 Lars Magne Ingebrigtsen + + * gnus-sum.el (gnus-data-compute-positions): Didn't work on hidden + threads. + + * nnvirtual.el (nnvirtual-request-group): Work when always + updating. + (nnvirtual-always-rescan): Default to t. + Thu Aug 27 11:03:59 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.41 is released. diff --git a/lisp/gnus-agent.el b/lisp/gnus-agent.el index 29a1960..c170e7e 100644 --- a/lisp/gnus-agent.el +++ b/lisp/gnus-agent.el @@ -751,37 +751,39 @@ the actual number of articles toggled is returned." (pop gnus-agent-group-alist)))) (defun gnus-agent-fetch-headers (group &optional force) - (when (gnus-agent-load-alist group) - (let ((articles (gnus-uncompress-range - (cons (1+ (caar (last (gnus-agent-load-alist group)))) - (cdr (gnus-active group)))))) - ;; Fetch them. - (when articles - (gnus-message 7 "Fetching headers for %s..." group) - (save-excursion - (set-buffer nntp-server-buffer) - (unless (eq 'nov (gnus-retrieve-headers articles group)) - (nnvirtual-convert-headers)) - (goto-char (point-min)) - (while (not (eobp)) - (goto-char (point-at-eol)) - (insert "\t") - (forward-line 1)) - ;; Save these headers for later processing. - (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max)) - (let (file) - (when (file-exists-p - (setq file (gnus-agent-article-name ".overview" group))) - (gnus-agent-braid-nov group articles file)) - (gnus-make-directory (nnheader-translate-file-chars - (file-name-directory file))) - (write-region (point-min) (point-max) file nil 'silent) - (gnus-agent-save-alist group articles nil) - (gnus-agent-enter-history - "last-header-fetched-for-session" - (list (cons group (nth (- (length articles) 1) articles))) - (gnus-time-to-day (current-time))) - articles)))))) + (gnus-agent-load-alist group) + ;; Find out what headers we need to retrieve. + (when articles + (while (and articles + (assq (car articles) gnus-agent-article-alist)) + (pop articles)) + (let ((arts articles)) + (while (cdr arts) + (if (assq (cadr arts) gnus-agent-article-alist) + (setcdr arts (cddr arts)) + (setq arts (cdr arts))))) + ;; Fetch them. + (when articles + (gnus-message 7 "Fetching headers for %s..." group) + (save-excursion + (set-buffer nntp-server-buffer) + (unless (eq 'nov (gnus-retrieve-headers articles group)) + (nnvirtual-convert-headers)) + ;; Save these headers for later processing. + (copy-to-buffer gnus-agent-overview-buffer (point-min) (point-max)) + (let (file) + (when (file-exists-p + (setq file (gnus-agent-article-name ".overview" group))) + (gnus-agent-braid-nov group articles file)) + (gnus-make-directory (nnheader-translate-file-chars + (file-name-directory file))) + (write-region (point-min) (point-max) file nil 'silent) + (gnus-agent-save-alist group articles nil) + (gnus-agent-enter-history "last-header-fetched-for-session" + (list (cons group (nth (- (length articles) 1) articles))) + (gnus-time-to-day (current-time))) + t))))) + (defsubst gnus-agent-copy-nov-line (article) (let (b e) diff --git a/lisp/gnus-cache.el b/lisp/gnus-cache.el index 2251b17..f28662b 100644 --- a/lisp/gnus-cache.el +++ b/lisp/gnus-cache.el @@ -400,7 +400,8 @@ Returns the list of articles removed." (save-excursion (setq gnus-cache-buffer (cons group - (set-buffer (gnus-get-buffer-create " *gnus-cache-overview*")))) + (set-buffer (gnus-get-buffer-create + " *gnus-cache-overview*")))) (buffer-disable-undo (current-buffer)) ;; Insert the contents of this group's cache overview. (erase-buffer) diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el index 9f41f4c..649b259 100644 --- a/lisp/gnus-msg.el +++ b/lisp/gnus-msg.el @@ -190,51 +190,9 @@ Thank you for your help in stamping out bugs. ;;; Internal functions. (defun gnus-extended-version () - "Stringified Gnus version and Emacs version." + "Stringified gnus version." (interactive) ; ??? - (concat - ;; Semi-gnus/VERSION - gnus-product-name "/" gnus-version-number - ;; EMACS/VERSION - (if (featurep 'xemacs) - ;; XEmacs - (concat - (format " XEmacs/%d.%d%s" emacs-major-version emacs-minor-version - (if (and (boundp 'xemacs-betaname) xemacs-betaname) - (if (string-match "\\`(\\(.*\\))\\'" xemacs-betaname) - (match-string 1 xemacs-betaname) - "") ; unknown format - "")) ; not beta - (if (boundp 'xemacs-codename) - (concat " (" xemacs-codename ")") - "") ; no codename - ) - ;; not XEmacs - (concat - (format " Emacs/%d.%d" emacs-major-version emacs-minor-version) - (if (and (boundp 'enable-multibyte-characters) - enable-multibyte-characters) - ;; Should return " (multibyte)" ? - "" - " (unibyte)") - )) - ;; MULE[/VERSION] - (if (featurep 'mule) - (if (and (boundp 'mule-version) mule-version) - (concat " MULE/" mule-version) - " MULE") ; no mule-version - "") ; not Mule - ;; Meadow/VERSION - (if (featurep 'meadow) - (let ((version (Meadow-version))) - (if (string-match "\\`Meadow.\\([^ ]*\\)\\( (.*)\\)\\'" version) - (concat " Meadow/" - (match-string 1 version) - (match-string 2 version) - ) - "Meadow")) ; unknown format - "") ; not Meadow - )) + (concat gnus-product-name "/" gnus-version-number)) (defvar gnus-article-reply nil) (defmacro gnus-setup-message (config &rest forms) diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el index ab32d6d..08c7ac0 100644 --- a/lisp/gnus-sum.el +++ b/lisp/gnus-sum.el @@ -1749,7 +1749,7 @@ increase the score of each group you read." ["Send a bug report" gnus-bug t] ("Exit" ["Catchup and exit" gnus-summary-catchup-and-exit t] - ["Catchup all and exit" gnus-summary-catchup-and-exit t] + ["Catchup all and exit" gnus-summary-catchup-all-and-exit t] ["Catchup and goto next" gnus-summary-catchup-and-goto-next-group t] ["Exit group" gnus-summary-exit t] ["Exit group without updating" gnus-summary-exit-no-update t] @@ -2046,13 +2046,14 @@ The following commands are available: (setq gnus-newsgroup-data-reverse nil) (let ((data gnus-newsgroup-data)) (save-excursion - (goto-char (point-min)) - (while data - (while (get-text-property (point) 'gnus-intangible) - (forward-line 1)) - (gnus-data-set-pos (car data) (+ (point) 3)) - (setq data (cdr data)) - (forward-line 1))))) + (gnus-save-hidden-threads + (goto-char (point-min)) + (while data + (while (get-text-property (point) 'gnus-intangible) + (forward-line 1)) + (gnus-data-set-pos (car data) (+ (point) 3)) + (setq data (cdr data)) + (forward-line 1)))))) (defun gnus-summary-article-pseudo-p (article) "Say whether this article is a pseudo article or not." diff --git a/lisp/gnus.el b/lisp/gnus.el index c9004f5..89c6b23 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -253,11 +253,11 @@ is restarted, and sometimes reloaded." (defconst gnus-product-name "T-gnus" "Product name of this version of gnus.") -(defconst gnus-version-number "6.8.16" +(defconst gnus-version-number "6.8.17" "Version number for this version of gnus.") (defconst gnus-version - (format "%s %s (based on Gnus 5.6.41; for SEMI 1.8, FLIM 1.8/1.9)" + (format "%s %s (based on Gnus 5.6.42; for SEMI 1.8, FLIM 1.8/1.9)" gnus-product-name gnus-version-number) "Version string for this version of gnus.") diff --git a/lisp/message.el b/lisp/message.el index 7cea25a..b4475e2 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -3089,6 +3089,24 @@ give as trustworthy answer as possible." "Return user-agent info." (let ((user-agent (concat + ;; SEMI: '("SEMI" "CODENAME" V1 V2 V3) + (format "%s/%s (%s)" + (nth 0 mime-user-interface-version) + (mapconcat #'number-to-string + (cdr (cdr mime-user-interface-version)) + ".") + (nth 1 mime-user-interface-version)) + ;; FLIM: "FLIM VERSION - \"CODENAME\"[...]" + (if (string-match + "\\`\\([^ ]+\\) \\([^ ]+\\) - \"\\([^\"]+\\)\"\\(.*\\)\\'" + mime-library-version-string) + (format " %s/%s (%s%s)" + (match-string 1 mime-library-version-string) + (match-string 2 mime-library-version-string) + (match-string 3 mime-library-version-string) + (match-string 4 mime-library-version-string)) + " FLIM") + "\n " ;; EMACS/VERSION (if (featurep 'xemacs) ;; XEmacs diff --git a/lisp/nnvirtual.el b/lisp/nnvirtual.el index d8bf70d..4829341 100644 --- a/lisp/nnvirtual.el +++ b/lisp/nnvirtual.el @@ -43,7 +43,7 @@ (nnoo-declare nnvirtual) -(defvoo nnvirtual-always-rescan nil +(defvoo nnvirtual-always-rescan t "*If non-nil, always scan groups for unread articles when entering a group. If this variable is nil (which is the default) and you read articles in a component group after the virtual group has been activated, the @@ -259,12 +259,14 @@ to virtual article number.") (setq nnvirtual-current-group nil) (nnheader-report 'nnvirtual "No component groups in %s" group)) (t + (setq nnvirtual-current-group group) (when (or (not dont-check) nnvirtual-always-rescan) (nnvirtual-create-mapping) (when nnvirtual-always-rescan - (nnvirtual-request-update-info group (gnus-get-info group)))) - (setq nnvirtual-current-group group) + (nnvirtual-request-update-info + (nnvirtual-current-group) + (gnus-get-info (nnvirtual-current-group))))) (nnheader-insert "211 %d 1 %d %s\n" nnvirtual-mapping-len nnvirtual-mapping-len group)))) diff --git a/texi/gnus.texi b/texi/gnus.texi index 28b0dee..258e5a9 100644 --- a/texi/gnus.texi +++ b/texi/gnus.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename gnus -@settitle Semi-gnus 6.8.16 Manual +@settitle Semi-gnus 6.8.17 Manual @synindex fn cp @synindex vr cp @synindex pg cp @@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions. @tex @titlepage -@title Semi-gnus 6.8.16 Manual +@title Semi-gnus 6.8.17 Manual @author by Lars Magne Ingebrigtsen @page @@ -361,7 +361,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.16. +This manual corresponds to Semi-gnus 6.8.17. @end ifinfo diff --git a/texi/message.texi b/texi/message.texi index 9133c73..5399b2f 100644 --- a/texi/message.texi +++ b/texi/message.texi @@ -1,7 +1,7 @@ \input texinfo @c -*-texinfo-*- @setfilename message -@settitle Message 5.6.41 Manual +@settitle Message 5.6.42 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.41 Manual +@title Message 5.6.42 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.41. Message is distributed with +This manual corresponds to Message 5.6.42. Message is distributed with the Gnus distribution bearing the same version number as this manual has.