*** pub/sgnus/lisp/gnus-nocem.el	Thu Jun 27 23:49:51 1996
--- sgnus/lisp/gnus-nocem.el	Fri Jun 28 00:50:07 1996
***************
*** 139,144 ****
--- 139,145 ----
  	       (nnmail-time-since (nnmail-date-to-time date))
  	       (nnmail-days-to-time gnus-nocem-expiry-wait)))
        (gnus-request-article-this-buffer (mail-header-number header) group)
+       (goto-char (point-min))
        ;; The article has to have proper NoCeM headers.
        (when (and (setq b (search-forward "\n@@BEGIN NCM HEADERS\n" nil t))
  		 (setq e (search-forward "\n@@BEGIN NCM BODY\n" nil t)))
*** pub/sgnus/lisp/gnus-score.el	Thu Jun 27 23:49:51 1996
--- sgnus/lisp/gnus-score.el	Fri Jun 28 00:50:03 1996
***************
*** 720,730 ****
    (setq score (gnus-score-default score))
    (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
-       (set-buffer gnus-summary-buffer)
        (save-restriction
  	(goto-char (point-min))
  	(let ((id (mail-fetch-field "message-id")))
  	  (when id
  	    (gnus-summary-score-entry
  	     "references" (concat id "[ \t]*$") 'r
  	     score (current-time-string) nil t)))))))
--- 720,730 ----
    (setq score (gnus-score-default score))
    (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(goto-char (point-min))
  	(let ((id (mail-fetch-field "message-id")))
  	  (when id
+ 	    (set-buffer gnus-summary-buffer)
  	    (gnus-summary-score-entry
  	     "references" (concat id "[ \t]*$") 'r
  	     score (current-time-string) nil t)))))))
***************
*** 735,745 ****
    (setq score (gnus-score-default score))
    (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
-       (set-buffer gnus-summary-buffer)
        (save-restriction
  	(goto-char (point-min))
  	(let ((id (mail-fetch-field "message-id")))
  	  (when id
  	    (gnus-summary-score-entry
  	     "references" id 's
  	     score (current-time-string))))))))
--- 735,745 ----
    (setq score (gnus-score-default score))
    (when (gnus-buffer-live-p gnus-summary-buffer)
      (save-excursion
        (save-restriction
  	(goto-char (point-min))
  	(let ((id (mail-fetch-field "message-id")))
  	  (when id
+ 	    (set-buffer gnus-summary-buffer)
  	    (gnus-summary-score-entry
  	     "references" id 's
  	     score (current-time-string))))))))
*** pub/sgnus/lisp/gnus.el	Thu Jun 27 23:49:52 1996
--- sgnus/lisp/gnus.el	Fri Jun 28 01:10:03 1996
***************
*** 1750,1756 ****
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version-number "5.2.28"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
--- 1750,1756 ----
    "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)"
    "The mail address of the Gnus maintainers.")
  
! (defconst gnus-version-number "5.2.29"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Gnus v%s" gnus-version-number)
***************
*** 3034,3040 ****
  	(setq groupkey
  	      (if (string-match "^\\(.*\\)\\.[^.]+$" groupkey)
  		  (substring groupkey (match-beginning 1) (match-end 1)))))
!       (gnus-subscribe-newsgroup newgroup before))))
  
  (defun gnus-subscribe-interactively (group)
    "Subscribe the new GROUP interactively.
--- 3034,3041 ----
  	(setq groupkey
  	      (if (string-match "^\\(.*\\)\\.[^.]+$" groupkey)
  		  (substring groupkey (match-beginning 1) (match-end 1)))))
