*** empty log message ***

diff --git a/Makefile.in b/Makefile.in
index 82fd420..b28cda9 100644 (file)
--- a/Makefile.in
+++ b/Makefile.in
@@ -10,26 +10,26 @@ XEMACS = xemacs21
 all: lick info
 
 lick:
-       cd lisp && $(MAKE) EMACS=$(EMACS) lispdir=$(lispdir) all
+       cd lisp && $(MAKE) EMACS="$(EMACS)" lispdir="$(lispdir)" all
 
 install:
-       cd lisp && $(MAKE) EMACS=$(EMACS) lispdir=$(lispdir) install
-       cd texi && $(MAKE) EMACS=$(EMACS) install
+       cd lisp && $(MAKE) EMACS="$(EMACS)" lispdir="$(lispdir)" install
+       cd texi && $(MAKE) EMACS="$(EMACS)" install
 
 # Rule for Lars and nobody else.
 some:
-       cd lisp && $(MAKE) EMACS=$(EMACS) some
+       cd lisp && $(MAKE) EMACS="$(EMACS)" some
 l:
-       cd lisp && $(MAKE) EMACS=$(EMACS) clever
+       cd lisp && $(MAKE) EMACS="$(EMACS)" clever
 
 info:
-       cd texi && $(MAKE) EMACS=$(EMACS) all
+       cd texi && $(MAKE) EMACS="$(EMACS)" all
 
 clean:
        rm -f */*.orig */*.rej *.orig *.rej
 
 xsome:
