*** pub/rgnus/lisp/gnus-async.el	Mon Aug 12 04:30:18 1996
--- rgnus/lisp/gnus-async.el	Sun Aug 18 13:52:40 1996
***************
*** 166,177 ****
  	  ;; Remove the read article from the prefetch buffer.
  	  (when (memq 'read gnus-prefetched-article-deletion-strategy)
  	    (gnus-async-delete-prefected-entry entry))
- 	  ;; Decode the article.  Perhaps this shouldn't be done
- 	  ;; here?
- 	  (set-buffer buffer)
- 	  (nntp-decode-text)
- 	  (goto-char (point-min))
- 	  (gnus-delete-line)
  	  t)))))
  
  (defun gnus-async-delete-prefected-entry (entry)
--- 166,171 ----
*** pub/rgnus/lisp/gnus-group.el	Sat Aug 17 13:11:56 1996
--- rgnus/lisp/gnus-group.el	Sun Aug 18 13:29:09 1996
***************
*** 346,351 ****
--- 346,352 ----
      "V" gnus-group-make-empty-virtual
      "D" gnus-group-enter-directory
      "f" gnus-group-make-doc-group
+     "n" gnus-group-make-dejagnus-group
      "r" gnus-group-rename-group
      "\177" gnus-group-delete-group
      [delete] gnus-group-delete-group)
***************
*** 1752,1757 ****
--- 1753,1775 ----
       (list 'nndoc file
  	   (list 'nndoc-address file)
  	   (list 'nndoc-article-type (or type 'guess))))))
