Importing pgnus-0.24.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 81e28ae..312755f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 373b095..38b315b 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -546,7 +546,7 @@ displayed by the first non-nil matching CONTENT face."
                               (face :value default)))))
 
 (defcustom gnus-article-decode-hook
-  '(gnus-article-decode-charset gnus-article-decode-rfc1522)
+  '(article-decode-charset article-decode-rfc1522)
   "*Hook run to decode charsets in articles.")
 
 ;;; Internal variables
@@ -949,7 +949,7 @@ characters to translate to."
                  (process-send-region "article-x-face" beg end)
                  (process-send-eof "article-x-face"))))))))))
 
-(defun gnus-article-decode-mime-words ()
+(defun article-decode-mime-words ()
   "Decode all MIME-encoded words in the article."
   (interactive)
   (save-excursion
@@ -958,12 +958,11 @@ characters to translate to."
          buffer-read-only)
       (rfc2047-decode-region (point-min) (point-max)))))
 
-(defun gnus-article-decode-charset (&optional prompt)
+(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
-    (set-buffer gnus-article-buffer)
     (save-restriction
       (message-narrow-to-head)
       (let* ((inhibit-point-motion-hooks t)
@@ -1005,7 +1004,7 @@ or not."
   (save-excursion
     (let ((buffer-read-only nil)
          (type (gnus-fetch-field "content-transfer-encoding")))
-      (gnus-article-decode-rfc1522)
+      ;;(gnus-article-decode-rfc1522)
       (when (or force
                (and type (string-match "quoted-printable" (downcase type))))
        (goto-char (point-min))
@@ -1844,6 +1843,7 @@ If variable `gnus-use-long-file-name' is non-nil, it is
      article-date-iso8601
      article-date-original
      article-date-ut
+     article-decode-mime-words
      article-date-user
      article-date-lapsed
      article-emphasize

diff --git a/lisp/gnus-int.el b/lisp/gnus-int.el
index 505c284..0c4ff6f 100644 (file)
--- a/lisp/gnus-int.el
+++ b/lisp/gnus-int.el
@@ -423,7 +423,8 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
             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)
+(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,10 +434,11 @@ If GROUP is nil, all groups on GNUS-COMMAND-METHOD are scanned."
   (goto-char (point-max))
   (unless (bolp)
     (insert "\n"))
-  (save-restriction
-    (message-narrow-to-headers)
-    (rfc2047-encode-message-header))
-  (message-encode-message-body)
+  (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))

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 8e91b2d..85fd99b 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -546,6 +546,7 @@ If SILENT, don't prompt the user."
   (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,8 +561,7 @@ If SILENT, don't prompt the user."
             (if (boundp 'xemacs-codename)
                 (concat " (" xemacs-codename ")")
               "")))
-    (t emacs-version))
-   " (" gnus-version ")"))
+    (t emacs-version))))
 
 \f
 ;;;
@@ -944,7 +944,7 @@ this is a reply."
                       (concat "^" (regexp-quote mail-header-separator) "$")
                       nil t)
                  (replace-match "" t t ))
-               (unless (gnus-request-accept-article group method 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))

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index bae4300..929dddb 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -6771,6 +6771,7 @@ article massaging functions being run."
     (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)

diff --git a/lisp/gnus.el b/lisp/gnus.el
index 5d9af27..3e19cb7 100644 (file)
--- a/lisp/gnus.el
+++ b/lisp/gnus.el
@@ -250,7 +250,7 @@ is restarted, and sometimes reloaded."
   :link '(custom-manual "(gnus)Exiting Gnus")
   :group 'gnus)
 
-(defconst gnus-version-number "0.23"
+(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,7 +1612,7 @@ gnus-newsrc-hashtb should be kept so that both hold the same information.")
       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-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

diff --git a/lisp/message.el b/lisp/message.el
index 397210b..8812edb 100644 (file)
--- a/lisp/message.el
+++ b/lisp/message.el
@@ -1,3 +1,4 @@
+
 ;;; message.el --- composing mail and news messages
 ;; Copyright (C) 1996,97,98 Free Software Foundation, Inc.
 
@@ -2621,9 +2622,6 @@ If NOW, use that time instead."
         (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)
@@ -4053,7 +4051,7 @@ regexp varstr."
          (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)
+         (unless (and (eq charset 'us-ascii)
                       (eq encoding '7bit))
            (mm-insert-rfc822-headers charset encoding))
          (mm-encode-body))))))

diff --git a/lisp/parse-time.el b/lisp/parse-time.el
index 2871623..d9514f6 100644 (file)
--- a/lisp/parse-time.el
+++ b/lisp/parse-time.el
@@ -157,6 +157,11 @@
     ((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...)")
 

diff --git a/texi/ChangeLog b/texi/ChangeLog
index f87f6eb..e627fea 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -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

diff --git a/texi/gnus.texi b/texi/gnus.texi
index d68f064..0459425 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Pterodactyl Gnus 0.23 Manual
+@settitle Pterodactyl Gnus 0.24 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -318,7 +318,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Pterodactyl Gnus 0.23 Manual
+@title Pterodactyl Gnus 0.24 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -354,7 +354,7 @@ can be gotten by any nefarious means you can think of---@sc{nntp}, local
 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.
+This manual corresponds to Pterodactyl Gnus 0.24.
 
 @end ifinfo
 
@@ -14274,6 +14274,9 @@ 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
 buffer should be given.  Here's an excerpt of this variable:

diff --git a/texi/message.texi b/texi/message.texi
index 3d26101..3c1f10e 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Pterodactyl Message 0.23 Manual
+@settitle Pterodactyl Message 0.24 Manual
 @synindex fn cp
 @synindex vr cp
 @synindex pg cp
@@ -42,7 +42,7 @@ into another language, under the above conditions for modified versions.
 @tex
 
 @titlepage
-@title Pterodactyl Message 0.23 Manual
+@title Pterodactyl Message 0.24 Manual
 
 @author by Lars Magne Ingebrigtsen
 @page
@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
-This manual corresponds to Pterodactyl Message 0.23.  Message is
+This manual corresponds to Pterodactyl Message 0.24.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual.