*** pub/rgnus/lisp/gnus-art.el	Sat Jan 25 10:08:04 1997
--- rgnus/lisp/gnus-art.el	Mon Jan 27 09:10:32 1997
***************
*** 2208,2217 ****
  	  (switch-to-buffer gnus-summary-buffer 'norecord))
  	(setq in-buffer (current-buffer))
  	;; We disable the pick minor mode commands.
! 	(let (gnus-pick-mode)
! 	  (if (setq func (lookup-key (current-local-map) keys))
! 	      (call-interactively func)
! 	    (ding)))
  	(when (eq in-buffer (current-buffer))
  	  (set-buffer obuf)
  	  (unless not-restore-window
--- 2208,2217 ----
  	  (switch-to-buffer gnus-summary-buffer 'norecord))
  	(setq in-buffer (current-buffer))
  	;; We disable the pick minor mode commands.
! 	(if (setq func (let (gnus-pick-mode)
! 			 (lookup-key (current-local-map) keys)))
! 	    (call-interactively func)
! 	  (ding))
  	(when (eq in-buffer (current-buffer))
  	  (set-buffer obuf)
  	  (unless not-restore-window
*** pub/rgnus/lisp/gnus-sum.el	Sun Jan 26 12:08:26 1997
--- rgnus/lisp/gnus-sum.el	Mon Jan 27 09:10:37 1997
***************
*** 563,569 ****
    :type 'hook)
  
  (defcustom gnus-summary-exit-hook nil
!   "*A hook called on exit from the summary buffer."
    :group 'gnus-summary-exit
    :type 'hook)
  
--- 563,570 ----
    :type 'hook)
  
  (defcustom gnus-summary-exit-hook nil
!   "*A hook called on exit from the summary buffer.
! It will be called with point in the group buffer."
    :group 'gnus-summary-exit
    :type 'hook)
  
*** pub/rgnus/lisp/gnus-undo.el	Thu Jan  9 11:59:37 1997
--- rgnus/lisp/gnus-undo.el	Mon Jan 27 09:10:40 1997
***************
*** 98,103 ****
--- 98,104 ----
  	    minor-mode-map-alist))
      (gnus-make-local-hook 'post-command-hook)
      (gnus-add-hook 'post-command-hook 'gnus-undo-boundary nil t)
+     (add-hook 'gnus-summary-exit-hook 'gnus-undo-boundary)
      (run-hooks 'gnus-undo-mode-hook)))
  
  ;;; Interface functions.
*** pub/rgnus/lisp/gnus.el	Sun Jan 26 13:09:51 1997
--- rgnus/lisp/gnus.el	Mon Jan 27 09:10:43 1997
***************
*** 1548,1554 ****
       ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p 
        gnus-grouplens-mode)
       ("smiley" :interactive t gnus-smiley-display)
!      ("gnus-win" gnus-configure-windows)
       ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group
        gnus-list-of-unread-articles gnus-list-of-read-articles
        gnus-offer-save-summaries gnus-make-thread-indent-array
--- 1548,1554 ----
       ("gnus-gl" bbb-login bbb-logout bbb-grouplens-group-p 
        gnus-grouplens-mode)
       ("smiley" :interactive t gnus-smiley-display)
!      ("gnus-win" gnus-configure-windows gnus-add-configuration)
       ("gnus-sum" gnus-summary-insert-line gnus-summary-read-group
        gnus-list-of-unread-articles gnus-list-of-read-articles
        gnus-offer-save-summaries gnus-make-thread-indent-array
*** pub/rgnus/lisp/message.el	Sat Jan 25 09:44:20 1997
--- rgnus/lisp/message.el	Mon Jan 27 09:10:43 1997
***************
*** 354,363 ****
  
  (defcustom message-use-followup-to 'ask
    "*Specifies what to do with Followup-To header.
! If nil, ignore the header.  If it is t, use its value, but query before
! using the \"poster\" value.  If it is the symbol `ask', query the user
! whether to ignore the \"poster\" value.  If it is the symbol `use',
! always use the value."
    :group 'message-interface
    :type '(choice (const :tag "ignore" nil)
  		 (const use)
--- 354,363 ----
  
  (defcustom message-use-followup-to 'ask
    "*Specifies what to do with Followup-To header.
! If nil, always ignore the header.  If it is t, use its value, but
! query before using the \"poster\" value.  If it is the symbol `ask',
! always query the user whether to use the value.  If it is the symbol
! `use', always use the value."
    :group 'message-interface
    :type '(choice (const :tag "ignore" nil)
  		 (const use)
*** pub/rgnus/lisp/nnsoup.el	Thu Jan 23 15:40:03 1997
--- rgnus/lisp/nnsoup.el	Mon Jan 27 09:10:44 1997
***************
*** 392,399 ****
  (defun nnsoup-file-name (dir file)
    "Return the full path of FILE (in any case) in DIR."
    (let* ((case-fold-search t)
! 	 (files (directory-files dir t (concat (regexp-quote file) "$"))))
!     (car files)))
  
  (defun nnsoup-read-areas ()
    (let ((areas-file (nnsoup-file-name nnsoup-tmp-directory "areas")))
--- 392,406 ----
  (defun nnsoup-file-name (dir file)
    "Return the full path of FILE (in any case) in DIR."
    (let* ((case-fold-search t)
! 	 (files (directory-files dir t))
! 	 (regexp (concat (regexp-quote file) "$")))
!     (car (delq nil
! 	       (mapcar
! 		(lambda (file)
! 		  (if (string-match regexp file)
! 		      file
! 		    nil))
! 		files)))))
  
  (defun nnsoup-read-areas ()
    (let ((areas-file (nnsoup-file-name nnsoup-tmp-directory "areas")))