+ 
+ (defun gnus-group-make-dejagnus-group (&optional solid)
+   "Create an ephemeral nndejagnus group.
+ If SOLID (the prefix), create a solid group."
+   (interactive "P")
+   (let* ((group
+ 	  (if solid (read-string "Group name: ") (message-unique-id)))
+ 	 (search
+ 	  (read-string "Search string: "))
+ 	 (method
+ 	  `(nndejagnus ,group (nndejagnus-search ,search))))
+     (if solid
+ 	(gnus-group-make-group group method)
+       (gnus-group-read-ephemeral-group
+        group method t
+        (cons (current-buffer)
+ 	     (if (eq major-mode 'gnus-summary-mode) 'summary 'group))))))
  
  (defun gnus-group-make-archive-group (&optional all)
    "Create the (ding) Gnus archive group of the most recent articles.
*** pub/rgnus/lisp/gnus-load.el	Sat Aug 17 10:45:36 1996
--- rgnus/lisp/gnus-load.el	Sun Aug 18 12:02:23 1996
***************
*** 357,363 ****
      ("nnsoup" post-mail address)
      ("nndraft" post-mail)
      ("nnfolder" mail respool address)
!     ("nngateway" none address prompt-address))
    "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
--- 357,364 ----
      ("nnsoup" post-mail address)
      ("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
*** pub/rgnus/lisp/gnus-start.el	Sat Aug 17 10:45:38 1996
--- rgnus/lisp/gnus-start.el	Sun Aug 18 12:41:18 1996
***************
*** 42,47 ****
--- 42,57 ----
  If a file with the .el or .elc suffixes exist, it will be read
  instead.")
  
+ (defvar gnus-site-init-file
+   (condition-case ()
+       (concat (file-name-directory 
+ 	       (directory-file-name installation-directory))
+ 	      "site-lisp/gnus-init")
+     (error nil))
+   "*The site-wide Gnus elisp startup file.
+ If a file with the .el or .elc suffixes exist, it will be read
+ instead.")
+ 
  (defvar gnus-default-subscribed-newsgroups nil
    "*This variable lists what newsgroups should be subscribed the first time Gnus is used.
  It should be a list of strings.
***************
*** 291,306 ****
    (if gnus-init-inhibit
        (setq gnus-init-inhibit nil)
      (setq gnus-init-inhibit inhibit-next)
!     (and gnus-init-file
! 	 (or (and (file-exists-p gnus-init-file)
! 		  ;; Don't try to load a directory.
! 		  (not (file-directory-p gnus-init-file)))
! 	     (file-exists-p (concat gnus-init-file ".el"))
! 	     (file-exists-p (concat gnus-init-file ".elc")))
! 	 (condition-case var
! 	     (load gnus-init-file nil t)
! 	   (error
! 	    (error "Error in %s: %s" gnus-init-file var))))))
  
  ;; For subscribing new newsgroup
  
--- 301,319 ----
    (if gnus-init-inhibit
        (setq gnus-init-inhibit nil)
      (setq gnus-init-inhibit inhibit-next)
!     (let ((files (list gnus-site-init-file gnus-init-file))
! 	  file)
!       (while files
! 	(and (setq file (pop files))
! 	     (or (and (file-exists-p file)
! 		      ;; Don't try to load a directory.
! 		      (not (file-directory-p file)))
! 		 (file-exists-p (concat file ".el"))
! 		 (file-exists-p (concat file ".elc")))
! 	     (condition-case var
! 		 (load file nil t)
! 	       (error
! 		(error "Error in %s: %s" file var))))))))
  
  ;; For subscribing new newsgroup
  
*** pub/rgnus/lisp/gnus-sum.el	Sat Aug 17 10:45:40 1996
--- rgnus/lisp/gnus-sum.el	Sun Aug 18 14:31:36 1996
***************
*** 33,39 ****
  (require 'gnus-undo)
  (require 'gnus)
  
- 
  (defvar gnus-kill-summary-on-exit t
    "*If non-nil, kill the summary buffer when you exit from it.
  If nil, the summary will become a \"*Dead Summary*\" buffer, and
--- 33,38 ----
*** pub/rgnus/lisp/gnus.el	Sat Aug 17 10:45:42 1996
--- rgnus/lisp/gnus.el	Sun Aug 18 12:02:44 1996
***************
*** 28,34 ****
  
  (eval '(run-hooks 'gnus-load-hook))
  
! (defconst gnus-version-number "0.12"
    "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.13"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
*** pub/rgnus/lisp/nndejagnus.el	Sun Aug 18 14:48:20 1996
--- rgnus/lisp/nndejagnus.el	Sun Aug 18 14:35:18 1996
***************
*** 0 ****
--- 1,286 ----
+ ;;; nndejagnus.el --- retrieving articles via DejaNews
+ ;; Copyright (C) 1996 Free Software Foundation, Inc.
+ 
+ ;; Author: Lars Magne Ingebrigtsen <larsi@ifi.uio.no>
+ ;; Keywords: news
+ 
+ ;; This file is part of GNU Emacs.
+ 
+ ;; GNU Emacs is free software; you can redistribute it and/or modify
+ ;; it under the terms of the GNU General Public License as published by
+ ;; the Free Software Foundation; either version 2, or (at your option)
+ ;; any later version.
+ 
+ ;; GNU Emacs is distributed in the hope that it will be useful,
+ ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+ ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ ;; GNU General Public License for more details.
+ 
+ ;; You should have received a copy of the GNU General Public License
+ ;; along with GNU Emacs; see the file COPYING.  If not, write to the
+ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ ;; Boston, MA 02111-1307, USA.
+ 
+ ;;; Commentary:
+ 
+ ;; Note: You need to have `url' and `w3' installed for this
+ ;; backend to work.
+ 
+ ;;; Code:
+ 
+ (require 'nnoo)
+ (require 'message)
+ (require 'gnus-util)
+ (require 'w3-forms)
+ (require 'url)
+ 
+ (nnoo-declare nndejagnus)
+ 
+ (defvoo nndejagnus-address "http://www.dejagnus.com/"
+   "Base URL of the DejaNews search engine.")
+ 
+ (defvoo nndejagnus-search nil
+   "Search string to feed to DejaNews.")
+ 
+ (defvoo nndejagnus-max-hits 100
+   "Maximum number of hits to display.")
+ 
+ ;;; Internal variables
+ 
+ (defvoo nndejagnus-articles nil)
+ (defvoo nndejagnus-buffer nil)
+ (defvoo nndejagnus-async-buffer nil)
+ (defvar nndejagnus-callback-function nil)
+ (defvar nndejagnus-to-buffer nil)
+ (defvar nndejagnus-start-point nil)
+ (defvar nndejagnus-inside-change-function nil)
+ 
+ ;;; Interface functions
+ 
+ (nnoo-define-basics nndejagnus)
+ 
+ (deffoo nndejagnus-retrieve-headers (articles &optional group server fetch-old)
+   (nndejagnus-possibly-change-server server)
+   (save-excursion
+     (set-buffer nntp-server-buffer)
+     (erase-buffer)
+     (let (article header)
+       (while (setq article (pop articles))
+ 	(when (setq header (cadr (assq article nndejagnus-articles)))
+ 	  (nnheader-insert-nov header)))
+       'nov)))
+ 
+ (deffoo nndejagnus-request-group (group &optional server dont-check)
+   (nndejagnus-possibly-change-server server)
+   (when (or (not dont-check)
+ 	    (not nndejagnus-articles))
+     (nndejagnus-create-mapping group))
+   (cond
+    ((not nndejagnus-articles)
+     (nnheader-report 'nndejagnus "Couldn't request search"))
+    (t
+     (nnheader-report 'nndejagnus "Opened group %s" group)
+     (nnheader-insert
+      "211 %d %d %d %s\n" (length nndejagnus-articles)
+      (caar nndejagnus-articles) (caar (last nndejagnus-articles))
+       group))))
+ 
+ (deffoo nndejagnus-request-article (article &optional group server buffer)
+   (nndejagnus-possibly-change-server server)
+   (save-excursion
+     (set-buffer (or buffer nntp-server-buffer))
+     (let ((url (caddr (assq article nndejagnus-articles))))
+       (when (and url
+ 		 (nndejagnus-fetch-url url))
+ 	(unless nnheader-callback-function
+ 	  (nndejagnus-decode-article)
+ 	  (nndejagnus-decode-entities))
+ 	(nnheader-report 'nndejagnus "Fetched article %s" article)
+ 	t))))
+ 
+ (deffoo nndejagnus-close-server (&optional server)
+   (when (nndejagnus-server-opened server)
+     (gnus-kill-buffer nndejagnus-buffer))
+   (nnoo-close-server 'nndejagnus server))
+ 
+ (deffoo nndejagnus-request-update-info (group info &optional server)
+   (nndejagnus-possibly-change-server server)
+   (setcar (cddr info) nil))
+ 
+ (deffoo nndejagnus-asynchronous-p ()
+   t)
+ 
+ (nnoo-define-skeleton nndejagnus)
+ 
+ ;;; Internal functions
+ 
+ (defun nndejagnus-possibly-change-server (&optional server)
+   (nndejagnus-init server)
+   (when server
+     (unless (nndejagnus-server-opened server)
+       (nndejagnus-open-server server))))
+ 
+ (defun nndejagnus-init (server)
+   "Initialize buffers and such."
+   (unless (gnus-buffer-live-p nndejagnus-buffer)
+     (setq nndejagnus-buffer
+ 	  (save-excursion
+ 	    (nnheader-set-temp-buffer
+ 	     (format " *nndejagnus %s*" server))))))
+ 
+ (defun nndejagnus-create-mapping (group)
+   "Perform the search and create an number-to-url alist."
+   (save-excursion
+     (set-buffer nndejagnus-buffer)
+     (erase-buffer)
+     (when (nndejagnus-fetch-search nndejagnus-search)
+       (let ((i 0)
+ 	    (more t)
+ 	    Subject Score Date Newsgroup Author
+ 	    map url)
+ 	(while more
+ 	  ;; Go through all the article hits on this page.
+ 	  (goto-char (point-min))
+ 	  (nndejagnus-decode-entities)
+ 	  (goto-char (point-min))
+ 	  (while (re-search-forward "^ +[0-9]+\\." nil t)
+ 	    (narrow-to-region 
+ 	     (point) 
+ 	     (if (re-search-forward "^ +[0-9]+\\." nil t)
+ 		 (match-beginning 0)
+ 	       (point-max)))
+ 	    (goto-char (point-min))
+ 	    (when (looking-at ".*HREF=\"\\([^\"]+\\)\"")
+ 	      (setq url (match-string 1)))
+ 	    (while (re-search-forward "<[^>]+>" nil t)
+ 	      (replace-match "" t t))
+ 	    (goto-char (point-min))
+ 	    (while (search-forward "\t" nil t)
+ 	      (replace-match " "))
+ 	    (goto-char (point-min))
+ 	    (while (re-search-forward "^ +\\([^:]+\\): +\\(.*\\)$" nil t)
+ 	      (set (intern (match-string 1)) (match-string 2)))
+ 	    (widen)
+ 	    (when (string-match "#[0-9]+/[0-9]+ *$" Subject)
+ 	      (setq Subject (substring Subject 0 (match-beginning 0))))
+ 	    (push
+ 	     (list
+ 	      (incf i)
+ 	      (make-full-mail-header
+ 	       i (concat  "(" Newsgroup ") " Subject) Author Date
+ 	       (concat "<" (message-unique-id) "-" (int-to-string i)
+ 		       "@dejanews>")
+ 	       nil 0 (string-to-int Score) nil)
+ 	      url)
+ 	     map))
+ 	  ;; See whether there is a "Get next 20 hits" button here.
+ 	  (if (or (not (re-search-forward
+ 			"HREF=\"\\([^\"]+\\)\">Get next" nil t))
+ 		  (> i nndejagnus-max-hits))
+ 	      (setq more nil)
+ 	    ;; Yup -- fetch it.
+ 	    (setq more (match-string 1))
+ 	    (erase-buffer)
+ 	    (url-insert-file-contents more)))
+ 	;; Return the articles in the right order.
+ 	(setq nndejagnus-articles (nreverse map))))))
+ 
+ (defun nndejagnus-fetch-url (url)
+   (save-excursion
+     (if (not nnheader-callback-function)
+ 	(let ((buf (current-buffer)))
+ 	  (save-excursion
+ 	    (set-buffer nndejagnus-buffer)
+ 	    (erase-buffer)
+ 	    (prog1
+ 		(url-insert-file-contents url)
+ 	      (copy-to-buffer buf (point-min) (point-max)))))
+       (nndejagnus-url-retrieve-asynch
+        url 'nndejanews-callback (current-buffer) nnheader-callback-function)
+       t)))
+ 
+ (defun nndejanews-callback (buffer callback)
+   (save-excursion
+     (set-buffer url-working-buffer)
+     (nndejagnus-decode-article)
+     (nndejagnus-decode-entities)
+     (set-buffer buffer)
+     (goto-char (point-max))
+     (insert-buffer-substring url-working-buffer))
+   (funcall callback t)
+   (gnus-kill-buffer url-working-buffer))
+ 
+ (defun nndejagnus-url-retrieve-asynch (url callback &rest data)
+   (let ((url-request-method "GET")
+ 	(old-asynch url-be-asynchronous)
+ 	(url-request-data nil)
+ 	(url-request-extra-headers nil)
+ 	(url-working-buffer (generate-new-buffer-name " *dejanews*")))
+     (setq-default url-be-asynchronous t)
+     (save-excursion
+       (set-buffer (get-buffer-create url-working-buffer))
+       (setq url-current-callback-data data
+ 	    url-be-asynchronous t
+ 	    url-current-callback-func callback)
+       (url-retrieve url))
+     (setq-default url-be-asynchronous old-asynch)))
+ 
+ (defun nndejagnus-decode-article ()
+   (goto-char (point-min))
+   (re-search-forward "<PRE>" nil t)
+   (delete-region (point-min) (point))
+   (re-search-forward "</PRE>" nil t)
+   (delete-region (point) (point-max))
+   (goto-char (point-min))
+   (while (re-search-forward "<[^>]+>" nil t)
+     (replace-match "" t t))
+   (goto-char (point-min))
+   (while (looking-at " *$")
+     (gnus-delete-line))
+   (while (looking-at "\\(^[^ ]+:\\) *")
+     (replace-match "\\1 " t)
+     (forward-line 1))
+   (when (re-search-forward "\n\n+" nil t)
+     (replace-match "\n" t t)))
+ 
+ (defun nndejagnus-encode-www-form-urlencoded (pairs)
+   "Return PAIRS encoded for forms."
+   (mapconcat 
+     (function
+       (lambda (data)
+         (concat (w3-form-encode-xwfu (car data)) "="
+                 (w3-form-encode-xwfu (cdr data))))) pairs "&"))
+ 
+ (defun nndejagnus-fetch-form (url pairs)
+   (let ((url-request-data (nndejagnus-encode-www-form-urlencoded pairs))
+ 	(url-request-method 'POST)
+ 	(url-request-extra-headers 
+ 	 '(("Content-type" . "application/x-www-form-urlencoded"))))
+     (url-insert-file-contents url)))
+ 
+ (defun nndejagnus-fetch-search (search)
+   (nndejagnus-fetch-form 
+    "http://xp6.dejanews.com/dnquery.xp"
+    `(("query" . ,search)
+      ("defaultOp" . "AND")
+      ("svcclass" . "dncurrent")
+      ("maxhits" . "25")
+      ("format" . "verbose")
+      ("threaded" . "0")
+      ("showsort" . "score")
+      ("agesign" . "1")
+      ("ageweight" . "1"))))
+ 
+ (defun nndejagnus-decode-entities ()
+   (goto-char (point-min))
+   (while (re-search-forward "&\\([a-z]+\\);" nil t)
+     (replace-match (char-to-string (or (cdr (assq (intern (match-string 1))
+ 						  w3-html-entities ))
+ 				       ?#))
+ 		   t t)))
+ 
+ ;		"^ +\\([0-9]+\\)\\. +\\([0-9]+\\)/+\\([0-9]+\\)/+\\([0-9]+\\) +\\([0-9]+\\).+HREF=\"\\([^\"]+\\)\">\\([^<]+\\)<.*<B> *\\(.*\\)</B>.+>\\([^<>]+\\)</A> *$"
+ 
+ (provide 'nndejagnus)
+ 
+ ;;; nndejagnus.el ends here
*** pub/rgnus/lisp/nngateway.el	Sat Aug 17 10:45:43 1996
--- rgnus/lisp/nngateway.el	Sun Aug 18 14:35:18 1996
***************
*** 41,54 ****
  ;;; Interface functions
  
  (nnoo-define-basics nngateway)
- (nnoo-define-skeleton nngateway)
  
  (deffoo nngateway-open-server (server &optional defs)
    (if (nngateway-server-opened server)
        t
      (unless (assq 'nngateway-address defs)
!       (setq defs (append defs (list (list 'nntp-address server)))))
!     (nnoo-change-server 'nntp server defs)))
  
  (deffoo nngateway-request-post (&optional server)
    (when (or (nngateway-server-opened server)
--- 41,53 ----
  ;;; Interface functions
  
  (nnoo-define-basics nngateway)
  
  (deffoo nngateway-open-server (server &optional defs)
    (if (nngateway-server-opened server)
        t
      (unless (assq 'nngateway-address defs)
!       (setq defs (append defs (list (list 'nngateway-address server)))))
!     (nnoo-change-server 'nngateway server defs)))
  
  (deffoo nngateway-request-post (&optional server)
    (when (or (nngateway-server-opened server)
***************
*** 73,78 ****
--- 72,79 ----
      (goto-char (point-min))
      (insert "To: " (nnheader-replace-chars-in-string newsgroups ?. ?-)
  	    "@" gateway "\n")))
+ 
+ (nnoo-define-skeleton nngateway)
      
  (provide 'nngateway)
  
*** pub/rgnus/lisp/nnheader.el	Sat Aug 17 10:45:44 1996
--- rgnus/lisp/nnheader.el	Sun Aug 18 12:02:25 1996
***************
*** 134,139 ****
--- 134,144 ----
    "Create a new mail header structure initialized with INIT."
    (make-vector 9 init))
  
+ (defun make-full-mail-header (&optional number subject from date id
+ 					references chars lines xref)
+   "Create a new mail header structure initialized with the parameters given."
+   (vector number subject from date id references chars lines xref))
+   
  ;; Parsing headers and NOV lines.
  
  (defsubst nnheader-header-value ()
*** pub/rgnus/lisp/nnoo.el	Sat Aug 17 10:45:45 1996
--- rgnus/lisp/nnoo.el	Sun Aug 18 14:35:19 1996
***************
*** 256,270 ****
  
  (defun nnoo-define-skeleton-1 (backend)
    (let ((functions '(retrieve-headers
! 		     request-close server-opened request-article
  		     open-group request-group close-group
  		     request-list request-post))
! 	function)
      (while (setq function (pop functions))
!       (eval `(deffoo ,(nnoo-symbol backend function) 
! 		 (&optional server)
! 	       (nnheader-report ',backend ,(format "%s-%s not implemented"
! 						   backend function)))))))
  (provide 'nnoo)
  
  ;;; nnoo.el ends here.
--- 256,271 ----
  
  (defun nnoo-define-skeleton-1 (backend)
    (let ((functions '(retrieve-headers
! 		     request-close request-article
  		     open-group request-group close-group
  		     request-list request-post))
! 	function fun)
      (while (setq function (pop functions))
!       (when (not (fboundp (setq fun (nnoo-symbol backend function))))
! 	(eval `(deffoo ,fun
! 		   (&rest args)
! 		 (nnheader-report ',backend ,(format "%s-%s not implemented"
! 						     backend function))))))))
  (provide 'nnoo)
  
  ;;; nnoo.el ends here.
*** pub/rgnus/lisp/nntp.el	Sat Aug 17 11:57:07 1996
--- rgnus/lisp/nntp.el	Sun Aug 18 14:31:35 1996
***************
*** 593,610 ****
  	(when (and (> (point) nntp-process-start-point)
  		   (re-search-backward nntp-process-wait-for
  				       nntp-process-start-point t))
- 	  (when nntp-process-decode
- 	    ;(nntp-decode-text)
- 	    )
  	  (when (buffer-name (get-buffer nntp-process-to-buffer))
  	    (let ((cur (current-buffer))
  		  (start nntp-process-start-point))
  	      (save-excursion
  		(set-buffer (get-buffer nntp-process-to-buffer))
  		(goto-char (point-max))
! 		(insert-buffer-substring cur start))))
  	  (goto-char end)
- 	  ;(erase-buffer)
  	  (let ((callback nntp-process-callback)
  		(nntp-inside-change-function t))
  	    (setq nntp-process-callback nil)
--- 593,612 ----
  	(when (and (> (point) nntp-process-start-point)
  		   (re-search-backward nntp-process-wait-for
  				       nntp-process-start-point t))
  	  (when (buffer-name (get-buffer nntp-process-to-buffer))
  	    (let ((cur (current-buffer))
  		  (start nntp-process-start-point))
  	      (save-excursion
  		(set-buffer (get-buffer nntp-process-to-buffer))
  		(goto-char (point-max))
! 		(let ((b (point)))
! 		  (insert-buffer-substring cur start)
! 		  (narrow-to-region b (point-max))
! 		  (nntp-decode-text)
! 		  (goto-char (point-min))
! 		  (gnus-delete-line)
! 		  (widen)))))
  	  (goto-char end)
  	  (let ((callback nntp-process-callback)
  		(nntp-inside-change-function t))
  	    (setq nntp-process-callback nil)
*** pub/rgnus/lisp/ChangeLog	Sat Aug 17 15:13:40 1996
--- rgnus/lisp/ChangeLog	Sun Aug 18 13:29:10 1996
***************
*** 1,3 ****
--- 1,25 ----
+ Sun Aug 18 12:46:12 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* nnoo.el (nnoo-define-skeleton-1): Defined too many functions.
+ 
+ Sat Aug 17 18:43:22 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus-group.el (gnus-group-make-dejanews-group): New command and
+ 	keystroke. 
+ 
+ 	* gnus-start.el (gnus-site-init-file): New variable.
+ 	(gnus-read-init-file): Use it.
+ 
+ 	* nndejanews.el: New file.
+ 
+ 	* nnheader.el (make-full-mail-header): New function.
+ 
+ 	* nngateway.el (nngateway-open-server): Used nntp vars.
+ 
+ Sat Aug 17 15:35:28 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.el: Red Gnus v0.12 is released.
+ 
  Sat Aug 17 12:58:28 1996  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
  	* gnus-win.el (gnus-window-configuration-element): New function. 
*** pub/rgnus/texi/gnus.texi	Sat Aug 17 10:45:47 1996
--- rgnus/texi/gnus.texi	Sun Aug 18 14:42:18 1996
***************
*** 758,766 ****
  startup files.
  
  @vindex gnus-init-file
! When Gnus starts, it will read the @code{gnus-init-file} file, which is
! @file{~/.gnus.el} by default.  This is a normal Emacs Lisp file and can
! be used to avoid cluttering your @file{.emacs} file with Gnus stuff.
  
  
  @node Auto Save
--- 758,768 ----
  startup files.
  
  @vindex gnus-init-file
! When Gnus starts, it will read the @code{gnus-site-init-file} (default
! @file{.../site-lisp/gnus.el}) and @code{gnus-init-file} (default
! @file{~/.gnus.el}) files.  These are normal Emacs Lisp files and can be
! used to avoid cluttering your @file{.emacs} and @file{site-init} files
! with Gnus stuff.
  
  
  @node Auto Save
***************
*** 1646,1651 ****
--- 1648,1662 ----
  @code{forward}.  If you run this command without a prefix, Gnus will
  guess at the file type.  @xref{Document Groups}.
  
+ @item G n
+ @kindex G n (Group)
+ @findex gnus-group-make-dejagnus-group
+ @cindex DejaNews
+ Make an ephemeral group based on a DejaNews search
+ (@code{gnus-group-make-dejagnus-group}).  If you give a prefix to this
+ command, make a solid group instead.  You will be prompted for the
+ search.  @xref{DejaNews Searches}.
+ 
  @item G DEL
  @kindex G DEL (Group)
  @findex gnus-group-delete-group
***************
*** 8651,8656 ****
--- 8662,8668 ----
  * Anything Groups::       Dired?  Who needs dired?
  * Document Groups::       Single files can be the basis of a group.
  * SOUP::                  Reading @sc{SOUP} packets ``offline''.
+ * DejaNews Searches::     Creating groups from articles that match a string.
  * Mail-To-News Gateways:: Posting articles via mail-to-news gateways.
  @end menu
  
***************
*** 9196,9201 ****
--- 9208,9266 ----
  And that's it, really.  If you only want news to go into the @sc{soup}
  system you just use the first line.  If you only want mail to be
  @sc{soup}ed you use the second.
+ 
+ 
+ @node DejaNews Searches
+ @subsection DejaNews Searches
+ @cindex nndejagnus
+ @cindex DejaNews
+ @cindex Usenet searches
+ @cindex searching the Usenet
+ 
+ It's, like, too neat to search the Usenet for articles that match a
+ string, but it, like, totally @emph{sucks}, like, totally, to use one of
+ those, like, Web browsers, and you, like, have to, rilly, like, look at
+ the commercials, so, like, with Gnus you can do @emph{rad}, rilly,
+ searches without having to use a browser.
+ 
+ The @code{nndejagnus} (hey, I wonder if they're going to sue me over
+ copyright infringement?) backend allows an easy interface to the mighty
+ search engine.  You create an @code{nndejagnus} 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{nndejagnus} groups don't really lend themselves to being solid
+ groups---they have a very fleeting idea of article numbers.  In fact,
+ each time you enter an @code{nndejagnus} group (not changing the search
+ pattern), you are likely to get the articles ordered in a different
+ manner.  Not even using duplicate suppression (@code{Duplicate
+ Suppression}) will help, since @code{nndejagnus} doesn't even know the
+ @code{Message-ID} of the articles before reading them.  The only
+ possible way to keep track of which articles you've read is by scoring
+ on the @code{Date} header---mark all articles that were posted before
+ the last date you read the group as read.
+ 
+ You must have the @code{url} and @code{w3} package installed to be able
+ to use @code{nndejagnus}.
+ 
+ Virtual server variables:
+ 
+ @table @code
+ @item nndejagnus-address
+ @vindex nndejagnus-address
+ The address of the DejaNews search engine.  The default is
+ @samp{http://www.dejagnus.com}. 
+ 
+ @item nndejagnus-search
+ @vindex nndejagnus-search
+ The search string to feed to DejaNews.
+ 
+ @item nndejagnus-max-hits
+ @vindex nndejagnus-max-hits
+ Maximum number of hits per search to display.  The default is 100.
+ @end table
+ 
  
  
  @node Mail-To-News Gateways
*** pub/rgnus/texi/ChangeLog	Sat Aug 17 10:45:48 1996
--- rgnus/texi/ChangeLog	Sun Aug 18 12:02:32 1996
***************
*** 1,3 ****
--- 1,8 ----
+ Sat Aug 17 22:24:34 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
+ 
+ 	* gnus.texi (Startup Files): Addition.
+ 	(Anything Groups): Addition.
+ 
  Thu Aug 15 17:59:12 1996  Lars Magne Ingebrigtsen  <lars@eyesore.no>
  
  	* gnus.texi (Followups To Yourself): Addition.
*** pub/rgnus/GNUS-NEWS	Sat Aug 17 10:45:48 1996
--- rgnus/GNUS-NEWS	Sun Aug 18 14:31:37 1996
***************
*** 68,70 ****
--- 68,81 ----
  
  *** A new mail-to-news backend makes it possible to post
  even when the NNTP server doesn't allow posting.
+ *** Process mark sets can be pushed and popped.
+ 
+ *** A new mail-to-news backend makes it possible to post
+ even when the NNTP server doesn't allow posting.
+ 
+ *** A new backend for reading searches from DejaNews has
+ been added.  
+ 
+     Use the `G n' command in the group buffer to create such
+     a group.
+