!       (gnus-subscribe-newsgroup newgroup before))
!     (kill-buffer (current-buffer))))
  
  (defun gnus-subscribe-interactively (group)
    "Subscribe the new GROUP interactively.
***************
*** 8983,8989 ****
  	 (min (car active))
  	 (max (cdr active))
  	 (types gnus-article-mark-lists)
! 	 (uncompressed '(score bookmark))
  	 marks var articles article mark)
  
      (while marked-lists
--- 8984,8990 ----
  	 (min (car active))
  	 (max (cdr active))
  	 (types gnus-article-mark-lists)
! 	 (uncompressed '(score bookmark killed))
  	 marks var articles article mark)
  
      (while marked-lists
***************
*** 8999,9010 ****
        ;; All articles have to be subsets of the active articles.
        (cond
         ;; Adjust "simple" lists.
!        ((memq mark '(tick dormant expirable reply killed save))
  	(while articles
  	  (when (or (< (setq article (pop articles)) min) (> article max))
  	    (set var (delq article (symbol-value var))))))
         ;; Adjust assocs.
!        ((memq mark '(score bookmark))
  	(while articles
  	  (when (or (not (consp (setq article (pop articles))))
  		    (< (car article) min)
--- 9000,9011 ----
        ;; All articles have to be subsets of the active articles.
        (cond
         ;; Adjust "simple" lists.
!        ((memq mark '(tick dormant expirable reply save))
  	(while articles
  	  (when (or (< (setq article (pop articles)) min) (> article max))
  	    (set var (delq article (symbol-value var))))))
         ;; Adjust assocs.
!        ((memq mark uncompressed)
  	(while articles
  	  (when (or (not (consp (setq article (pop articles))))
  		    (< (car article) min)
***************
*** 10447,10454 ****
     ;; If not, we try the first unread, if that is wanted.
     ((and subject
  	 gnus-auto-select-same
! 	 (or (gnus-summary-first-unread-article)
! 	     (eq (gnus-summary-article-mark) gnus-canceled-mark)))
      (gnus-summary-position-point)
      (gnus-message 6 "Wrapped"))
     ;; Try to get next/previous article not displayed in this group.
--- 10448,10454 ----
     ;; If not, we try the first unread, if that is wanted.
     ((and subject
  	 gnus-auto-select-same
! 	 (gnus-summary-first-unread-article))
      (gnus-summary-position-point)
      (gnus-message 6 "Wrapped"))
     ;; Try to get next/previous article not displayed in this group.
***************
*** 14955,14961 ****
  	(set-buffer gnus-dribble-buffer)
  	(insert string "\n")
  	(set-window-point (get-buffer-window (current-buffer)) (point-max))
! 	(bury-buffer)
  	(set-buffer obuf))))
  
  (defun gnus-dribble-read-file ()
--- 14955,14961 ----
  	(set-buffer gnus-dribble-buffer)
  	(insert string "\n")
  	(set-window-point (get-buffer-window (current-buffer)) (point-max))
! 	(bury-buffer gnus-dribble-buffer)
  	(set-buffer obuf))))
  
  (defun gnus-dribble-read-file ()
*** pub/sgnus/lisp/message.el	Thu Jun 27 23:49:53 1996
--- sgnus/lisp/message.el	Fri Jun 28 01:06:56 1996
***************
*** 1093,1098 ****
--- 1093,1100 ----
  Normally indents each nonblank line ARG spaces (default 3).  However,
  if `message-yank-prefix' is non-nil, insert that prefix on each line.
  
+ This function uses `message-cite-function' to do the actual citing.
+ 
  Just \\[universal-argument] as argument means don't indent, insert no
  prefix, and don't delete any headers."
    (interactive "P")
*** pub/sgnus/lisp/nnheader.el	Thu Jun 27 23:49:53 1996
--- sgnus/lisp/nnheader.el	Fri Jun 28 01:31:36 1996
***************
*** 593,598 ****
--- 593,607 ----
  	(setq path (cdr path))))
      result))
  
+ (defun nnheader-re-read-dir (path)
+   "Re-read directory PATH if PATH is on a remote system."
+   (if (boundp 'ange-ftp-path-format)
+       (when (string-match (car ange-ftp-path-format) path)
+ 	(ange-ftp-re-read-dir path))
+     (if (boundp 'efs-path-regexp)
+ 	(when (string-match efs-path-regexp path)
+ 	  (efs-re-read-dir path)))))
+ 
  (fset 'nnheader-run-at-time 'run-at-time)
  (fset 'nnheader-cancel-timer 'cancel-timer)
  (fset 'nnheader-find-file-noselect 'find-file-noselect)
*** pub/sgnus/lisp/nnmh.el	Thu Jun 27 23:49:54 1996
--- sgnus/lisp/nnmh.el	Fri Jun 28 01:31:36 1996
***************
*** 157,162 ****
--- 157,164 ----
  	(nnheader-report 'nnmh "Selected group %s" group)
  	t)
         (t
+ 	;; Re-scan the directory if it's on a foreign system.
+ 	(nnheader-re-read-dir pathname)
  	(setq dir 
  	      (sort
  	       (mapcar (lambda (name) (string-to-int name))
*** pub/sgnus/lisp/ChangeLog	Thu Jun 27 23:50:01 1996
--- sgnus/lisp/ChangeLog	Fri Jun 28 04:02:25 1996
***************
*** 1,3 ****
--- 1,37 ----
+ Fri Jun 28 04:02:25 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.2.29 is released.
+ 
+ Thu Jun 27 23:14:54 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+ 
+ 	* browse-url.el: Removed from distribution.
+ 
+ 	* nnmh.el (nnmh-request-group): Re-read dir.
+ 
+ Thu Jun 27 23:13:17 1996  Andy Norman  <ange@hplb.hpl.hp.com>
+ 
+ 	* nnheader.el (nnheader-re-read-dir): New function.
+ 
+ Thu Jun 27 21:50:16 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+ 
+ 	* gnus.el (gnus-summary-next-article): Would stall on canceled
+ 	articles. 
+ 	(gnus-dribble-enter): Would bury the wrong buffer.
+ 
+ 	* gnus-score.el (gnus-score-followup-thread,
+ 	gnus-score-followup-article): Would switch to wrong buffer.
+ 
+ 	* gnus.el (gnus-adjust-marked-articles): Possible fix for killed
+ 	articles. 
+ 	(gnus-subscribe-hierarchically): Kill .newsrc buffer.
+ 
+ 	* gnus-nocem.el (gnus-nocem-check-article): Would not search
+ 	properly. 
+ 
+ Thu Jun 27 21:50:16 1996  Lars Magne Ingebrigtsen  <larsi@aegir.ifi.uio.no>
+ 
+ 	* gnus.el: Gnus v5.2.28 is released.
+ 
  Thu Jun 27 23:33:18 1996  Lars Magne Ingebrigtsen  <larsi@ylfing.ifi.uio.no>
  
  	* nnmail.el (nnmail-get-spool-files): Wouldn't get much mail. 
*** pub/sgnus/texi/gnus.texi	Thu Jun 27 23:50:03 1996
--- sgnus/texi/gnus.texi	Fri Jun 28 00:50:07 1996
***************
*** 10135,10141 ****
  normal format spec, almost.
  
  You can also say @samp{%6,4y}, which means that the field will never be
! more than 6 characters wide and never less than 4 characters wide.
  
  There are also specs for highlighting, and these are shared by all the
  format variables.  Text inside the @samp{%(} and @samp{%)} specifiers
--- 10135,10141 ----
  normal format spec, almost.
  
  You can also say @samp{%6,4y}, which means that the field will never be
! more than 4 characters wide and never less than 6 characters wide.
  
  There are also specs for highlighting, and these are shared by all the
  format variables.  Text inside the @samp{%(} and @samp{%)} specifiers