*** pub/rgnus/lisp/dgnushack.el	Thu Nov 28 04:07:00 1996
--- rgnus/lisp/dgnushack.el	Sun Jan  5 09:39:03 1997
***************
*** 29,35 ****
--- 29,37 ----
  (fset 'facep 'ignore)
  
  (require 'cl)
+ (require 'bytecomp)
  (push "." load-path)
+ (require 'lpath)
  
  (defalias 'device-sound-enabled-p 'ignore)
  (defalias 'play-sound-file 'ignore)
*** pub/rgnus/lisp/gnus-art.el	Sat Jan  4 10:40:41 1997
--- rgnus/lisp/gnus-art.el	Sat Jan  4 14:24:53 1997
***************
*** 519,525 ****
    (text-property-any (point-min) (point-max) 'article-type type))
  
  (defsubst gnus-article-header-rank ()
!   "Give the rank of the string HEADER as given by `article-sorted-header-list'."
    (let ((list gnus-sorted-header-list)
  	(i 0))
      (while list
--- 519,525 ----
    (text-property-any (point-min) (point-max) 'article-type type))
  
  (defsubst gnus-article-header-rank ()
!   "Give the rank of the string HEADER as given by `gnus-sorted-header-list'."
    (let ((list gnus-sorted-header-list)
  	(i 0))
      (while list
***************
*** 529,535 ****
        (incf i))
      i))
  
! (defun gnus-article-hide-headers (&optional arg delete)
    "Toggle whether to hide unwanted headers and possibly sort them as well.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
--- 529,535 ----
        (incf i))
      i))
  
! (defun article-hide-headers (&optional arg delete)
    "Toggle whether to hide unwanted headers and possibly sort them as well.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
***************
*** 602,608 ****
  	      ;; Work around XEmacs lossage.
  	      (put-text-property (point-min) beg 'invisible nil))))))))
  
! (defun gnus-article-hide-boring-headers (&optional arg)
    "Toggle hiding of headers that aren't very interesting.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
--- 602,608 ----
  	      ;; Work around XEmacs lossage.
  	      (put-text-property (point-min) beg 'invisible nil))))))))
  
! (defun article-hide-boring-headers (&optional arg)
    "Toggle hiding of headers that aren't very interesting.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
***************
*** 674,680 ****
         'boring-headers))))
  
  ;; Written by Per Abrahamsen <amanda@iesd.auc.dk>.
! (defun gnus-article-treat-overstrike ()
    "Translate overstrikes into bold text."
    (interactive)
    (save-excursion
--- 674,680 ----
         'boring-headers))))
  
  ;; Written by Per Abrahamsen <amanda@iesd.auc.dk>.
! (defun article-treat-overstrike ()
    "Translate overstrikes into bold text."
    (interactive)
    (save-excursion
***************
*** 698,704 ****
  	    (put-text-property
  	     (point) (1+ (point)) 'face 'underline))))))))
  
! (defun gnus-article-fill ()
    "Format too long lines."
    (interactive)
    (save-excursion
--- 698,704 ----
  	    (put-text-property
  	     (point) (1+ (point)) 'face 'underline))))))))
  
! (defun article-fill ()
    "Format too long lines."
    (interactive)
    (save-excursion
***************
*** 716,722 ****
  	       (fill-paragraph nil))
  	  (end-of-line 2))))))
  
! (defun gnus-article-remove-cr ()
    "Remove carriage returns from an article."
    (interactive)
    (save-excursion
--- 716,722 ----
  	       (fill-paragraph nil))
  	  (end-of-line 2))))))
  
! (defun article-remove-cr ()
    "Remove carriage returns from an article."
    (interactive)
    (save-excursion
***************
*** 725,731 ****
        (while (search-forward "\r" nil t)
  	(replace-match "" t t)))))
  
! (defun gnus-article-remove-trailing-blank-lines ()
    "Remove all trailing blank lines from the article."
    (interactive)
    (save-excursion
--- 725,731 ----
        (while (search-forward "\r" nil t)
  	(replace-match "" t t)))))
  
! (defun article-remove-trailing-blank-lines ()
    "Remove all trailing blank lines from the article."
    (interactive)
    (save-excursion
***************
*** 740,746 ****
  	 (forward-line 1)
  	 (point))))))
  
