2001-07-23 19:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-articles-to-read): Use gnus-group-decoded-name.

	* mm-util.el (mm-string-as-multibyte): New.

	* nnmh.el (nnmh-request-list-1): Encode, not decode!

2001-07-23 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>

	* mm-util.el (mm-universal-coding-system): New.

	* gnus-start.el (gnus-startup-file-coding-system): Use it.

	* score-mode.el (score-mode-coding-system): Use it.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c5b4a0f..7ceaa97 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2001-07-23 19:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-articles-to-read): Use gnus-group-decoded-name.
+
+       * mm-util.el (mm-string-as-multibyte): New.
+
+       * nnmh.el (nnmh-request-list-1): Encode, not decode!
+
+2001-07-23 18:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * mm-util.el (mm-universal-coding-system): New.
+
+       * gnus-start.el (gnus-startup-file-coding-system): Use it.
+
+       * score-mode.el (score-mode-coding-system): Use it.
+
 2001-07-23  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-start.el (gnus-setup-news): Call

diff --git a/lisp/gnus-start.el b/lisp/gnus-start.el
index 2a93dd4..bb550c9 100644 (file)
--- a/lisp/gnus-start.el
+++ b/lisp/gnus-start.el
@@ -401,7 +401,7 @@ Can be used to turn version control on or off."
   :group 'gnus-newsrc
   :type 'boolean)
 
-(defvar gnus-startup-file-coding-system 'binary
+(defvar gnus-startup-file-coding-system mm-universal-coding-system
   "*Coding system for startup file.")
 
 ;;; Internal variables

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 91a98b9..510fee2 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -4578,7 +4578,9 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                         (read-string
                          (format
                           "How many articles from %s (default %d): "
-                          (gnus-limit-string gnus-newsgroup-name 35)
+                          (gnus-limit-string 
+                            (gnus-group-decoded-name gnus-newsgroup-name)
+                            35)        
                           number))))
                    (if (string-match "^[ \t]*$" input) number input)))
                 ((and (> scored marked) (< scored number)
@@ -4587,7 +4589,8 @@ If SELECT-ARTICLES, only select those articles from GROUP."
                         (read-string
                          (format "%s %s (%d scored, %d total): "
                                  "How many articles from"
-                                 group scored number))))
+                                 (gnus-group-decoded-name group)
+                                  scored number))))
                    (if (string-match "^[ \t]*$" input)
                        number input)))
                 (t number))

diff --git a/lisp/mm-util.el b/lisp/mm-util.el
index 0ce0229..c526d12 100644 (file)
--- a/lisp/mm-util.el
+++ b/lisp/mm-util.el
@@ -122,6 +122,7 @@
              (setq idx (1+ idx)))
            string)))
      (string-as-unibyte . identity)
+     (string-as-multibyte . identity)
      (multibyte-string-p . ignore))))
 
 (eval-and-compile
@@ -196,6 +197,9 @@
    (t mm-binary-coding-system))
   "Coding system of auto save file.")
 
+(defvar mm-universal-coding-system mm-auto-save-coding-system
+  "The universal Coding system.")
+
 ;;; Internal variables:
 
 ;;; Functions:

diff --git a/lisp/nnmh.el b/lisp/nnmh.el
index 9fe89c0..cafd590 100644 (file)
--- a/lisp/nnmh.el
+++ b/lisp/nnmh.el
@@ -239,10 +239,12 @@ as unread by Gnus.")
                (file-truename (file-name-as-directory
                                (expand-file-name nnmh-toplev))))
               dir)
-             (nnheader-replace-chars-in-string
-              (mm-decode-coding-string (substring dir (match-end 0))
-                                       nnmail-pathname-coding-system)
-              ?/ ?.))
+              (mm-string-as-multibyte
+              (mm-encode-coding-string 
+                (nnheader-replace-chars-in-string
+                 (substring dir (match-end 0))
+                 ?/ ?.)
+                nnmail-pathname-coding-system)))
            (apply 'max files)
            (apply 'min files)))))))
   t)

diff --git a/lisp/score-mode.el b/lisp/score-mode.el
index cfc5cc3..a76c95a 100644 (file)
--- a/lisp/score-mode.el
+++ b/lisp/score-mode.el
@@ -26,7 +26,7 @@
 ;;; Code:
 
 (eval-when-compile (require 'cl))
-(require 'mm-util)                     ; for mm-auto-save-coding-system
+(require 'mm-util)                     ; for mm-universal-coding-system
 
 (defvar gnus-score-mode-hook nil
   "*Hook run in score mode buffers.")
@@ -52,7 +52,7 @@
   "Syntax table used in score-mode buffers.")
 
 ;; We need this to cope with non-ASCII scoring.
-(defvar score-mode-coding-system mm-auto-save-coding-system)
+(defvar score-mode-coding-system mm-universal-coding-system)
 
 ;;;###autoload
 (defun gnus-score-mode ()