*** pub/qgnus/lisp/gnus.el Fri May 1 19:44:39 1998 --- qgnus/lisp/gnus.el Fri May 1 21:57:25 1998 *************** *** 250,256 **** :link '(custom-manual "(gnus)Exiting Gnus") :group 'gnus) ! (defconst gnus-version-number "5.6.8" "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.9" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) *** pub/qgnus/lisp/nnfolder.el Fri May 1 19:44:42 1998 --- qgnus/lisp/nnfolder.el Fri May 1 21:57:25 1998 *************** *** 478,497 **** "Place point at the start of the headers of ARTICLE. ARTICLE can be an article number or a Message-ID." (let ((art-string (nnfolder-article-string article)) ! end-search end) ! (while (not end-search) ! (if (or (search-forward art-string nil t) ! ;; Don't search the whole file twice! Also, articles ! ;; probably have some locality by number, so searching ! ;; backwards will be faster. Especially if we're at the ! ;; beginning of the buffer :-). -SLB ! (search-backward art-string nil t)) ! (progn ! (setq end (point)) ! (nnmail-search-unix-mail-delim-backward) ! (unless (save-excursion (search-forward "\n\n" nil end)) ! (setq end-search 'found))) ! (setq end-search t))) (eq end-search 'found))) (defun nnfolder-delete-mail (&optional force leave-delim) --- 478,508 ---- "Place point at the start of the headers of ARTICLE. ARTICLE can be an article number or a Message-ID." (let ((art-string (nnfolder-article-string article)) ! end-search end start beg) ! (beginning-of-line) ! (unless (bobp) ! (forward-char -1)) ! (setq start (point)) ! (while (and (not end-search) ! (search-forward art-string nil t)) ! (setq end (point)) ! (nnmail-search-unix-mail-delim-backward) ! (setq beg (point)) ! (when (and (search-forward "\n\n" nil end) ! (search-backward art-string nil beg)) ! (setq end-search 'found) ! (goto-char beg))) ! (unless end-search ! (goto-char start) ! (while (and (not end-search) ! (search-backward art-string nil t)) ! (setq end (point)) ! (nnmail-search-unix-mail-delim-backward) ! (setq beg (point)) ! (when (and (search-forward "\n\n" nil end) ! (search-backward art-string nil beg)) ! (setq end-search 'found) ! (goto-char beg)))) (eq end-search 'found))) (defun nnfolder-delete-mail (&optional force leave-delim) *** pub/qgnus/lisp/ChangeLog Fri May 1 19:44:28 1998 --- qgnus/lisp/ChangeLog Fri May 1 21:57:23 1998 *************** *** 1,3 **** --- 1,11 ---- + Fri May 1 21:59:35 1998 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.6.9 is released. + + Fri May 1 21:54:30 1998 Lars Magne Ingebrigtsen + + * nnfolder.el (nnfolder-goto-article): Would infloop. + Fri May 1 19:45:50 1998 Lars Magne Ingebrigtsen * gnus.el: Gnus v5.6.8 is released. *** pub/qgnus/texi/gnus.texi Fri May 1 19:44:55 1998 --- qgnus/texi/gnus.texi Fri May 1 21:57:33 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.8 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename gnus ! @settitle Gnus 5.6.9 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 316,322 **** @tex @titlepage ! @title Gnus 5.6.8 Manual @author by Lars Magne Ingebrigtsen @page --- 316,322 ---- @tex @titlepage ! @title Gnus 5.6.9 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.8. @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.9. @end ifinfo *************** *** 15711,15717 **** * 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.8. @end menu These lists are, of course, just @emph{short} overviews of the --- 15711,15717 ---- * 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.9. @end menu These lists are, of course, just @emph{short} overviews of the *************** *** 16246,16252 **** @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.8: @itemize @bullet --- 16246,16252 ---- @node Quassia Gnus @subsubsection Quassia Gnus ! New features in Gnus 5.6.9: @itemize @bullet *** pub/qgnus/texi/message.texi Fri May 1 19:44:55 1998 --- qgnus/texi/message.texi Fri May 1 21:57:34 1998 *************** *** 1,7 **** \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.8 Manual @synindex fn cp @synindex vr cp @synindex pg cp --- 1,7 ---- \input texinfo @c -*-texinfo-*- @setfilename message ! @settitle Message 5.6.9 Manual @synindex fn cp @synindex vr cp @synindex pg cp *************** *** 42,48 **** @tex @titlepage ! @title Message 5.6.8 Manual @author by Lars Magne Ingebrigtsen @page --- 42,48 ---- @tex @titlepage ! @title Message 5.6.9 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.8. 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.9. Message is distributed with the Gnus distribution bearing the same version number as this manual has.