*** pub/rgnus/lisp/gnus-art.el	Wed Sep  4 06:21:20 1996
--- rgnus/lisp/gnus-art.el	Thu Sep  5 18:48:14 1996
***************
*** 223,229 ****
  		nil)
  	       (t file)))
  	     (gnus-number-of-articles-to-be-saved
! 	      (when (stringp filename) num))) ; Magic
  	(set-buffer gnus-summary-buffer)
  	(funcall gnus-default-article-saver filename)))))
  
--- 223,229 ----
  		nil)
  	       (t file)))
  	     (gnus-number-of-articles-to-be-saved
! 	      (when (eq gnus-prompt-before-saving t) num))) ; Magic
  	(set-buffer gnus-summary-buffer)
  	(funcall gnus-default-article-saver filename)))))
  
***************
*** 272,279 ****
  			 (car split-name))))
  		(car (push result file-name-history)))))))
        ;; Create the directory.
!       (unless (equal (directory-file-name file) file)
! 	(make-directory (file-name-directory file) t))
        ;; If we have read a directory, we append the default file name.
        (when (file-directory-p file)
  	(setq file (concat (file-name-as-directory file)
--- 272,278 ----
  			 (car split-name))))
  		(car (push result file-name-history)))))))
        ;; Create the directory.
!       (gnus-make-directory (file-name-directory file))
        ;; If we have read a directory, we append the default file name.
        (when (file-directory-p file)
  	(setq file (concat (file-name-as-directory file)
***************
*** 299,306 ****
  		   gnus-current-headers gnus-newsgroup-last-rmail)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s in rmail file:" default-name filename))
!     (unless (file-exists-p (file-name-directory filename))
!       (make-directory (file-name-directory filename) t))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
--- 298,304 ----
  		   gnus-current-headers gnus-newsgroup-last-rmail)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s in rmail file:" default-name filename))
!     (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
***************
*** 324,331 ****
  	  (expand-file-name filename
  			    (and default-name
  				 (file-name-directory default-name))))
!     (unless (file-exists-p (file-name-directory filename))
!       (make-directory (file-name-directory filename) t))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
--- 322,328 ----
  	  (expand-file-name filename
  			    (and default-name
  				 (file-name-directory default-name))))
!     (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
***************
*** 348,355 ****
  		   gnus-current-headers gnus-newsgroup-last-file)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s in file:" default-name filename))
!     (unless (file-exists-p (file-name-directory filename))
!       (make-directory (file-name-directory filename) t))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
--- 345,351 ----
  		   gnus-current-headers gnus-newsgroup-last-file)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s in file:" default-name filename))
!     (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
***************
*** 369,376 ****
  		   gnus-current-headers gnus-newsgroup-last-file)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s body in file:" default-name filename))
!     (unless (file-exists-p (file-name-directory filename))
!       (make-directory (file-name-directory filename) t))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
--- 365,371 ----
  		   gnus-current-headers gnus-newsgroup-last-file)))
      (setq filename (gnus-read-save-file-name
  		    "Save %s body in file:" default-name filename))
!     (gnus-make-directory (file-name-directory filename))
      (gnus-eval-in-buffer-window gnus-original-article-buffer
        (save-excursion
  	(save-restriction
***************
*** 493,499 ****
      "\C-c\C-i" gnus-info-find-node
      "\C-c\C-b" gnus-bug
  
!     "\C-d" gnus-article-read-summary-keys)
  
    (substitute-key-definition
     'undefined 'gnus-article-read-summary-keys gnus-article-mode-map))
--- 488,495 ----
      "\C-c\C-i" gnus-info-find-node
      "\C-c\C-b" gnus-bug
  
!     "\C-d" gnus-article-read-summary-keys
!     "\M-g" gnus-article-read-summary-keys)
  
    (substitute-key-definition
     'undefined 'gnus-article-read-summary-keys gnus-article-mode-map))
