*** pub/qgnus/lisp/gnus-art.el Mon Jul 27 03:25:50 1998 --- qgnus/lisp/gnus-art.el Tue Aug 4 05:26:20 1998 *************** *** 2089,2095 **** (unless (vectorp gnus-current-headers) (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) ! (gnus-summary-show-thread) (gnus-run-hooks 'gnus-mark-article-hook) (gnus-set-mode-line 'summary) (when (gnus-visual-p 'article-highlight 'highlight) --- 2089,2100 ---- (unless (vectorp gnus-current-headers) (setq gnus-current-headers nil)) (gnus-summary-goto-subject gnus-current-article) ! (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) *** pub/qgnus/lisp/gnus-cache.el Fri Jun 26 04:26:36 1998 --- qgnus/lisp/gnus-cache.el Tue Aug 4 05:26:21 1998 *************** *** 347,353 **** (defun gnus-summary-insert-cached-articles () "Insert all the articles cached for this group into the current buffer." (interactive) ! (let ((cached gnus-newsgroup-cached) (gnus-verbose (max 6 gnus-verbose))) (unless cached (gnus-message 3 "No cached articles for this group")) --- 347,353 ---- (defun gnus-summary-insert-cached-articles () "Insert all the articles cached for this group into the current buffer." (interactive) ! (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")) *** pub/qgnus/lisp/gnus-group.el Mon Jul 27 03:25:51 1998 --- qgnus/lisp/gnus-group.el Tue Aug 4 05:26:21 1998 *************** *** 1554,1563 **** 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))) --- 1554,1559 ---- *************** *** 1588,1593 **** --- 1584,1593 ---- ;; 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 *** pub/qgnus/lisp/gnus-uu.el Mon Jul 27 03:25:52 1998 --- qgnus/lisp/gnus-uu.el Tue Aug 4 05:26:22 1998 *************** *** 1020,1028 **** (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]+" ;; or, if it can't find something like that, tries "2 of 3", then ! ;; finally just replaces the last two numbers with "[0-9]+". (let ((count 2)) (save-excursion (set-buffer (get-buffer-create gnus-uu-output-buffer-name)) --- 1020,1028 ---- (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]+/3" ;; or, if it can't find something like that, tries "2 of 3", then ! ;; 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,1044 **** (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]+") (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]+") (end-of-line) (if (re-search-backward "\\([^0-9]\\)[0-9]+\\([^0-9]+\\)[0-9]+" --- 1033,1045 ---- (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]+/\\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 \\2") (end-of-line) (if (re-search-backward "\\([^0-9]\\)[0-9]+\\([^0-9]+\\)[0-9]+" *** pub/qgnus/lisp/gnus.el Mon Jul 27 03:25:53 1998 --- qgnus/lisp/gnus.el Tue Aug 4 05:26:22 1998 *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.27" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) --- 250,256 ---- :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.28" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/nndir.el Sat Jul 25 02:41:38 1998 --- qgnus/lisp/nndir.el Tue Aug 4 05:26:22 1998 *************** *** 89,98 **** (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-close-group nndir-current-group 0) ! (nnmh-request-list (nnoo-current-server 'nndir) nndir-directory) ! (nnmh-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) (provide 'nndir) --- 89,98 ---- (nnoo-map-functions nndir (nnml-retrieve-headers 0 nndir-current-group 0 0) (nnml-request-article 0 nndir-current-group 0 0) ! (nnml-request-group nndir-current-group 0 0) (nnml-close-group nndir-current-group 0) ! (nnml-request-list (nnoo-current-server 'nndir) nndir-directory) ! (nnml-request-newsgroups (nnoo-current-server 'nndir) nndir-directory)) (provide 'nndir) *** pub/qgnus/lisp/nndoc.el Mon Jun 29 22:51:21 1998 --- qgnus/lisp/nndoc.el Tue Aug 4 05:26:22 1998 *************** *** 131,137 **** (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) --- 131,136 ---- *************** *** 307,313 **** "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-file-end nndoc-article-begin nndoc-body-begin nndoc-body-end-function nndoc-body-end nndoc-prepare-body-function nndoc-article-transform-function --- 306,313 ---- "Set the nndoc delimiter variables according to the type of the document." (let ((vars '(nndoc-file-begin nndoc-first-article ! 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,578 **** (funcall nndoc-head-begin-function)) (nndoc-head-begin (nndoc-search nndoc-head-begin))) ! (if (or (>= (point) (point-max)) (and nndoc-file-end (looking-at nndoc-file-end))) (goto-char (point-max)) --- 572,578 ---- (funcall nndoc-head-begin-function)) (nndoc-head-begin (nndoc-search nndoc-head-begin))) ! (if (or (eobp) (and nndoc-file-end (looking-at nndoc-file-end))) (goto-char (point-max)) *** pub/qgnus/lisp/nntp.el Sat Jul 25 02:41:38 1998 --- qgnus/lisp/nntp.el Tue Aug 4 05:26:23 1998 *************** *** 832,838 **** (let* ((pbuffer (nntp-make-process-buffer buffer)) (process (condition-case () ! (let ((coding-system-for-read nntp-coding-system-for-read)) (funcall nntp-open-connection-function pbuffer)) (error nil) (quit nil)))) --- 832,839 ---- (let* ((pbuffer (nntp-make-process-buffer buffer)) (process (condition-case () ! (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)))) *** pub/qgnus/lisp/ChangeLog Mon Jul 27 03:25:50 1998 --- qgnus/lisp/ChangeLog Tue Aug 4 05:26:20 1998 *************** *** 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,47 **** * gnus-sum.el (gnus-summary-update-article): Don't pass along iheader to regeneration routine. ! 1998-07-26 17:33:03 KOSEKI Yoshinori ! * nnmail.el (nnmail-move-inbox): Nix out password on errors. Sat Jul 25 19:31:36 1998 Lars Magne Ingebrigtsen --- 69,78 ---- * gnus-sum.el (gnus-summary-update-article): Don't pass along iheader to regeneration routine. ! 1998-07-27 KOSEKI Yoshinori ! * nnmail.el (nnmail-move-inbox): Clear nnmail-internal-password, ! when supplied Password is incorrect. Sat Jul 25 19:31:36 1998 Lars Magne Ingebrigtsen *** pub/qgnus/texi/gnus.texi Mon Jul 27 03:25:55 1998 --- qgnus/texi/gnus.texi Tue Aug 4 05:26:24 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.27 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 316,322 **** @tex @titlepage ! @title Gnus 5.6.27 Manual @author by Lars Magne Ingebrigtsen @page --- 316,322 ---- @tex @titlepage ! @title Gnus 5.6.28 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.27. @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.28. @end ifinfo *************** *** 15384,15390 **** 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. If you happen upon a version of Gnus that has a prefixed name -- ``(ding) Gnus'', ``September Gnus'', ``Red Gnus'', ``Quassia Gnus'' -- --- 15384,15390 ---- 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.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'' -- *************** *** 15861,15867 **** * 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. @end menu These lists are, of course, just @emph{short} overviews of the --- 15861,15867 ---- * 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.28. @end menu These lists are, of course, just @emph{short} overviews of the *************** *** 16396,16402 **** @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.27: @itemize @bullet --- 16396,16402 ---- @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.28: @itemize @bullet *** pub/qgnus/texi/message.texi Mon Jul 27 03:25:55 1998 --- qgnus/texi/message.texi Tue Aug 4 05:26:25 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.27 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.28 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Message 5.6.27 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Message 5.6.28 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.27. 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.28. Message is distributed with the Gnus distribution bearing the same version number as this manual has.