+1998-08-30 Tatsuya Ichikawa <t-ichi@po.shiojiri.ne.jp>
+
+ * 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 <shuhei-k@jaist.ac.jp>
* lisp/gnus-i18n.el (gnus-set-summary-default-charset): Try
* 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
+Sat Aug 29 19:17:19 1998 Lars Magne Ingebrigtsen <larsi@menja.ifi.uio.no>
+
+ * gnus.el: Gnus v5.6.42 is released.
+
+1998-08-29 17:06:27 Simon Josefsson <jas@pdc.kth.se>
+
+ * gnus-sum.el (gnus-summary-make-menu-bar): Typo.
+
+1998-08-29 12:47:42 Tatsuya Ichikawa <ichikawa@hv.epson.co.jp>
+
+ * gnus-agent.el: Use nnheader-insert-file-contents.
+
+1998-08-29 12:18:18 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * nnvirtual.el (nnvirtual-request-group): Update the right group.
+
+1998-08-27 16:46:38 Lars Magne Ingebrigtsen <larsi@gnus.org>
+
+ * 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 <larsi@menja.ifi.uio.no>
* gnus.el: Gnus v5.6.41 is released.
(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)
(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)
;;; 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)
["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]
(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."
(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.")
"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
(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
(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))))
\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
@tex
@titlepage
-@title Semi-gnus 6.8.16 Manual
+@title Semi-gnus 6.8.17 Manual
@author by Lars Magne Ingebrigtsen
@page
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
\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
@tex
@titlepage
-@title Message 5.6.41 Manual
+@title Message 5.6.42 Manual
@author by Lars Magne Ingebrigtsen
@page
* 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.
projects / elisp / gnus.git- / commitdiff