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.
 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
                               (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
   "*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"))))))))))
 
                  (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
   "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)))))
 
          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
   "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)
     (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")))
   (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))
       (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-date-iso8601
      article-date-original
      article-date-ut

+     article-decode-mime-words

      article-date-user
      article-date-lapsed
      article-emphasize
      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)))
 
             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)))
   ;; 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"))
   (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))
   (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)
   (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)
    " "
    (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 ")")
               "")))
             (if (boundp 'xemacs-codename)
                 (concat " (" xemacs-codename ")")
               "")))

-    (t emacs-version))
-   " (" gnus-version ")"))
+    (t emacs-version))))

 
 \f
 ;;;
 
 \f
 ;;;

@@ -944,7 +944,7 @@ this is a reply."
                       (concat "^" (regexp-quote mail-header-separator) "$")
                       nil t)
                  (replace-match "" t t ))
                       (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))
                  (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
     (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)
          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)
 
   :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)
   "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-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
      ("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.
 
 ;;; 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.
         (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)
     (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.
          (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))))))
                       (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) 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...)")
 
     ((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
 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
 \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
 @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
 @tex
 
 @titlepage

-@title Pterodactyl Gnus 0.23 Manual
+@title Pterodactyl Gnus 0.24 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @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.
 
 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
 
 
 @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.
 
 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:
 @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
 \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
 @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
 @tex
 
 @titlepage

-@title Pterodactyl Message 0.23 Manual
+@title Pterodactyl Message 0.24 Manual

 
 @author by Lars Magne Ingebrigtsen
 @page
 
 @author by Lars Magne Ingebrigtsen
 @page

@@ -83,7 +83,7 @@ Message mode buffers.
 * Key Index::         List of Message mode keys.
 @end menu
 
 * 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.
 
 distributed with the Gnus distribution bearing the same version number
 as this manual.