-       cd lisp && $(MAKE) EMACS=$(XEMACS) some
+       cd lisp && $(MAKE) EMACS="$(XEMACS)" some
 
 elclean:
        rm lisp/*.elc

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 074bda9..689cade 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,32 @@
+Tue Sep  1 10:29:33 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
+
+       * gnus.el: Pterodactyl Gnus v0.13 is released.
+
+1998-09-01 09:14:33  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-util.el (gnus-strip-whitespace): Already defined.
+       Removed. 
+
+       * gnus-art.el (gnus-article-decode-charset): Strip whitespace.
+
+       * gnus-util.el (gnus-strip-whitespace): New function.
+
+       * mm-util.el (mm-content-type-charset): Downcase.
+
+1998-08-31 23:04:29  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-art.el (gnus-article-decode-charset): Accept a prefix.
+       (gnus-article-decode-charset): Don't fetch all headers.
+
+       * mm-util.el (mm-read-coding-system): New function.
+
+       * mm-bodies.el (mm-decode-body): Check the right charset.
+
+       * gnus-sum.el (gnus-summary-mode-line-format): Ditto.
+
+       * gnus-art.el (gnus-article-mode-line-format): Use short group
+       format. 
+
 Mon Aug 31 23:03:13 1998  Lars Magne Ingebrigtsen  <larsi@menja.ifi.uio.no>
 
        * gnus.el: Pterodactyl Gnus v0.12 is released.

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index e5dabec..48ab6bf 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -399,7 +399,7 @@ beginning of a line."
   :type 'regexp
   :group 'gnus-article-various)
 
-(defcustom gnus-article-mode-line-format "Gnus: %%b %S"
+(defcustom gnus-article-mode-line-format "Gnus: %g %S"
   "*The format specification for the article mode line.
 See `gnus-summary-mode-line-format' for a closer description."
   :type 'string
@@ -955,21 +955,30 @@ characters to translate to."
          buffer-read-only)
       (rfc2047-decode-region (point-min) (point-max)))))
 
-(defun gnus-article-decode-charset ()
-  "Decode charset-encoded text in the article."
-  (interactive)
+(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)
     (let* ((inhibit-point-motion-hooks t)
-          (ct (message-fetch-field "Content-Type"))
-          (cte (message-fetch-field "Content-Transfer-Encoding"))
-          (charset (and ct (mm-content-type-charset ct)))
+          (ct (message-fetch-field "Content-Type" t))
+          (cte (message-fetch-field "Content-Transfer-Encoding" t))
+          (charset (cond
+                    (prompt
+                     (mm-read-coding-system "Charset to decode: "))
+                    (ct
+                     (mm-content-type-charset ct))
+                    (gnus-newsgroup-name
+                     (gnus-group-find-parameter
+                      gnus-newsgroup-name 'charset))))
           buffer-read-only)
       (save-restriction
        (goto-char (point-min))
        (search-forward "\n\n" nil 'move)
        (narrow-to-region (point) (point-max))
-       (mm-decode-body charset (and cte (intern (downcase cte))))))))
+       (mm-decode-body
+        charset (and cte (intern (downcase (gnus-strip-whitespace cte)))))))))
 
 (defalias 'gnus-decode-rfc1522 'article-decode-rfc1522)
 (defalias 'gnus-article-decode-rfc1522 'article-decode-rfc1522)

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 5a79dce..a28a99b 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -504,7 +504,7 @@ with some simple extensions.
   :group 'gnus-threading
   :type 'string)
 
-(defcustom gnus-summary-mode-line-format "Gnus: %%b [%A] %Z"
+(defcustom gnus-summary-mode-line-format "Gnus: %g [%A] %Z"
   "*The format specification for the summary mode line.
 It works along the same lines as a normal formatting string,
 with some simple extensions:

diff --git a/lisp/gnus.el b/lisp/gnus.el
index c73449f..ecc0eb4 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.12"
+(defconst gnus-version-number "0.13"
   "Version number for this version of Gnus.")
 
 (defconst gnus-version (format "Pterodactyl Gnus v%s" gnus-version-number)

diff --git a/lisp/mm-bodies.el b/lisp/mm-bodies.el
index cee72be..5b33ac9 100644 (file)
--- a/lisp/mm-bodies.el
+++ b/lisp/mm-bodies.el
@@ -94,7 +94,7 @@ The characters in CHARSET should then be decoded."
                   (setq mule-charset (mm-charset-to-coding-system charset))
                   (not (mm-coding-system-equal
                         buffer-file-coding-system mule-charset)))
-         (mm-decode-coding-region (point-min) (point-max) charset))))))
+         (mm-decode-coding-region (point-min) (point-max) mule-charset))))))
 
 (provide 'mm-bodies)
 

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index cda5148..48ad195 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -170,7 +170,13 @@ used as the line break code type of the coding system."
 (defun mm-content-type-charset (header)
   "Return the charset parameter from HEADER."
   (when (string-match "charset *= *\"? *\\([-0-9a-zA-Z_]+\\)\"? *$" header)
-    (intern (match-string 1 header))))
+    (intern (downcase (match-string 1 header)))))
+
+(defun mm-read-coding-system (prompt)
+  "Prompt the user for a coding system."
+  (completing-read
+   prompt (mapcar (lambda (s) (list (symbol-name (car s))))
+                 mm-mime-mule-charset-alist)))
 
 (provide 'mm-util)
 

diff --git a/texi/ChangeLog b/texi/ChangeLog
index 56fc5d3..14c5a15 100644 (file)
--- a/texi/ChangeLog
+++ b/texi/ChangeLog
@@ -1,6 +1,8 @@
 1998-08-31 11:46:57  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * gnus.texi (Mail Folders): Addition.
+       (Group Parameters): Addition.
+       (MIME Commands): New.
 
 1998-08-27 07:29:17  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 

diff --git a/texi/gnus.texi b/texi/gnus.texi
index fafd32f..7368230 100644 (file)
--- a/texi/gnus.texi
+++ b/texi/gnus.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename gnus
-@settitle Pterodactyl Gnus 0.12 Manual
+@settitle Pterodactyl Gnus 0.13 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.12 Manual
+@title Pterodactyl Gnus 0.13 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.12.
+This manual corresponds to Pterodactyl Gnus 0.13.
 
 @end ifinfo
 
@@ -2120,6 +2120,11 @@ are arbitrary comments on the group.  They are currently ignored by
 Gnus, but provide a place for you to store information on particular
 groups.
 
+@item charset
+Elements that look like @code{(charset . iso-8859-1)} will make
+@code{iso-8859-1} the default charset; that is, the charset that will be 
+used for all articles that do not specify a charset.
+
 @item @var{(variable form)}
 You can use the group parameters to set variables local to the group you
 are entering.  If you want to turn threading off in @samp{news.answers},
@@ -3193,6 +3198,7 @@ You can have as many summary buffers open as you wish.
 * Saving Articles::             Ways of customizing article saving.
 * Decoding Articles::           Gnus can treat series of (uu)encoded articles.
 * Article Treatment::           The article buffer can be mangled at will.
+* MIME Commands::               Doing MIMEy things with the articles.
 * Article Commands::            Doing various things with the article buffer.
 * Summary Sorting::             Sorting the summary buffer in various ways.
 * Finding the Parent::          No child support? Get the parent.
@@ -6759,6 +6765,31 @@ the regular expression @samp{^---*Forwarded article}, then it isn't a
 signature after all.
 
 
+@node MIME Commands
+@section MIME Commands
+@cindex MIME decoding
+
+@table @kbd
+@item W M w
+@kindex W M w (Summary)
+Decode RFC2047-encoded words in the article headers
+(@code{gnus-article-decode-mime-words}).
+
+@item W M c
+@kindex W M c (Summary)
+Decode encoded article bodies as well as charsets
+(@code{gnus-article-decode-charset}).
+
+This command looks in the @code{Content-Type} header to determine the
+charset.  If there is no such header in the article, you can give it a
+prefix, which will prompt for the charset to decode as.  In regional
+groups where people post using some common encoding (but do not include
+MIME headers), you can set the @code{charset} group/topic parameter to
+the required charset (@pxref{Group Parameters}).
+
+@end table
+
+
 @node Article Commands
 @section Article Commands
 
@@ -14358,7 +14389,8 @@ Do highlights in the group buffer.
 @item summary-highlight
 Do highlights in the summary buffer.
 @item article-highlight
-Do highlights in the article buffer.
+Do highlights according to @code{gnus-article-display-hook} in the
+article buffer.
 @item highlight
 Turn on highlighting in all buffers.
 @item group-menu

diff --git a/texi/message.texi b/texi/message.texi
index da90cab..2293858 100644 (file)
--- a/texi/message.texi
+++ b/texi/message.texi
@@ -1,7 +1,7 @@
 \input texinfo                  @c -*-texinfo-*-
 
 @setfilename message
-@settitle Pterodactyl Message 0.12 Manual
+@settitle Pterodactyl Message 0.13 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.12 Manual
+@title Pterodactyl Message 0.13 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.12.  Message is
+This manual corresponds to Pterodactyl Message 0.13.  Message is
 distributed with the Gnus distribution bearing the same version number
 as this manual has.