*** pub/rgnus/lisp/gnus-async.el	Tue Sep  3 05:45:37 1996
--- rgnus/lisp/gnus-async.el	Thu Sep  5 17:35:18 1996
***************
*** 91,97 ****
  
  (defun gnus-async-prefetch-next (group article summary)
    "Possibly prefetch several articles starting with the article after ARTICLE."
!   (when (gnus-buffer-live-p summary)
      (save-excursion
        (set-buffer gnus-summary-buffer)
        (let ((next (caadr (gnus-data-find-list article))))
--- 91,99 ----
  
  (defun gnus-async-prefetch-next (group article summary)
    "Possibly prefetch several articles starting with the article after ARTICLE."
!   (when (and (gnus-buffer-live-p summary)
! 	     gnus-asynchronous
! 	     (gnus-group-asynchronous-p group))
      (save-excursion
        (set-buffer gnus-summary-buffer)
        (let ((next (caadr (gnus-data-find-list article))))
*** pub/rgnus/lisp/gnus-cache.el	Sun Sep  1 05:45:27 1996
--- rgnus/lisp/gnus-cache.el	Thu Sep  5 18:48:13 1996
***************
*** 102,109 ****
  	    (if (> (buffer-size) 0)
  		;; non-empty overview, write it out
  		(progn
! 		  (unless (file-exists-p (file-name-directory overview-file))
! 		    (make-directory (file-name-directory overview-file) t))
  		  (write-region (point-min) (point-max)
  				overview-file nil 'quietly))
  	      ;; empty overview file, remove it
--- 102,108 ----
  	    (if (> (buffer-size) 0)
  		;; non-empty overview, write it out
  		(progn
! 		  (gnus-make-directory (file-name-directory overview-file))
  		  (write-region (point-min) (point-max)
  				overview-file nil 'quietly))
  	      ;; empty overview file, remove it
***************
*** 144,151 ****
  		 (not (file-exists-p (setq file (gnus-cache-file-name
  						 group number)))))
  	;; Possibly create the cache directory.
! 	(unless (file-exists-p (setq dir (file-name-directory file)))
! 	  (make-directory dir t))
  	;; Save the article in the cache.
  	(if (file-exists-p file)
  	    t				; The article already is saved.
--- 143,149 ----
  		 (not (file-exists-p (setq file (gnus-cache-file-name
  						 group number)))))
  	;; Possibly create the cache directory.
! 	(gnus-make-directory (setq dir (file-name-directory file)))
  	;; Save the article in the cache.
  	(if (file-exists-p file)
  	    t				; The article already is saved.
***************
*** 523,530 ****
  
  (defun gnus-cache-read-active (&optional force)
    "Read the cache active file."
!   (unless (file-exists-p gnus-cache-directory)
!     (make-directory gnus-cache-directory t))
    (if (not (and (file-exists-p gnus-cache-active-file)
  		(or force (not gnus-cache-active-hashtb))))
        ;; There is no active file, so we generate one.
--- 521,527 ----
  
  (defun gnus-cache-read-active (&optional force)
    "Read the cache active file."
!   (gnus-make-directory gnus-cache-directory)
    (if (not (and (file-exists-p gnus-cache-active-file)
  		(or force (not gnus-cache-active-hashtb))))
        ;; There is no active file, so we generate one.
***************
*** 553,560 ****
  			   (symbol-name sym) (cdr (symbol-value sym))
  			   (car (symbol-value sym))))))
         gnus-cache-active-hashtb)
!       (unless (file-exists-p (file-name-directory gnus-cache-active-file))
! 	(make-directory (file-name-directory gnus-cache-active-file) t))
        (write-region 
         (point-min) (point-max) gnus-cache-active-file nil 'silent))
      ;; Mark the active hashtb as unaltered.
--- 550,556 ----
  			   (symbol-name sym) (cdr (symbol-value sym))
  			   (car (symbol-value sym))))))
         gnus-cache-active-hashtb)
!       (gnus-make-directory (file-name-directory gnus-cache-active-file))
        (write-region 
         (point-min) (point-max) gnus-cache-active-file nil 'silent))
      ;; Mark the active hashtb as unaltered.
*** pub/rgnus/lisp/gnus-edit.el	Sun Jul 28 14:34:59 1996
--- rgnus/lisp/gnus-edit.el	Thu Sep  5 18:48:13 1996
***************
*** 621,627 ****
        (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (pp score (current-buffer))
!       (make-directory (file-name-directory file) t)
        (write-region (point-min) (point-max) file nil 'silent)
        (kill-buffer (current-buffer))))
    (gnus-message 4 "Saved"))
--- 621,627 ----
        (buffer-disable-undo (current-buffer))
        (erase-buffer)
        (pp score (current-buffer))
!       (gnus-make-directory (file-name-directory file))
        (write-region (point-min) (point-max) file nil 'silent)
        (kill-buffer (current-buffer))))
    (gnus-message 4 "Saved"))
*** pub/rgnus/lisp/gnus-group.el	Tue Sep  3 05:09:07 1996
--- rgnus/lisp/gnus-group.el	Thu Sep  5 17:35:19 1996
***************
*** 660,666 ****
  	  unread (cdr gnus-group-list-mode)))
    (setq level (gnus-group-default-level level))
    (gnus-group-setup-buffer)		;May call from out of group buffer
!   (gnus-update-format-specifications)
    (let ((case-fold-search nil)
  	(props (text-properties-at (gnus-point-at-bol)))
  	(group (gnus-group-group-name)))
--- 660,666 ----
  	  unread (cdr gnus-group-list-mode)))
    (setq level (gnus-group-default-level level))
    (gnus-group-setup-buffer)		;May call from out of group buffer
!   (gnus-update-format-specifications nil 'group 'group-mode)
    (let ((case-fold-search nil)
  	(props (text-properties-at (gnus-point-at-bol)))
  	(group (gnus-group-group-name)))
*** pub/rgnus/lisp/gnus-kill.el	Sun Aug 25 02:45:56 1996
--- rgnus/lisp/gnus-kill.el	Thu Sep  5 18:48:11 1996
***************
*** 152,158 ****
  If NEWSGROUP is nil, the global kill file is selected."
    (interactive "sNewsgroup: ")
    (let ((file (gnus-newsgroup-kill-file newsgroup)))
!     (make-directory (file-name-directory file) t)
      ;; Save current window configuration if this is first invocation.
      (or (and (get-file-buffer file)
  	     (get-buffer-window (get-file-buffer file)))
--- 152,158 ----
  If NEWSGROUP is nil, the global kill file is selected."
    (interactive "sNewsgroup: ")
    (let ((file (gnus-newsgroup-kill-file newsgroup)))
!     (gnus-make-directory (file-name-directory file))
      ;; Save current window configuration if this is first invocation.
      (or (and (get-file-buffer file)
  	     (get-buffer-window (get-file-buffer file)))
*** pub/rgnus/lisp/gnus-load.el	Sun Sep  1 05:26:06 1996
--- rgnus/lisp/gnus-load.el	Thu Sep  5 17:35:19 1996
***************
*** 358,364 ****
      ("nndraft" post-mail)
      ("nnfolder" mail respool address)
      ("nngateway" none address prompt-address)
!     ("nndejanews" none))
    "An alist of valid select methods.
  The first element of each list lists should be a string with the name
  of the select method.  The other elements may be the category of
--- 358,364 ----
      ("nndraft" post-mail)
      ("nnfolder" mail respool address)
      ("nngateway" none address prompt-address)
!     ("nnweb" none))
    "An alist of valid select methods.
  The first element of each list lists should be a string with the name
  of the select method.  The other elements may be the category of
*** pub/rgnus/lisp/gnus-msg.el	Tue Sep  3 06:39:54 1996
--- rgnus/lisp/gnus-msg.el	Thu Sep  5 18:48:15 1996
***************
*** 433,443 ****
       ;; Override normal method.
       ((and gnus-post-method
  	   (or (gnus-method-option-p group-method 'post)
! 	       (gnus-method-option-p group-method 'post-mail)))
        gnus-post-method)
       ;; Perhaps this is a mail group?
       ((and (not (gnus-member-of-valid 'post group))
! 	   (not (gnus-method-option-p group-method 'post-mail)))
        group-method)
       ;; Use the normal select method.
       (t gnus-select-method))))
--- 433,445 ----
       ;; Override normal method.
       ((and gnus-post-method
  	   (or (gnus-method-option-p group-method 'post)
! 	       (gnus-method-option-p group-method 'post-mail)
! 	       (gnus-group-find-parameter group 'to-group)))
        gnus-post-method)
       ;; Perhaps this is a mail group?
       ((and (not (gnus-member-of-valid 'post group))
! 	   (not (gnus-method-option-p group-method 'post-mail))
! 	   (not (gnus-group-find-parameter group 'to-group)))
        group-method)
       ;; Use the normal select method.
       (t gnus-select-method))))
*** pub/rgnus/lisp/gnus-nocem.el	Sun Sep  1 05:45:25 1996
--- rgnus/lisp/gnus-nocem.el	Thu Sep  5 18:48:11 1996
***************
*** 74,81 ****
    (interactive)
    (let ((groups gnus-nocem-groups)
  	group active gactive articles)
!     (or (file-exists-p gnus-nocem-directory)
! 	(make-directory gnus-nocem-directory t))
      ;; Load any previous NoCeM headers.
      (gnus-nocem-load-cache)
      ;; Read the active file if it hasn't been read yet.
--- 74,80 ----
    (interactive)
    (let ((groups gnus-nocem-groups)
  	group active gactive articles)
!     (gnus-make-directory gnus-nocem-directory)
      ;; Load any previous NoCeM headers.
      (gnus-nocem-load-cache)
      ;; Read the active file if it hasn't been read yet.
*** pub/rgnus/lisp/gnus-score.el	Wed Sep  4 06:21:22 1996
--- rgnus/lisp/gnus-score.el	Thu Sep  5 18:48:10 1996
***************
*** 901,907 ****
    (interactive (list gnus-current-score-file))
    (let ((winconf (current-window-configuration)))
      (and (buffer-name gnus-summary-buffer) (gnus-score-save))
!     (make-directory (file-name-directory file) t)
      (setq gnus-score-edit-buffer (find-file-noselect file))
      (gnus-configure-windows 'edit-score)
      (gnus-score-mode)
--- 901,907 ----
    (interactive (list gnus-current-score-file))
    (let ((winconf (current-window-configuration)))
      (and (buffer-name gnus-summary-buffer) (gnus-score-save))
!     (gnus-make-directory (file-name-directory file))
      (setq gnus-score-edit-buffer (find-file-noselect file))
      (gnus-configure-windows 'edit-score)
      (gnus-score-mode)
***************
*** 916,922 ****
    "Edit a score file."
    (interactive 
     (list (read-file-name "Edit score file: " gnus-kill-files-directory)))
!   (make-directory (file-name-directory file) t)
    (and (buffer-name gnus-summary-buffer) (gnus-score-save))
    (let ((winconf (current-window-configuration)))
      (setq gnus-score-edit-buffer (find-file-noselect file))
--- 916,922 ----
    "Edit a score file."
    (interactive 
     (list (read-file-name "Edit score file: " gnus-kill-files-directory)))
!   (gnus-make-directory (file-name-directory file))
    (and (buffer-name gnus-summary-buffer) (gnus-score-save))
    (let ((winconf (current-window-configuration)))
      (setq gnus-score-edit-buffer (find-file-noselect file))
***************
*** 1186,1193 ****
  	      ;; This is a normal score file, so we print it very
  	      ;; prettily. 
  	      (pp score (current-buffer))))
! 	  (if (and (not (file-exists-p (file-name-directory file)))
! 		   (make-directory (file-name-directory file) t))
  	      (gnus-error 1 "Can't create directory %s"
  			  (file-name-directory file))
  	    ;; If the score file is empty, we delete it.
--- 1186,1192 ----
  	      ;; This is a normal score file, so we print it very
  	      ;; prettily. 
  	      (pp score (current-buffer))))
! 	  (if (not (gnus-make-directory (file-name-directory file)))
  	      (gnus-error 1 "Can't create directory %s"
  			  (file-name-directory file))
  	    ;; If the score file is empty, we delete it.
***************
*** 2107,2124 ****
    "List words used in scoring."
    (interactive)
    (let ((alists (gnus-score-load-files (gnus-all-score-files)))
! 	alist rule rules)
      ;; Go through all the score alists for this group
      ;; and find all `w' rules.
      (while (setq alist (pop alists))
!       (when (and (stringp (setq rule (pop alist)))
! 		 (equal "subject" (downcase (pop rule))))
! 	(while rule
! 	  (when (memq (nth 3 (car rule)) '(w W word Word))
! 	    (push (cons (or (nth 1 rule) gnus-score-interactive-default-score)
! 			(car rule))
! 		  rules))
! 	  (pop rule))))
      (setq rules (sort rules (lambda (r1 r2)
  			      (string-lessp (cdr r1) (cdr r2)))))
      ;; Add up words that have appeared several times.
--- 2106,2124 ----
    "List words used in scoring."
    (interactive)
    (let ((alists (gnus-score-load-files (gnus-all-score-files)))
! 	alist rule rules kill)
      ;; Go through all the score alists for this group
      ;; and find all `w' rules.
      (while (setq alist (pop alists))
!       (while (setq rule (pop alist))
! 	(when (and (stringp (car rule))
! 		   (equal "subject" (downcase (pop rule))))
! 	  (while (setq kill (pop rule))
! 	    (when (memq (nth 3 kill) '(w W word Word))
! 	      (push (cons (or (nth 1 kill)
! 			      gnus-score-interactive-default-score)
! 			  (car kill))
! 		    rules))))))
      (setq rules (sort rules (lambda (r1 r2)
  			      (string-lessp (cdr r1) (cdr r2)))))
      ;; Add up words that have appeared several times.
***************
*** 2131,2142 ****
  	  (pop r))))
      ;; Insert the words.
      (nnheader-set-temp-buffer "*Score Words*")
!     (setq rules (sort rules (lambda (r1 r2) (> (car r1) (car r2)))))
!     (while rules
!       (insert (format "%-5d: %s\n" (caar rules) (cdar rules)))
!       (pop rules))
!     (gnus-add-current-to-buffer-list)
!     (gnus-configure-windows 'score-words)))
  
  (defun gnus-summary-rescore ()
    "Redo the entire scoring process in the current summary."
--- 2131,2143 ----
  	  (pop r))))
      ;; Insert the words.
      (nnheader-set-temp-buffer "*Score Words*")
!     (if (not (setq rules (sort rules (lambda (r1 r2) (> (car r1) (car r2))))))
! 	(gnus-error 3 "No word score rules")
!       (while rules
! 	(insert (format "%-5d: %s\n" (caar rules) (cdar rules)))
! 	(pop rules))
!       (gnus-add-current-to-buffer-list)
!       (gnus-configure-windows 'score-words))))
  
  (defun gnus-summary-rescore ()
    "Redo the entire scoring process in the current summary."
*** pub/rgnus/lisp/gnus-soup.el	Sat Aug 17 10:45:38 1996
--- rgnus/lisp/gnus-soup.el	Thu Sep  5 18:48:09 1996
***************
*** 208,215 ****
  ;; Store the current buffer. 
  (defun gnus-soup-store (directory prefix headers format index)
    ;; Create the directory, if needed. 
!   (or (file-directory-p directory)
!       (make-directory directory) t)
    (let* ((msg-buf (find-file-noselect
  		   (concat directory prefix ".MSG")))
  	 (idx-buf (if (= index ?n)
--- 208,214 ----
  ;; Store the current buffer. 
  (defun gnus-soup-store (directory prefix headers format index)
    ;; Create the directory, if needed. 
!   (gnus-make-directory directory)
    (let* ((msg-buf (find-file-noselect
  		   (concat directory prefix ".MSG")))
  	 (idx-buf (if (= index ?n)
***************
*** 326,333 ****
        (while prefix
  	(gnus-set-work-buffer)
  	(insert (format "(setq gnus-soup-prev-prefix %d)\n" (cdar prefix)))
! 	(unless (file-exists-p (caar prefix))
! 	  (make-directory (caar prefix) t))
  	(write-region (point-min) (point-max)
  		      (concat (caar prefix) gnus-soup-prefix-file) 
  		      nil 'nomesg)
--- 325,331 ----
        (while prefix
  	(gnus-set-work-buffer)
  	(insert (format "(setq gnus-soup-prev-prefix %d)\n" (cdar prefix)))
! 	(gnus-make-directory (caar prefix))
  	(write-region (point-min) (point-max)
  		      (concat (caar prefix) gnus-soup-prefix-file) 
  		      nil 'nomesg)
***************
*** 346,353 ****
  			   (string-to-int (gnus-soup-unique-prefix dir))
  			   files)))
  	 (dir (expand-file-name dir)))
!     (or (file-directory-p dir)
! 	(make-directory dir t))
      (setq gnus-soup-areas nil)
      (gnus-message 4 "Packing %s..." packer)
      (if (zerop (call-process shell-file-name
--- 344,350 ----
  			   (string-to-int (gnus-soup-unique-prefix dir))
  			   files)))
  	 (dir (expand-file-name dir)))
!     (gnus-make-directory dir)
      (setq gnus-soup-areas nil)
      (gnus-message 4 "Packing %s..." packer)
      (if (zerop (call-process shell-file-name
***************
*** 489,495 ****
  (defun gnus-soup-unpack-packet (dir unpacker packet)
    "Unpack PACKET into DIR using UNPACKER.
  Return whether the unpacking was successful."
!   (make-directory dir t)
    (gnus-message 4 "Unpacking: %s" (format unpacker packet))
    (prog1
        (zerop (call-process
--- 486,492 ----
  (defun gnus-soup-unpack-packet (dir unpacker packet)
    "Unpack PACKET into DIR using UNPACKER.
  Return whether the unpacking was successful."
!   (gnus-make-directory dir)
    (gnus-message 4 "Unpacking: %s" (format unpacker packet))
    (prog1
        (zerop (call-process
*** pub/rgnus/lisp/gnus-sum.el	Tue Sep  3 05:09:38 1996
--- rgnus/lisp/gnus-sum.el	Thu Sep  5 19:33:44 1996
***************
*** 424,429 ****
--- 424,431 ----
  
  ;;; Internal variables
  
+ (defvar gnus-scores-exclude-files nil)
+ 
  (defvar gnus-summary-display-table 
    ;; Change the display table.	Odd characters have a tendency to mess
    ;; up nicely formatted displays - we make all possible glyphs
***************
*** 5646,5652 ****
  			 (list (cons 'to-group ogroup))))
  	 article group egroup groups vgroup)
      (while (setq article (pop articles))
!       (setq group (format "%s-%d" gnus-newsgroup-name gnus-current-article))
        (gnus-summary-remove-process-mark article)
        (when (gnus-summary-display-article article)
  	(save-excursion
--- 5648,5654 ----
  			 (list (cons 'to-group ogroup))))
  	 article group egroup groups vgroup)
      (while (setq article (pop articles))
!       (setq group (format "%s-%d" gnus-newsgroup-name article))
        (gnus-summary-remove-process-mark article)
        (when (gnus-summary-display-article article)
  	(save-excursion
***************
*** 6357,6363 ****
  
  (defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit)
  
! (defun gnus-summary-edit-article-done (references read-only buffer)
    "Make edits to the current article permanent."
    (interactive)
    ;; Replace the article.
--- 6359,6365 ----
  
  (defalias 'gnus-summary-edit-article-postpone 'gnus-article-edit-exit)
  
! (defun gnus-summary-edit-article-done (&optional references read-only buffer)
    "Make edits to the current article permanent."
    (interactive)
    ;; Replace the article.
***************
*** 6367,6375 ****
  		 (current-buffer))))
        (error "Couldn't replace article.")
      ;; Update the summary buffer.
!     (if (equal (message-tokenize-header references " ")
! 	       (message-tokenize-header
! 		(or (message-fetch-field "references") "") " "))
  	;; We only have to update this line.
  	(save-excursion
  	  (save-restriction
--- 6369,6378 ----
  		 (current-buffer))))
        (error "Couldn't replace article.")
      ;; Update the summary buffer.
!     (if (and references
! 	     (equal (message-tokenize-header references " ")
! 		    (message-tokenize-header
! 		     (or (message-fetch-field "references") "") " ")))
  	;; We only have to update this line.
  	(save-excursion
  	  (save-restriction
***************
*** 6380,6386 ****
  	      (gnus-summary-update-article-line
  	       (cdr gnus-article-current) header))))
        ;; Update threads.
!       (set-buffer buffer)
        (gnus-summary-update-article (cdr gnus-article-current)))
      ;; Prettify the article buffer again.
      (save-excursion
--- 6383,6389 ----
  	      (gnus-summary-update-article-line
  	       (cdr gnus-article-current) header))))
        ;; Update threads.
!       (set-buffer (or buffer gnus-summary-buffer))
        (gnus-summary-update-article (cdr gnus-article-current)))
      ;; Prettify the article buffer again.
      (save-excursion
*** pub/rgnus/lisp/gnus-util.el	Thu Aug 29 03:36:02 1996
--- rgnus/lisp/gnus-util.el	Thu Sep  5 18:48:10 1996
***************
*** 535,540 ****
--- 535,546 ----
  (defun gnus-prin1-to-string (form)
    "The same as `prin1', but but `print-quoted' to t."
    (prin1-to-string form))
+ 
+ (defun gnus-make-directory (directory)
+   "Make DIRECTORY (and all its parents) if it doesn't exist."
+   (when (not (file-exists-p directory))
+     (make-directory directory t)
+     t))
   
  (provide 'gnus-util)
  
*** pub/rgnus/lisp/gnus-uu.el	Sat Aug 31 03:36:24 1996
--- rgnus/lisp/gnus-uu.el	Thu Sep  5 18:48:09 1996
***************
*** 698,705 ****
  	(string-match reg file)
  	(setq fromdir (substring file (match-end 0)))
  	(if (file-directory-p file)
! 	    (unless (file-exists-p (concat dir fromdir))
! 	      (make-directory (concat dir fromdir) t))
  	  (setq to-file (concat dir fromdir))
  	  (when (or (not (file-exists-p to-file))
  		    (gnus-y-or-n-p (format "%s exists; overwrite? " to-file)))
--- 698,704 ----
  	(string-match reg file)
  	(setq fromdir (substring file (match-end 0)))
  	(if (file-directory-p file)
! 	    (gnus-make-directory (concat dir fromdir))
  	  (setq to-file (concat dir fromdir))
  	  (when (or (not (file-exists-p to-file))
  		    (gnus-y-or-n-p (format "%s exists; overwrite? " to-file)))
***************
*** 1586,1593 ****
  
        (setq gnus-uu-work-dir 
  	    (make-temp-name (concat gnus-uu-tmp-dir "gnus")))
!       (if (not (file-directory-p gnus-uu-work-dir)) 
! 	  (make-directory gnus-uu-work-dir t))
        (set-file-modes gnus-uu-work-dir 448)
        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))
        (setq gnus-uu-tmp-alist (cons (cons gnus-newsgroup-name gnus-uu-work-dir)
--- 1585,1591 ----
  
        (setq gnus-uu-work-dir 
  	    (make-temp-name (concat gnus-uu-tmp-dir "gnus")))
!       (gnus-make-directory gnus-uu-work-dir)
        (set-file-modes gnus-uu-work-dir 448)
        (setq gnus-uu-work-dir (file-name-as-directory gnus-uu-work-dir))
        (setq gnus-uu-tmp-alist (cons (cons gnus-newsgroup-name gnus-uu-work-dir)
*** pub/rgnus/lisp/gnus-vm.el	Sat Aug 17 10:45:41 1996
--- rgnus/lisp/gnus-vm.el	Thu Sep  5 18:48:08 1996
***************
*** 96,102 ****
  		(folder folder)
  		(t (gnus-read-save-file-name 
  		    "Save %s in VM folder:" default-name))))
!     (make-directory (file-name-directory folder) t)
      (set-buffer gnus-original-article-buffer)
      (save-excursion
        (save-restriction
--- 96,102 ----
  		(folder folder)
  		(t (gnus-read-save-file-name 
  		    "Save %s in VM folder:" default-name))))
!     (gnus-make-directory (file-name-directory folder))
      (set-buffer gnus-original-article-buffer)
      (save-excursion
        (save-restriction
*** pub/rgnus/lisp/gnus-win.el	Tue Sep  3 05:09:06 1996
--- rgnus/lisp/gnus-win.el	Thu Sep  5 17:35:22 1996
***************
*** 39,44 ****
--- 39,47 ----
  (defvar gnus-window-min-height 1
    "*Minimum height of Gnus buffers.")
  
+ (defvar gnus-always-force-window-configuration nil
+   "*If non-nil, always force the Gnus window configurations.")
+ 
  (defvar gnus-buffer-configuration
    '((group
       (vertical 1.0
***************
*** 135,141 ****
       (vertical 1.0
  	       (summary 0.5 point)
  	       ("*Score Trace*" 1.0)))
!     (score-trace
       (vertical 1.0
  	       (summary 0.5 point)
  	       ("*Score Words*" 1.0)))
--- 138,144 ----
       (vertical 1.0
  	       (summary 0.5 point)
  	       ("*Score Trace*" 1.0)))
!     (score-words
       (vertical 1.0
  	       (summary 0.5 point)
  	       ("*Score Words*" 1.0)))
***************
*** 387,392 ****
--- 390,396 ----
  
  (defun gnus-configure-windows (setting &optional force)
    (setq gnus-current-window-configuration setting)
+   (setq force (or force gnus-always-force-window-configuration))
    (setq setting (gnus-windows-old-to-new setting))
    (let ((split (if (symbolp setting)
  		   (cadr (assq setting gnus-buffer-configuration))
*** pub/rgnus/lisp/gnus-xmas.el	Tue Sep  3 05:45:38 1996
--- rgnus/lisp/gnus-xmas.el	Thu Sep  5 19:51:15 1996
***************
*** 779,786 ****
  	   (glyph (make-glyph file)))
        (when (and (featurep 'x)
  		 (file-exists-p file))
! 	(set-glyph-face glyph 'modeline-buffer-id)
! 	glyph))))
  
  (defun gnus-xmas-mode-line-buffer-identification (line)
    (let ((line (car line))
--- 779,787 ----
  	   (glyph (make-glyph file)))
        (when (and (featurep 'x)
  		 (file-exists-p file))
! 	(set-glyph-face glyph 'modeline-buffer-id))
!       (set-glyph-property glyph 'image (cons 'tty "Gnus:"))
!       glyph)))
  
  (defun gnus-xmas-mode-line-buffer-identification (line)
    (let ((line (car line))
***************
*** 791,798 ****
  	  (incf chop)
  	(setq chop (/ (length line) 2)))
        (list 
!        (if (and (featurep 'x)
! 		gnus-xmas-modeline-glyph)
  	   (cons gnus-xmas-modeline-left-extent gnus-xmas-modeline-glyph)
  	 (cons gnus-xmas-modeline-left-extent (substring line 0 chop)))
         (cons gnus-xmas-modeline-right-extent (substring line chop))))))
--- 792,798 ----
  	  (incf chop)
  	(setq chop (/ (length line) 2)))
        (list 
!        (if gnus-xmas-modeline-glyph
  	   (cons gnus-xmas-modeline-left-extent gnus-xmas-modeline-glyph)
  	 (cons gnus-xmas-modeline-left-extent (substring line 0 chop)))
         (cons gnus-xmas-modeline-right-extent (substring line chop))))))
*** pub/rgnus/lisp/gnus.el	Wed Sep  4 06:42:17 1996
--- rgnus/lisp/gnus.el	Thu Sep  5 17:35:23 1996
***************
*** 28,34 ****
  
  (eval '(run-hooks 'gnus-load-hook))
  
! (defconst gnus-version-number "0.26"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
--- 28,34 ----
  
  (eval '(run-hooks 'gnus-load-hook))
  
! (defconst gnus-version-number "0.27"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
***************
*** 343,361 ****
  
  (defun gnus-group-total-expirable-p (group)
    "Check whether GROUP is total-expirable or not."
!   (let ((params (gnus-group-find-parameter group)))
!     (or (memq 'total-expire params)
! 	(cdr (assq 'total-expire params)) ; (total-expire . t)
! 	(and gnus-total-expirable-newsgroups ; Check var.
! 	     (string-match gnus-total-expirable-newsgroups group)))))
  
  (defun gnus-group-auto-expirable-p (group)
    "Check whether GROUP is total-expirable or not."
!   (let ((params (gnus-group-find-parameter group)))
!     (or (memq 'auto-expire params)
! 	(cdr (assq 'auto-expire params)) ; (auto-expire . t)
! 	(and gnus-auto-expirable-newsgroups ; Check var.
! 	     (string-match gnus-auto-expirable-newsgroups group)))))
  
  (defun gnus-virtual-group-p (group)
    "Say whether GROUP is virtual or not."
--- 343,369 ----
  
  (defun gnus-group-total-expirable-p (group)
    "Check whether GROUP is total-expirable or not."
!   (let ((params (gnus-group-find-parameter group))
! 	val)
!     (cond
!      ((memq 'total-expire params)
!       t)
!      ((setq val (assq 'total-expire params)) ; (auto-expire . t)
!       (cdr val))
!      (gnus-total-expirable-newsgroups	; Check var.
!       (string-match gnus-total-expirable-newsgroups group)))))
  
  (defun gnus-group-auto-expirable-p (group)
    "Check whether GROUP is total-expirable or not."
!   (let ((params (gnus-group-find-parameter group))
! 	val)
!     (cond
!      ((memq 'auto-expire params)
!       t)
!      ((setq val (assq 'auto-expire params)) ; (auto-expire . t)
!       (cdr val))
!      (gnus-auto-expirable-newsgroups	; Check var.
!       (string-match gnus-auto-expirable-newsgroups group)))))
  
  (defun gnus-virtual-group-p (group)
    "Say whether GROUP is virtual or not."
*** pub/rgnus/lisp/message.el	Fri Aug 30 22:52:31 1996
--- rgnus/lisp/message.el	Thu Sep  5 18:25:27 1996
***************
*** 319,325 ****
  
  ;;;###autoload
  (defvar message-signature-file "~/.signature"
!   "*File containing the text inserted at end of message. buffer.")
  
  (defvar message-distribution-function nil
    "*Function called to return a Distribution header.")
--- 319,325 ----
  
  ;;;###autoload
  (defvar message-signature-file "~/.signature"
!   "*File containing the text inserted at end of message buffer.")
  
  (defvar message-distribution-function nil
    "*Function called to return a Distribution header.")
*** pub/rgnus/lisp/nndraft.el	Sat Apr 13 05:58:01 1996
--- rgnus/lisp/nndraft.el	Thu Sep  5 18:48:08 1996
***************
*** 210,216 ****
  	nil)
      (condition-case ()
  	(progn
! 	  (make-directory nndraft-directory t)
  	  t)
        (file-error nil))))
  
--- 210,216 ----
  	nil)
      (condition-case ()
  	(progn
! 	  (gnus-make-directory nndraft-directory)
  	  t)
        (file-error nil))))
  
*** pub/rgnus/lisp/nneething.el	Sun Sep  1 05:26:06 1996
--- rgnus/lisp/nneething.el	Thu Sep  5 18:48:07 1996
***************
*** 181,188 ****
  
  (defun nneething-map-file ()
    ;; We make sure that the .nneething directory exists. 
!   (unless (file-exists-p nneething-map-file-directory)
!     (make-directory nneething-map-file-directory 'parents))
    ;; We store it in a special directory under the user's home dir.
    (concat (file-name-as-directory nneething-map-file-directory)
  	  nneething-group nneething-map-file))
--- 181,187 ----
  
  (defun nneething-map-file ()
    ;; We make sure that the .nneething directory exists. 
!   (gnus-make-directory nneething-map-file-directory)
    ;; We store it in a special directory under the user's home dir.
    (concat (file-name-as-directory nneething-map-file-directory)
  	  nneething-group nneething-map-file))
*** pub/rgnus/lisp/nnfolder.el	Sun Aug 25 00:19:51 1996
--- rgnus/lisp/nnfolder.el	Thu Sep  5 18:48:07 1996
***************
*** 142,148 ****
    (nnoo-change-server 'nnfolder server defs)
    (when (not (file-exists-p nnfolder-directory))
      (condition-case ()
! 	(make-directory nnfolder-directory t)
        (error t)))
    (cond 
     ((not (file-exists-p nnfolder-directory))
--- 142,148 ----
    (nnoo-change-server 'nnfolder server defs)
    (when (not (file-exists-p nnfolder-directory))
      (condition-case ()
! 	(gnus-make-directory nnfolder-directory)
        (error t)))
    (cond 
     ((not (file-exists-p nnfolder-directory))
***************
*** 486,493 ****
      (nnfolder-open-server server))
    (when (and group (or nnfolder-current-buffer
  		       (not (equal group nnfolder-current-group))))
!     (unless (file-exists-p nnfolder-directory)
!       (make-directory (directory-file-name nnfolder-directory) t))
      (nnfolder-possibly-activate-groups nil)
      (or (assoc group nnfolder-group-alist)
  	(not (file-exists-p
--- 486,492 ----
      (nnfolder-open-server server))
    (when (and group (or nnfolder-current-buffer
  		       (not (equal group nnfolder-current-group))))
!     (gnus-make-directory (directory-file-name nnfolder-directory))
      (nnfolder-possibly-activate-groups nil)
      (or (assoc group nnfolder-group-alist)
  	(not (file-exists-p
***************
*** 530,537 ****
  	    (setq file (nnfolder-group-pathname group))
  	    (unless (file-directory-p (file-truename file))
  	      (unless (file-exists-p file)
! 		(unless (file-exists-p (file-name-directory file))
! 		  (make-directory (file-name-directory file) t))
  		(nnmail-write-region 1 1 file t 'nomesg))
  	      (setq nnfolder-current-buffer
  		    (nnfolder-read-folder file scanning))
--- 529,535 ----
  	    (setq file (nnfolder-group-pathname group))
  	    (unless (file-directory-p (file-truename file))
  	      (unless (file-exists-p file)
! 		(gnus-make-directory (file-name-directory file))
  		(nnmail-write-region 1 1 file t 'nomesg))
  	      (setq nnfolder-current-buffer
  		    (nnfolder-read-folder file scanning))
*** pub/rgnus/lisp/nnkiboze.el	Sun Aug 25 02:45:54 1996
--- rgnus/lisp/nnkiboze.el	Thu Sep  5 18:48:06 1996
***************
*** 88,94 ****
  	      'nov))))))
  
  (deffoo nnkiboze-open-server (newsgroups &optional something)
!   (make-directory nnkiboze-directory t)
    (nnheader-init-server-buffer))
  
  (deffoo nnkiboze-server-opened (&optional server)
--- 88,94 ----
  	      'nov))))))
  
  (deffoo nnkiboze-open-server (newsgroups &optional something)
!   (gnus-make-directory nnkiboze-directory)
    (nnheader-init-server-buffer))
  
  (deffoo nnkiboze-server-opened (&optional server)
*** pub/rgnus/lisp/nntp.el	Sun Sep  1 04:49:00 1996
--- rgnus/lisp/nntp.el	Thu Sep  5 19:33:46 1996
***************
*** 316,322 ****
  
  (deffoo nntp-list-active-group (group &optional server)
    "Return the active info on GROUP (which can be a regexp."
!   (nntp-possibly-change-group group server)
    (nntp-send-command "^.*\r?\n" "LIST ACTIVE" group))
  
  (deffoo nntp-request-article (article &optional group server buffer command)
--- 316,322 ----
  
  (deffoo nntp-list-active-group (group &optional server)
    "Return the active info on GROUP (which can be a regexp."
!   (nntp-possibly-change-group nil server)
    (nntp-send-command "^.*\r?\n" "LIST ACTIVE" group))
  
  (deffoo nntp-request-article (article &optional group server buffer command)
*** pub/rgnus/lisp/nnvirtual.el	Sun Sep  1 06:03:07 1996
--- rgnus/lisp/nnvirtual.el	Thu Sep  5 17:35:23 1996
***************
*** 242,248 ****
      
  (deffoo nnvirtual-close-group (group &optional server)
    (when (and (nnvirtual-possibly-change-server server)
! 	     (not (gnus-ephemeral-group-p group)))
      ;; Copy (un)read articles.
      (nnvirtual-update-reads)
      ;; We copy the marks from this group to the component
--- 242,248 ----
      
  (deffoo nnvirtual-close-group (group &optional server)
    (when (and (nnvirtual-possibly-change-server server)
! 	     (not (gnus-ephemeral-group-p (nnvirtual-current-group))))
      ;; Copy (un)read articles.
      (nnvirtual-update-reads)
      ;; We copy the marks from this group to the component
*** pub/rgnus/lisp/ChangeLog	Wed Sep  4 06:42:39 1996
--- rgnus/lisp/ChangeLog	Thu Sep  5 19:49:59 1996
***************
*** 1,3 ****
--- 1,61 ----
+ Thu Sep  5 19:50:19 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-xmas.el (gnus-xmas-modeline-glyph): Set string properly.
+ 
+ Thu Sep  5 18:39:47 1996  Lars Magne Ingebrigtsen  <larsi@gymir.ifi.uio.no>
+ 
+ 	* gnus-sum.el (gnus-summary-edit-article-done): Make params
+ 	optional. 
+ 
+ 	* nntp.el (nntp-list-active-group): Don't change group first. 
+ 
+ 	* gnus-util.el (gnus-make-directory): New function.
+ 
+ 	* gnus-msg.el (gnus-post-method): Do the right thing in
+ 	`to-group' groups.
+ 
+ Thu Sep  5 08:29:08 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus-win.el (gnus-always-force-window-configuration): New
+ 	variable. 
+ 	(gnus-configure-windows): Use it.
+ 
+ 	* gnus-sum.el (gnus-summary-save-article): Give better prompts. 
+ 
+ 	* gnus-load.el (gnus-valid-select-methods): Update.
+ 
+ 	* gnus-score.el (gnus-score-find-favourite-words): Didn't find any
+ 	words.
+ 
+ 	* gnus-sum.el (gnus-scores-exclude-files): Defined.
+ 
+ 	* gnus-async.el (gnus-async-prefetch-next): Don't do so much on
+ 	un-asynch groups.
+ 
+ Thu Sep  5 08:26:11 1996  jeff sparkes  <jsparkes@nortel.ca>
+ 
+ 	* gnus-win.el (gnus-buffer-configuration): Bad cut'n'paste.
+ 
+ Thu Sep  5 07:41:08 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus-group.el (gnus-group-list-groups): Update format specs.
+ 
+ Thu Sep  5 07:11:18 1996  Jan Vroonhof  <vroonhof@math.ethz.ch>
+ 
+ 	* gnus-sum.el (gnus-summary-read-document): Generated wrong nndoc
+ 	group names. 
+ 
+ Thu Sep  5 06:53:07 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* nnvirtual.el (nnvirtual-close-group): Don't update ephemeral
+ 	groups. 
+ 
+ 	* gnus.el (gnus-group-auto-expirable-p): Allow nil expiry params. 
+ 
+ Wed Sep  4 06:46:03 1996  Lars Magne Ingebrigtsen  <larsi@hrym.ifi.uio.no>
+ 
+ 	* gnus.el: Red Gnus v0.26 is released.
+ 
  Wed Sep  4 06:42:34 1996  Lars Magne Ingebrigtsen  <larsi@nipling.ifi.uio.no>
  
  	* nnmail.el (nnmail-move-inbox): Reverse logic.
*** pub/rgnus/texi/gnus.texi	Wed Sep  4 06:44:37 1996
--- rgnus/texi/gnus.texi	Thu Sep  5 19:52:09 1996
***************
*** 9451,9457 ****
  The @code{nnweb} backend allows an easy interface to the mighty search
  engine.  You create an @code{nnweb} group, enter a search pattern, and
  then enter the group and read the articles like you would any normal
! group.  The @kbd{G n} command in the group buffer (@pxref{Foreign
  Groups}) will do this in an easy-to-use fashion.
  
  @code{nnweb} groups don't really lend themselves to being solid
--- 9451,9457 ----
  The @code{nnweb} backend allows an easy interface to the mighty search
  engine.  You create an @code{nnweb} group, enter a search pattern, and
  then enter the group and read the articles like you would any normal
! group.  The @kbd{G w} command in the group buffer (@pxref{Foreign
  Groups}) will do this in an easy-to-use fashion.
  
  @code{nnweb} groups don't really lend themselves to being solid
***************
*** 11837,11845 ****
  @end lisp
  
  You'd typically stick these @code{gnus-add-configuration} calls in your
! @file{.gnus} file or in some startup hook---they should be run after
  Gnus has been loaded.
  
  
  @node Compilation
  @section Compilation
--- 11837,11851 ----
  @end lisp
  
  You'd typically stick these @code{gnus-add-configuration} calls in your
! @file{.gnus.el} file or in some startup hook---they should be run after
  Gnus has been loaded.
  
+ @vindex gnus-always-force-window-configuration
+ If all windows mentioned in the configuration are already visible, Gnus
+ won't change the window configuration.  If you always want to force the
+ ``right'' window configuration, you can set
+ @code{gnus-always-force-window-configuration} to non-@code{nil}.
+ 
  
  @node Compilation
  @section Compilation
***************
*** 13252,13257 ****
--- 13258,13269 ----
  A named select method.  Since a select methods defines all there is to
  know about connecting to a (physical) server, taking the who things as a
  whole is a virtual server.
+ 
+ @item washing
+ @cindex washing
+ Taking a buffer and running it through a filter of some sort.  The
+ result will (more often than not) be cleaner and more pleasing than the
+ original. 
  
  @end table
  
*** pub/rgnus/texi/ChangeLog	Mon Sep  2 01:41:23 1996
--- rgnus/texi/ChangeLog	Thu Sep  5 17:35:26 1996
***************
*** 1,3 ****
--- 1,9 ----
+ Thu Sep  5 07:34:27 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.texi (Terminology): Addition.
+ 	(Web Searches): Fix.
+ 	(Windows Configuration): Addition.
+ 
  Sun Sep  1 11:07:09 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
  
  	* gnus.texi (XEmacs Enhancements): New.