*** pub/pgnus/lisp/gnus-art.el	Tue Sep  8 22:25:55 1998
--- pgnus/lisp/gnus-art.el	Thu Sep 10 04:01:51 1998
***************
*** 546,552 ****
  			       (face :value default)))))
  
  (defcustom gnus-article-decode-hook
!   '(gnus-article-decode-charset gnus-article-decode-rfc1522)
    "*Hook run to decode charsets in articles.")
  
  ;;; Internal variables
--- 546,552 ----
  			       (face :value default)))))
  
  (defcustom gnus-article-decode-hook
!   '(article-decode-charset article-decode-rfc1522)
    "*Hook run to decode charsets in articles.")
  
  ;;; Internal variables
***************
*** 949,955 ****
  		  (process-send-region "article-x-face" beg end)
  		  (process-send-eof "article-x-face"))))))))))
  
! (defun gnus-article-decode-mime-words ()
    "Decode all MIME-encoded words in the article."
    (interactive)
    (save-excursion
--- 949,955 ----
  		  (process-send-region "article-x-face" beg end)
  		  (process-send-eof "article-x-face"))))))))))
  
! (defun article-decode-mime-words ()
    "Decode all MIME-encoded words in the article."
    (interactive)
    (save-excursion
***************
*** 958,969 ****
  	  buffer-read-only)
        (rfc2047-decode-region (point-min) (point-max)))))
  