! (defun gnus-article-display-x-face (&optional force)
    "Look for an X-Face header and display it if present."
    (interactive (list 'force))
    (save-excursion
--- 740,746 ----
  	 (forward-line 1)
  	 (point))))))
  
! (defun article-display-x-face (&optional force)
    "Look for an X-Face header and display it if present."
    (interactive (list 'force))
    (save-excursion
***************
*** 782,789 ****
  		(process-send-region "article-x-face" beg end)
  		(process-send-eof "article-x-face")))))))))
  
! (defalias 'gnus-decode-rfc1522 'gnus-article-decode-rfc1522)
! (defun gnus-article-decode-rfc1522 ()
    "Hack to remove QP encoding from headers."
    (let ((case-fold-search t)
  	(inhibit-point-motion-hooks t)
--- 782,790 ----
  		(process-send-region "article-x-face" beg end)
  		(process-send-eof "article-x-face")))))))))
  
! (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
! (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)
! (defun article-decode-rfc1522 ()
    "Hack to remove QP encoding from headers."
    (let ((case-fold-search t)
  	(inhibit-point-motion-hooks t)
***************
*** 801,813 ****
  	  (narrow-to-region (match-beginning 0) (match-end 0))
  	  (delete-region (point-min) (point-max))
  	  (insert string)
! 	  (gnus-article-mime-decode-quoted-printable 
  	   (goto-char (point-min)) (point-max))
  	  (subst-char-in-region (point-min) (point-max) ?_ ? )
  	  (goto-char (point-max)))
  	(goto-char (point-min))))))
  
! (defun gnus-article-de-quoted-unreadable (&optional force)
    "Do a naive translation of a quoted-printable-encoded article.
  This is in no way, shape or form meant as a replacement for real MIME
  processing, but is simply a stop-gap measure until MIME support is
--- 802,814 ----
  	  (narrow-to-region (match-beginning 0) (match-end 0))
  	  (delete-region (point-min) (point-max))
  	  (insert string)
! 	  (article-mime-decode-quoted-printable 
  	   (goto-char (point-min)) (point-max))
  	  (subst-char-in-region (point-min) (point-max) ?_ ? )
  	  (goto-char (point-max)))
  	(goto-char (point-min))))))
  
! (defun article-de-quoted-unreadable (&optional force)
    "Do a naive translation of a quoted-printable-encoded article.
  This is in no way, shape or form meant as a replacement for real MIME
  processing, but is simply a stop-gap measure until MIME support is
***************
*** 824,836 ****
  		(and type (string-match "quoted-printable" (downcase type))))
  	(goto-char (point-min))
  	(search-forward "\n\n" nil 'move)
! 	(gnus-article-mime-decode-quoted-printable (point) (point-max))))))
  
! (defun gnus-article-mime-decode-quoted-printable-buffer ()
    "Decode Quoted-Printable in the current buffer."
!   (gnus-article-mime-decode-quoted-printable (point-min) (point-max)))
    
! (defun gnus-article-mime-decode-quoted-printable (from to)
    "Decode Quoted-Printable in the region between FROM and TO."
    (interactive "r")
    (goto-char from)
--- 825,837 ----
  		(and type (string-match "quoted-printable" (downcase type))))
  	(goto-char (point-min))
  	(search-forward "\n\n" nil 'move)
! 	(article-mime-decode-quoted-printable (point) (point-max))))))
  
! (defun article-mime-decode-quoted-printable-buffer ()
    "Decode Quoted-Printable in the current buffer."
!   (article-mime-decode-quoted-printable (point-min) (point-max)))
    
! (defun article-mime-decode-quoted-printable (from to)
    "Decode Quoted-Printable in the region between FROM and TO."
    (interactive "r")
    (goto-char from)
***************
*** 848,854 ****
  	   (delete-char 1))
  	  ((gnus-message 3 "Malformed MIME quoted-printable message")))))
  
! (defun gnus-article-hide-pgp (&optional arg)
    "Toggle hiding of any PGP headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
--- 849,855 ----
  	   (delete-char 1))
  	  ((gnus-message 3 "Malformed MIME quoted-printable message")))))
  
! (defun article-hide-pgp (&optional arg)
    "Toggle hiding of any PGP headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
***************
*** 881,887 ****
  	    (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp))
  	  (widen))))))
  
! (defun gnus-article-hide-pem (&optional arg)
    "Toggle hiding of any PEM headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
--- 882,888 ----
  	    (gnus-article-hide-text-type (match-beginning 0) (match-end 0) 'pgp))
  	  (widen))))))
  
! (defun article-hide-pem (&optional arg)
    "Toggle hiding of any PEM headers and signatures in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
***************
*** 909,915 ****
  	     (gnus-article-hide-text-type
  	      (match-beginning 0) (match-end 0) 'pem))))))
  
! (defun gnus-article-hide-signature (&optional arg)
    "Hide the signature in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
--- 910,916 ----
  	     (gnus-article-hide-text-type
  	      (match-beginning 0) (match-end 0) 'pem))))))
  
! (defun article-hide-signature (&optional arg)
    "Hide the signature in the current article.
  If given a negative prefix, always show; if given a positive prefix,
  always hide."
***************
*** 921,927 ****
  	  (when (gnus-article-narrow-to-signature)
  	    (gnus-article-hide-text-type (point-min) (point-max) 'signature)))))))
  
! (defun gnus-article-strip-leading-blank-lines ()
    "Remove all blank lines from the beginning of the article."
    (interactive)
    (save-excursion
--- 922,928 ----
  	  (when (gnus-article-narrow-to-signature)
  	    (gnus-article-hide-text-type (point-min) (point-max) 'signature)))))))
  
! (defun article-strip-leading-blank-lines ()
    "Remove all blank lines from the beginning of the article."
    (interactive)
    (save-excursion
***************
*** 933,939 ****
  		    (looking-at "[ \t]*$"))
  	  (gnus-delete-line))))))
  
! (defun gnus-article-strip-multiple-blank-lines ()
    "Replace consecutive blank lines with one empty line."
    (interactive)
    (save-excursion
--- 934,940 ----
  		    (looking-at "[ \t]*$"))
  	  (gnus-delete-line))))))
  
! (defun article-strip-multiple-blank-lines ()
    "Replace consecutive blank lines with one empty line."
    (interactive)
    (save-excursion
***************
*** 947,958 ****
        (while (re-search-forward "\n\n\n+" nil t)
  	(replace-match "\n\n" t t)))))
  
! (defun gnus-article-strip-blank-lines ()
    "Strip leading, trailing and multiple blank lines."
    (interactive)
!   (gnus-article-strip-leading-blank-lines)
!   (gnus-article-remove-trailing-blank-lines)
!   (gnus-article-strip-multiple-blank-lines))
  
  (defvar mime::preview/content-list)
  (defvar mime::preview-content-info/point-min)
--- 948,959 ----
        (while (re-search-forward "\n\n\n+" nil t)
  	(replace-match "\n\n" t t)))))
  
! (defun article-strip-blank-lines ()
    "Strip leading, trailing and multiple blank lines."
    (interactive)
!   (article-strip-leading-blank-lines)
!   (article-remove-trailing-blank-lines)
!   (article-strip-multiple-blank-lines))
  
  (defvar mime::preview/content-list)
  (defvar mime::preview-content-info/point-min)
***************
*** 1064,1070 ****
      (second . 1))
    "Mapping from time units to seconds.")
  
! (defun gnus-article-date-ut (&optional type highlight header)
    "Convert DATE date to universal time in the current article.
  If TYPE is `local', convert to local time; if it is `lapsed', output
  how much time has lapsed since DATE."
--- 1065,1071 ----
      (second . 1))
    "Mapping from time units to seconds.")
  
! (defun article-date-ut (&optional type highlight header)
    "Convert DATE date to universal time in the current article.
  If TYPE is `local', convert to local time; if it is `lapsed', output
  how much time has lapsed since DATE."
***************
*** 1092,1098 ****
  		  (message-remove-header date-regexp t)
  		  (beginning-of-line))
  	      (goto-char (point-max)))