! (defun gnus-article-decode-charset (&optional prompt)
    "Decode charset-encoded text in the article.
  If PROMPT (the prefix), prompt for a coding system to use."
    (interactive "P")
    (save-excursion
-     (set-buffer gnus-article-buffer)
      (save-restriction
        (message-narrow-to-head)
        (let* ((inhibit-point-motion-hooks t)
--- 958,968 ----
  	  buffer-read-only)
        (rfc2047-decode-region (point-min) (point-max)))))
  
! (defun article-decode-charset (&optional prompt)
    "Decode charset-encoded text in the article.
  If PROMPT (the prefix), prompt for a coding system to use."
    (interactive "P")
    (save-excursion
      (save-restriction
        (message-narrow-to-head)
        (let* ((inhibit-point-motion-hooks t)
***************
*** 1005,1011 ****
    (save-excursion
      (let ((buffer-read-only nil)
  	  (type (gnus-fetch-field "content-transfer-encoding")))
!       (gnus-article-decode-rfc1522)
        (when (or force
  		(and type (string-match "quoted-printable" (downcase type))))
  	(goto-char (point-min))
--- 1004,1010 ----
    (save-excursion
      (let ((buffer-read-only nil)
  	  (type (gnus-fetch-field "content-transfer-encoding")))
!       ;;(gnus-article-decode-rfc1522)
        (when (or force
  		(and type (string-match "quoted-printable" (downcase type))))
  	(goto-char (point-min))
***************
*** 1844,1849 ****
--- 1843,1849 ----
       article-date-iso8601
       article-date-original
       article-date-ut
+      article-decode-mime-words
       article-date-user
       article-date-lapsed
       article-emphasize
*** pub/pgnus/lisp/gnus-int.el	Tue Sep  8 21:41:35 1998
--- pgnus/lisp/gnus-int.el	Thu Sep 10 04:01:51 1998
***************
*** 423,429 ****
  	     article (gnus-group-real-name group)
  	     (nth 1 gnus-command-method) accept-function last)))
  
! (defun gnus-request-accept-article (group &optional gnus-command-method last)
    ;; Make sure there's a newline at the end of the article.
    (when (stringp gnus-command-method)
      (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
--- 423,430 ----
  	     article (gnus-group-real-name group)
  	     (nth 1 gnus-command-method) accept-function last)))
  
! (defun gnus-request-accept-article (group &optional gnus-command-method last
! 					  no-encode)
    ;; Make sure there's a newline at the end of the article.
    (when (stringp gnus-command-method)
      (setq gnus-command-method (gnus-server-to-method gnus-command-method)))
***************
*** 433,442 ****
    (goto-char (point-max))
    (unless (bolp)
      (insert "\n"))
!   (save-restriction
!     (message-narrow-to-headers)
!     (rfc2047-encode-message-header))
!   (message-encode-message-body)
    (let ((func (car (or gnus-command-method
  		       (gnus-find-method-for-group group)))))
      (funcall (intern (format "%s-request-accept-article" func))
--- 434,444 ----
    (goto-char (point-max))
    (unless (bolp)
      (insert "\n"))
!   (unless no-encode
!     (save-restriction
!       (message-narrow-to-headers)
!       (rfc2047-encode-message-header))
!     (message-encode-message-body))
    (let ((func (car (or gnus-command-method
  		       (gnus-find-method-for-group group)))))
      (funcall (intern (format "%s-request-accept-article" func))
*** pub/pgnus/lisp/gnus-msg.el	Wed Sep  9 12:23:56 1998
--- pgnus/lisp/gnus-msg.el	Thu Sep 10 04:01:51 1998
***************
*** 546,551 ****
--- 546,552 ----
    (interactive)
    (concat
     "Gnus/" (prin1-to-string (gnus-continuum-version gnus-version) t)
+    " (" gnus-version ")"
     " "
     (cond
      ((string-match "^\\([0-9]+\\.[0-9]+\\)\\.[.0-9]+$" emacs-version)
***************
*** 560,567 ****
  	     (if (boundp 'xemacs-codename)
  		 (concat " (" xemacs-codename ")")
  	       "")))
!     (t emacs-version))
!    " (" gnus-version ")"))
  
  
  ;;;
--- 561,567 ----
  	     (if (boundp 'xemacs-codename)
  		 (concat " (" xemacs-codename ")")
  	       "")))
!     (t emacs-version))))
  
  
  ;;;
***************
*** 944,950 ****
  		       (concat "^" (regexp-quote mail-header-separator) "$")
  		       nil t)
  		  (replace-match "" t t ))
! 		(unless (gnus-request-accept-article group method t)
  		  (gnus-message 1 "Couldn't store article in group %s: %s"
  				group (gnus-status-message method))
  		  (sit-for 2))
--- 944,950 ----
  		       (concat "^" (regexp-quote mail-header-separator) "$")
  		       nil t)
  		  (replace-match "" t t ))
! 		(unless (gnus-request-accept-article group method t t)
  		  (gnus-message 1 "Couldn't store article in group %s: %s"
  				group (gnus-status-message method))
  		  (sit-for 2))
*** pub/pgnus/lisp/gnus-sum.el	Wed Sep  9 12:23:57 1998
--- pgnus/lisp/gnus-sum.el	Thu Sep 10 04:01:52 1998
***************
*** 6771,6776 ****
--- 6771,6777 ----
      (let ((gnus-have-all-headers t)
  	  gnus-article-display-hook
  	  gnus-article-prepare-hook
+ 	  gnus-article-decode-hook
  	  gnus-break-pages
  	  gnus-show-mime
  	  gnus-visual)
*** pub/pgnus/lisp/gnus.el	Wed Sep  9 12:23:57 1998
--- pgnus/lisp/gnus.el	Thu Sep 10 04:01:52 1998
***************
*** 250,256 ****
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.23"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
--- 250,256 ----
    :link '(custom-manual "(gnus)Exiting Gnus")
    :group 'gnus)
  
! (defconst gnus-version-number "0.24"
    "Version number for this version of Gnus.")
  
  (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)
***************
*** 1612,1618 ****
        gnus-article-hide-citation-in-followups)
       ("gnus-kill" gnus-kill gnus-apply-kill-file-internal
        gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author
!       gnus-execute gnus-expunge)
       ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers
        gnus-cache-possibly-remove-articles gnus-cache-request-article
        gnus-cache-retrieve-headers gnus-cache-possibly-alter-active
--- 1612,1618 ----
        gnus-article-hide-citation-in-followups)
       ("gnus-kill" gnus-kill gnus-apply-kill-file-internal
        gnus-kill-file-edit-file gnus-kill-file-raise-followups-to-author
!       gnus-execute gnus-expunge gnus-batch-kill gnus-batch-score)
       ("gnus-cache" gnus-cache-possibly-enter-article gnus-cache-save-buffers
        gnus-cache-possibly-remove-articles gnus-cache-request-article
        gnus-cache-retrieve-headers gnus-cache-possibly-alter-active
*** pub/pgnus/lisp/message.el	Wed Sep  9 12:23:58 1998
--- pgnus/lisp/message.el	Thu Sep 10 04:01:53 1998
***************
*** 1,3 ****
--- 1,4 ----
+ 
  ;;; message.el --- composing mail and news messages
  ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
  
***************
*** 2621,2629 ****
  	 (zone (nth 8 (decode-time now)))
  	 (sign "+"))
      ;; We do all of this because XEmacs doesn't have the %z spec.
-     (when (> (/ zone 3600) 12)
-       (setq sign "-"
- 	    zone (- zone (* 3600 12))))
      (concat (format-time-string "%d %b %Y %H:%M:%S " (or now (current-time)))
  	    (format "%s%02d%02d"
  		    sign (/ zone 3600)
--- 2622,2627 ----
***************
*** 4053,4059 ****
  	  (goto-char (point-max))
  	  (setq charset (or charset (mm-mule-charset-to-mime-charset 'ascii)))
  	  ;; We don't insert MIME headers if they only say the default.
! 	  (unless (and (eq charset 'ascii)
  		       (eq encoding '7bit))
  	    (mm-insert-rfc822-headers charset encoding))
  	  (mm-encode-body))))))
--- 4051,4057 ----
  	  (goto-char (point-max))
  	  (setq charset (or charset (mm-mule-charset-to-mime-charset 'ascii)))
  	  ;; We don't insert MIME headers if they only say the default.
! 	  (unless (and (eq charset 'us-ascii)
  		       (eq encoding '7bit))
  	    (mm-insert-rfc822-headers charset encoding))
  	  (mm-encode-body))))))
*** pub/pgnus/lisp/parse-time.el	Tue Sep  8 04:28:45 1998
--- pgnus/lisp/parse-time.el	Thu Sep 10 04:01:53 1998
***************
*** 157,162 ****
--- 157,167 ----
      ((2 1 0)
       ,#'(lambda () (and (stringp elt) (= (length elt) 5) (= (aref elt 2) ?:)))
       [0 2] [3 5] ,#'(lambda () 0))
+     ((2 1 0)
+      ,#'(lambda () (and (stringp elt)
+ 			(= (length elt) 4)
+ 			(= (aref elt 1) ?:)))
+      [0 1] [2 4] ,#'(lambda () 0))
      ((5) (70 99) ,#'(lambda () (+ 1900 elt))))
    "(slots predicate extractor...)")
  
*** pub/pgnus/lisp/ChangeLog	Wed Sep  9 12:23:56 1998
--- pgnus/lisp/ChangeLog	Thu Sep 10 04:01:50 1998
***************
*** 1,3 ****
--- 1,36 ----
+ Thu Sep 10 04:03:29 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+ 
+ 	* gnus.el: Pterodactyl Gnus v0.24 is released.
+ 
+ 1998-09-10 01:58:24  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-sum.el (gnus-summary-show-article): Don't decode chars if
+ 	PREFIX. 
+ 
+ 	* parse-time.el (parse-time-rules): Accept times that look like
+ 	"h:mm". 
+ 
+ 	* message.el (message-make-date): Use zone properly.
+ 
+ 	* gnus.el: Autoload gnus-batch.
+ 
+ 	* gnus-art.el (article-de-quoted-unreadable): Do not do
+ 	gnus-article-decode-rfc1522. 
+ 
+ 	* gnus-msg.el (gnus-inews-do-gcc): Use it.
+ 
+ 	* gnus-int.el (gnus-request-accept-article): Accept a no-encode
+ 	param. 
+ 
+ 	* message.el (message-encode-message-body): Check for us-ascii.
+ 
+ 	* gnus-msg.el (gnus-extended-version): Move Gnus version comments
+ 	to the left.
+ 
+ 1998-09-09 13:18:13  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus-art.el (article-decode-charset): Rename.
+ 
  Wed Sep  9 12:25:48 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
  
  	* gnus.el: Pterodactyl Gnus v0.23 is released.
*** pub/pgnus/texi/gnus.texi	Wed Sep  9 12:23:59 1998
--- pgnus/texi/gnus.texi	Thu Sep 10 04:01:54 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.23 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename gnus
! @settitle Pterodactyl Gnus 0.24 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 318,324 ****
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.23 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 318,324 ----
  @tex
  
  @titlepage
! @title Pterodactyl Gnus 0.24 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 354,360 ****
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.23.
  
  @end ifinfo
  
--- 354,360 ----
  spool or your mbox file.  All at the same time, if you want to push your
  luck.
  
! This manual corresponds to Pterodactyl Gnus 0.24.
  
  @end ifinfo
  
***************
*** 14273,14278 ****
--- 14273,14281 ----
  If @code{gnus-use-full-window} non-@code{nil}, Gnus will delete all
  other windows and occupy the entire Emacs screen by itself.  It is
  @code{t} by default.
+ 
+ Setting this variable to @code{nil} kinda works, but there are
+ glitches.  Use at your own peril.
  
  @vindex gnus-buffer-configuration
  @code{gnus-buffer-configuration} describes how much space each Gnus
*** pub/pgnus/texi/message.texi	Wed Sep  9 12:24:00 1998
--- pgnus/texi/message.texi	Thu Sep 10 04:01:54 1998
***************
*** 1,7 ****
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.23 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
--- 1,7 ----
  \input texinfo                  @c -*-texinfo-*-
  
  @setfilename message
! @settitle Pterodactyl Message 0.24 Manual
  @synindex fn cp
  @synindex vr cp
  @synindex pg cp
***************
*** 42,48 ****
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.23 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
--- 42,48 ----
  @tex
  
  @titlepage
! @title Pterodactyl Message 0.24 Manual
  
  @author by Lars Magne Ingebrigtsen
  @page
***************
*** 83,89 ****
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.23.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
--- 83,89 ----
  * Key Index::         List of Message mode keys.
  @end menu
  
! This manual corresponds to Pterodactyl Message 0.24.  Message is
  distributed with the Gnus distribution bearing the same version number
  as this manual.
  
*** pub/pgnus/texi/ChangeLog	Tue Sep  8 04:28:48 1998
--- pgnus/texi/ChangeLog	Thu Sep 10 04:01:54 1998
***************
*** 1,3 ****
--- 1,7 ----
+ 1998-09-10 03:19:14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+ 
+ 	* gnus.texi (Windows Configuration): Addition.
+ 
  1998-09-06  Mike McEwan  <mike@lotusland.demon.co.uk>
  
  	* gnus.texi (Category Syntax): Added doc about agent categories