! 	    (insert (gnus-article-make-date-line date type))
  	    ;; Do highlighting.
  	    (forward-line -1)
  	    (when (looking-at "\\([^:]+\\): *\\(.*\\)$")
--- 1093,1099 ----
  		  (message-remove-header date-regexp t)
  		  (beginning-of-line))
  	      (goto-char (point-max)))
! 	    (insert (article-make-date-line date type))
  	    ;; Do highlighting.
  	    (forward-line -1)
  	    (when (looking-at "\\([^:]+\\): *\\(.*\\)$")
***************
*** 1101,1107 ****
  	      (put-text-property (match-beginning 2) (match-end 2)
  				 'face eface))))))))
  
! (defun gnus-article-make-date-line (date type)
    "Return a DATE line of TYPE."
    (cond
     ;; Convert to the local timezone.  We have to slap a
--- 1102,1108 ----
  	      (put-text-property (match-beginning 2) (match-end 2)
  				 'face eface))))))))
  
! (defun article-make-date-line (date type)
    "Return a DATE line of TYPE."
    (cond
     ;; Convert to the local timezone.  We have to slap a
***************
*** 1178,1208 ****
     (t
      (error "Unknown conversion type: %s" type))))
  
! (defun gnus-article-date-local (&optional highlight)
    "Convert the current article date to the local timezone."
    (interactive (list t))
!   (gnus-article-date-ut 'local highlight))
  
! (defun gnus-article-date-original (&optional highlight)
    "Convert the current article date to what it was originally.
  This is only useful if you have used some other date conversion
  function and want to see what the date was before converting."
    (interactive (list t))
!   (gnus-article-date-ut 'original highlight))
  
! (defun gnus-article-date-lapsed (&optional highlight)
    "Convert the current article date to time lapsed since it was sent."
    (interactive (list t))
!   (gnus-article-date-ut 'lapsed highlight))
  
! (defun gnus-article-show-all ()
    "Show all hidden text in the article buffer."
    (interactive)
    (save-excursion
      (let ((buffer-read-only nil))
        (gnus-article-unhide-text (point-min) (point-max)))))
  
! (defun gnus-article-emphasize (&optional arg)
    "Emphasize text according to `gnus-emphasis-alist'."
    (interactive (gnus-article-hidden-arg))
    (unless (gnus-article-check-hidden-text 'emphasis arg)
--- 1179,1209 ----
     (t
      (error "Unknown conversion type: %s" type))))
  
! (defun article-date-local (&optional highlight)
    "Convert the current article date to the local timezone."
    (interactive (list t))
!   (article-date-ut 'local highlight))
  
! (defun article-date-original (&optional highlight)
    "Convert the current article date to what it was originally.
  This is only useful if you have used some other date conversion
  function and want to see what the date was before converting."
    (interactive (list t))
!   (article-date-ut 'original highlight))
  
! (defun article-date-lapsed (&optional highlight)
    "Convert the current article date to time lapsed since it was sent."
    (interactive (list t))
!   (article-date-ut 'lapsed highlight))
  
! (defun article-show-all ()
    "Show all hidden text in the article buffer."
    (interactive)
    (save-excursion
      (let ((buffer-read-only nil))
        (gnus-article-unhide-text (point-min) (point-max)))))
  
! (defun article-emphasize (&optional arg)
    "Emphasize text according to `gnus-emphasis-alist'."
    (interactive (gnus-article-hidden-arg))
    (unless (gnus-article-check-hidden-text 'emphasis arg)
***************
*** 1516,1521 ****
--- 1517,1562 ----
  	 (concat (gnus-newsgroup-directory-form newsgroup) "/news"))
         gnus-article-save-directory)))
  
+ (eval-and-compile
+   (mapcar
+    (lambda (func)
+      (let (afunc gfunc)
+        (if (consp func)
+ 	   (setq afunc (car func)
+ 		 gfunc (cdr func))
+ 	 (setq afunc func
+ 	       gfunc (intern (format "gnus-%s" func))))
+        (fset gfunc 
+ 	     (if (not (fboundp afunc))
+ 		 nil
+ 	       `(lambda (&optional interactive &rest args)
+ 		  ,(documentation afunc t)
+ 		  (interactive (list t))
+ 		  (save-excursion
+ 		    (set-buffer gnus-article-buffer)
+ 		    (if interactive
+ 			(call-interactively ',afunc)
+ 		      (apply ',afunc args))))))))
+    '(article-hide-headers
+      article-hide-boring-headers
+      article-treat-overstrike
+      (article-fill . gnus-article-word-wrap)
+      article-remove-cr
+      article-display-x-face
+      article-de-quoted-unreadable
+      article-mime-decode-quoted-printable
+      article-hide-pgp
+      article-hide-pem
+      article-hide-signature
+      article-remove-trailing-blank-lines
+      article-strip-leading-blank-lines
+      article-strip-multiple-blank-lines
+      article-strip-blank-lines
+      article-date-local
+      article-date-original
+      article-date-lapsed
+      article-emphasize
+      (article-show-all . gnus-article-show-all-headers))))
  
  ;;;
  ;;; Gnus article mode
*** pub/rgnus/lisp/gnus-async.el	Sat Jan  4 09:03:12 1997
--- rgnus/lisp/gnus-async.el	Sat Jan  4 11:45:56 1997
***************
*** 263,269 ****
      (if (and entry
  	     (= (cadr entry) (caddr entry)))
  	(progn
! 	  (gnus-async-delete-prefected-entry entry)
  	  nil)
        entry)))
  
--- 263,273 ----
      (if (and entry
  	     (= (cadr entry) (caddr entry)))
  	(progn
! 	  (ignore-errors
! 	    (set-marker (cadr entry) nil)
! 	    (set-marker (caddr entry) nil))
! 	  (setq gnus-async-article-alist 
! 		(delq entry gnus-async-article-alist))
  	  nil)
        entry)))
  
*** pub/rgnus/lisp/gnus-cite.el	Sat Jan  4 08:56:25 1997
--- rgnus/lisp/gnus-cite.el	Sun Jan  5 10:49:53 1997
***************
*** 357,370 ****
  	  (goto-char (point-min))
  	  (forward-line (1- number))
  	  (push (cons (point-marker) prefix) marks)))
        (goto-char (point-min))
        (search-forward "\n\n" nil t)
        (push (cons (point-marker) "") marks)
        (goto-char (point-max))
        (gnus-article-search-signature)
        (push (cons (point-marker) "") marks)
        (setq marks (sort marks (lambda (m1 m2) (< (car m1) (car m2)))))
!       (let* ((omarks marks))
  	(setq marks nil)
  	(while (cdr omarks)
  	  (if (= (caar omarks) (caadr omarks))
--- 357,373 ----
  	  (goto-char (point-min))
  	  (forward-line (1- number))
  	  (push (cons (point-marker) prefix) marks)))
+       ;; Skip to the beginning of the body.
        (goto-char (point-min))
        (search-forward "\n\n" nil t)
        (push (cons (point-marker) "") marks)
+       ;; Find the end of the body.
        (goto-char (point-max))
        (gnus-article-search-signature)
        (push (cons (point-marker) "") marks)
+       ;; Sort the marks.
        (setq marks (sort marks (lambda (m1 m2) (< (car m1) (car m2)))))
!       (let ((omarks marks))
  	(setq marks nil)
  	(while (cdr omarks)
  	  (if (= (caar omarks) (caadr omarks))
***************
*** 373,379 ****
  		  (push (car omarks) marks))
  		(unless (equal (cdadr omarks) "")
  		  (push (cadr omarks) marks))
! 		(setq omarks (cdr omarks)))
  	    (push (car omarks) marks))
  	  (setq omarks (cdr omarks)))
  	(when (car omarks)
--- 376,385 ----
  		  (push (car omarks) marks))
  		(unless (equal (cdadr omarks) "")
  		  (push (cadr omarks) marks))
! 		(unless (and (equal (cdar omarks) "")
! 			     (equal (cdadr omarks) "")
! 			     (not (cddr omarks)))
! 		  (setq omarks (cdr omarks))))
  	    (push (car omarks) marks))
  	  (setq omarks (cdr omarks)))
  	(when (car omarks)
*** pub/rgnus/lisp/gnus-sum.el	Sat Jan  4 10:36:17 1997
--- rgnus/lisp/gnus-sum.el	Sun Jan  5 11:06:00 1997
***************
*** 4803,4809 ****
    (interactive "P")
    (gnus-summary-reselect-current-group all t))
  
! (defun gnus-summary-update-info ()
    (save-excursion
      (let ((group gnus-newsgroup-name))
        (when gnus-newsgroup-kill-headers
--- 4803,4809 ----
    (interactive "P")
    (gnus-summary-reselect-current-group all t))
  
! (defun gnus-summary-update-info (&optional non-destructive)
    (save-excursion
      (let ((group gnus-newsgroup-name))
        (when gnus-newsgroup-kill-headers
***************
*** 4820,4826 ****
        (unless (listp (cdr gnus-newsgroup-killed))
  	(setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
        (let ((headers gnus-newsgroup-headers))
! 	(unless gnus-save-score
  	  (setq gnus-newsgroup-scored nil))
  	;; Set the new ranges of read articles.
  	(gnus-update-read-articles
--- 4820,4827 ----
        (unless (listp (cdr gnus-newsgroup-killed))
  	(setq gnus-newsgroup-killed (list gnus-newsgroup-killed)))
        (let ((headers gnus-newsgroup-headers))
! 	(when (and (not gnus-save-score)
! 		   (not non-destructive))
  	  (setq gnus-newsgroup-scored nil))
  	;; Set the new ranges of read articles.
  	(gnus-update-read-articles
***************
*** 4844,4850 ****
    "Save the current number of read/marked articles in the dribble buffer.
  If FORCE (the prefix), also save the .newsrc file(s)."
    (interactive "P")
!   (gnus-summary-update-info)
    (when force
      (gnus-save-newsrc-file)))
  
--- 4845,4851 ----
    "Save the current number of read/marked articles in the dribble buffer.
  If FORCE (the prefix), also save the .newsrc file(s)."
    (interactive "P")
!   (gnus-summary-update-info t)
    (when force
      (gnus-save-newsrc-file)))
  
***************
*** 4928,4934 ****
  	 (quit-config (gnus-group-quit-config group)))
      (when (or no-questions
  	      gnus-expert-user
! 	      (gnus-y-or-n-p "Do you really wanna quit reading this group? "))
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
  	(gnus-kill-buffer gnus-article-buffer)
--- 4929,4935 ----
  	 (quit-config (gnus-group-quit-config group)))
      (when (or no-questions
  	      gnus-expert-user
! 	      (gnus-y-or-n-p "Discard changes to this group and exit? "))
        ;; If we have several article buffers, we kill them at exit.
        (unless gnus-single-article-buffer
  	(gnus-kill-buffer gnus-article-buffer)
***************
*** 5675,5681 ****
  
  (defun gnus-summary-limit-to-subject (subject &optional header)
    "Limit the summary buffer to articles that have subjects that match a regexp."
!   (interactive "sRegexp: ")
    (unless header
      (setq header "subject"))
    (when (not (equal "" subject))
--- 5676,5682 ----
  
  (defun gnus-summary-limit-to-subject (subject &optional header)
    "Limit the summary buffer to articles that have subjects that match a regexp."
!   (interactive "sLimit to subject (regexp): ")
    (unless header
      (setq header "subject"))
    (when (not (equal "" subject))
***************
*** 5689,5695 ****
  
  (defun gnus-summary-limit-to-author (from)
    "Limit the summary buffer to articles that have authors that match a regexp."
!   (interactive "sRegexp: ")
    (gnus-summary-limit-to-subject from "from"))
  
  (defun gnus-summary-limit-to-age (age &optional younger-p)
--- 5690,5696 ----
  
  (defun gnus-summary-limit-to-author (from)
    "Limit the summary buffer to articles that have authors that match a regexp."
!   (interactive "sLimit to author (regexp): ")
    (gnus-summary-limit-to-subject from "from"))
  
  (defun gnus-summary-limit-to-age (age &optional younger-p)
*** pub/rgnus/lisp/gnus-topic.el	Mon Dec 16 14:45:54 1996
--- rgnus/lisp/gnus-topic.el	Sun Jan  5 10:32:43 1997
***************
*** 1267,1272 ****
--- 1267,1275 ----
    "Sort groups in the topics according to FUNC and REVERSE."
    (let ((alist gnus-topic-alist))
      (while alist
+       ;; !!!Sometimes nil elements sneak into the alist,
+       ;; for some reason or other.
+       (setcar alist (delq nil (car alist)))
        (gnus-topic-sort-topic (pop alist) func reverse))))
  
  (defun gnus-topic-sort-topic (topic func reverse)
*** pub/rgnus/lisp/gnus.el	Sat Jan  4 10:43:11 1997
--- rgnus/lisp/gnus.el	Sat Jan  4 13:48:50 1997
***************
*** 42,48 ****
    "Score and kill file handling."
    :group 'gnus )
  
! (defconst gnus-version-number "0.77"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
--- 42,48 ----
    "Score and kill file handling."
    :group 'gnus )
  
! (defconst gnus-version-number "0.78"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Red Gnus v%s" gnus-version-number)
*** pub/rgnus/lisp/lpath.el	Sun Jan  5 11:15:38 1997
--- rgnus/lisp/lpath.el	Sun Jan  5 09:47:02 1997
***************
*** 0 ****
--- 1,33 ----
+ ;; Shut up.
+ 
+ (defvar byte-compile-default-warnings)
+ 
+ (defun maybe-fbind (args)
+   (while args 
+     (or (fboundp (car args))
+ 	(fset (car args) 'ignore))
+     (setq args (cdr args))))
+ 
+ (if (string-match "XEmacs" emacs-version)
+     (progn 
+       (defvar track-mouse nil)
+       (maybe-fbind '(posn-point event-start x-popup-menu
+ 		     error-message-string facemenu-get-face window-at
+ 		     coordinates-in-window-p compute-motion
+ 		     x-defined-colors easy-menu-create-keymaps)) 
+       ;; XEmacs thinks writting compatible code is obsolete.
+       (require 'bytecomp)
+       (setq byte-compile-default-warnings
+ 	    (delq 'obsolete byte-compile-default-warnings)))
+   (defvar browse-url-browser-function nil)
+   (maybe-fbind '(color-instance-rgb-components make-color-instance
+ 	         color-instance-name specifier-instance device-type
+ 		 device-class get-popup-menu-response event-object
+ 		 x-defined-colors read-color add-submenu set-font-family
+ 		 font-create-object set-font-size frame-device find-face
+ 		 set-extent-property make-extent)))
+ 
+ (setq load-path (cons "." load-path))
+ (require 'custom)
+ 
+ (provide 'lpath)
*** pub/rgnus/lisp/message.el	Fri Jan  3 18:12:59 1997
--- rgnus/lisp/message.el	Sun Jan  5 10:27:43 1997
***************
*** 1737,1743 ****
      (let ((headers message-deletable-headers))
        (while headers
  	(goto-char (point-min)) 
- 	;;(message "Deleting header %s" (car headers)) (sit-for 5)
  	(and (re-search-forward 
  	      (concat "^" (symbol-name (car headers)) ": *") nil t)
  	     (message-delete-line))
--- 1737,1742 ----
*** pub/rgnus/lisp/nnkiboze.el	Thu Dec  5 08:50:26 1996
--- rgnus/lisp/nnkiboze.el	Sun Jan  5 10:21:25 1997
***************
*** 295,301 ****
  		;; That's it.  We exit this group.
  		(gnus-summary-exit-no-update)))
  	  ;; Restore the proper info.
! 	  (setcdr ginfo (cdr orig-info))))
        (setcdr (car newsrc) (car active))
        (setq newsrc (cdr newsrc)))
      ;; We save the nov file.
--- 295,302 ----
  		;; That's it.  We exit this group.
  		(gnus-summary-exit-no-update)))
  	  ;; Restore the proper info.
! 	  (when ginfo
! 	    (setcdr ginfo (cdr orig-info)))))
        (setcdr (car newsrc) (car active))
        (setq newsrc (cdr newsrc)))
      ;; We save the nov file.
*** pub/rgnus/lisp/nnoo.el	Thu Nov 21 21:55:47 1996
--- rgnus/lisp/nnoo.el	Sun Jan  5 10:21:25 1997
***************
*** 190,195 ****
--- 190,203 ----
  	(defs (nnoo-variables backend)))
      ;; Remove the old definition.
      (setcdr (cdr bstate) (delq (assoc current (cddr bstate)) (cddr bstate)))
+     ;; If this is the first time we push the server (i. e., this is 
+     ;; the nil server), then we update the default values of
+     ;; all the variables to reflect the current values.
+     (unless current
+       (let ((defaults (nnoo-variables backend))
+ 	    def)
+ 	(while (setq def (pop defaults))
+ 	  (setcdr def (symbol-value (car def))))))
      (let (state)
        (while defs
  	(push (cons (caar defs) (symbol-value (caar defs)))
*** pub/rgnus/lisp/pop3.el	Fri Jan  3 18:58:53 1997
--- rgnus/lisp/pop3.el	Sun Jan  5 09:49:42 1997
***************
*** 37,42 ****
--- 37,45 ----
  (require 'mail-utils)
  (provide 'pop3)
  
+ (eval-and-compile
+   (if (not (fboundp 'md5)) (autoload 'md5 "md5")))
+ 
  (defvar pop3-maildrop (or user-login-name (getenv "LOGNAME") (getenv "USER") nil)
    "*POP3 maildrop.")
  (defvar pop3-mailhost (or (getenv "MAILHOST") nil)
*** pub/rgnus/lisp/ChangeLog	Sat Jan  4 10:31:04 1997
--- rgnus/lisp/ChangeLog	Sun Jan  5 11:06:00 1997
***************
*** 1,3 ****
--- 1,39 ----
+ Sun Jan  5 09:39:14 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-sum.el (gnus-summary-exit-no-update): Prompt change.
+ 	(gnus-summary-limit-to-author): Ditto.
+ 	(gnus-summary-limit-to-subject): Ditto.
+ 
+ 	* gnus-cite.el (gnus-dissect-cited-text): Recognize articles that
+ 	end with cited text.
+ 
+ 	* gnus-topic.el (gnus-group-sort-topic): Remove nil elements.
+ 
+ 	* nnoo.el (nnoo-push-server): When switching from the nil server,
+ 	update all the default values of the variables.
+ 
+ 	* nnkiboze.el (nnkiboze-generate-group): Protect against nil
+ 	infos. 
+ 
+ 	* lpath.el: Included.
+ 
+ Sun Jan  5 09:36:57 1997  Martin Buchholz  <mrb@eng.sun.com>
+ 
+ 	* dgnushack.el (bytecomp): Required.
+ 
+ Sat Jan  4 11:45:45 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus-art.el: Rename some functions back.
+ 
+ 	* gnus-sum.el (gnus-summary-save-newsrc): Don't nix out scores.
+ 
+ 	* gnus-async.el (gnus-async-prefetched-article-entry): Would
+ 	hang Emacs.
+ 
+ Sat Jan  4 11:28:24 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
+ 
+ 	* gnus.el: Red Gnus v0.77 is released.
+ 
  Sat Jan  4 08:35:06 1997  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>
  
  	* gnus-cache.el (gnus-start): Don't require gnus-sum.
*** pub/rgnus/texi/custom.texi	Fri Jan  3 19:14:09 1997
--- rgnus/texi/custom.texi	Sat Jan  4 14:02:22 1997
***************
*** 461,466 ****
--- 461,468 ----
  tag for that member.
  @end table
  
+ @end defun
+ 
  @node  Declaring Variables, Declaring Faces, Declaring Groups, Declarations
  @comment  node-name,  next,  previous,  up
  @subsection Declaring Variables
*** pub/rgnus/texi/gnus.texi	Sat Jan  4 10:46:22 1997
--- rgnus/texi/gnus.texi	Sun Jan  5 11:15:16 1997
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Red Gnus 0.77 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Red Gnus 0.78 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 287,293 ****
  @tex
  
  @titlepage
! @title Red Gnus 0.77 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 287,293 ----
  @tex
  
  @titlepage
! @title Red Gnus 0.78 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 323,329 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Red Gnus 0.77
  
  @end ifinfo
  
--- 323,329 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Red Gnus 0.78
  
  @end ifinfo