2001-08-07 16:00:00 ShengHuo ZHU <zsh@cs.rochester.edu>

	* gnus-sum.el (gnus-summary-make-menu-bar): Misc -> Gnus.

	* gnus-group.el (gnus-group-make-menu-bar): Ditto.

	* mm-uu.el (mm-uu-dissect): Autoload. From Gerd M\e,Av\e(Bllmann
	<gerd@gnu.org>.

	* gnus-art.el (gnus-output-to-file): Bind file-name-coding-system.

	* gnus-util.el (gnus-output-to-rmail): Ditto.
	(gnus-output-to-mail): Ditto.

	* nnmail.el (nnmail-pathname-coding-system): Set default to nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a7d5f23..80c7129 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,19 @@
+2001-08-07 16:00:00  ShengHuo ZHU  <zsh@cs.rochester.edu>
+
+       * gnus-sum.el (gnus-summary-make-menu-bar): Misc -> Gnus.
+       
+       * gnus-group.el (gnus-group-make-menu-bar): Ditto.
+
+       * mm-uu.el (mm-uu-dissect): Autoload. From Gerd M\e,Av\e(Bllmann
+       <gerd@gnu.org>.
+
+       * gnus-art.el (gnus-output-to-file): Bind file-name-coding-system.
+
+       * gnus-util.el (gnus-output-to-rmail): Ditto.
+       (gnus-output-to-mail): Ditto.
+
+       * nnmail.el (nnmail-pathname-coding-system): Set default to nil.
+
 2001-08-06  Florian Weimer   <fw@deneb.enyo.de>
 
        * message.el (message-indent-citation): Use

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 6822ef9..9d4d631 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4086,7 +4086,8 @@ Provided for backwards compatibility."
       ;; save it to file.
       (goto-char (point-max))
       (insert "\n")
-      (mm-append-to-file (point-min) (point-max) file-name)
+      (let ((file-name-coding-system nnmail-pathname-coding-system))
+       (mm-append-to-file (point-min) (point-max) file-name))
       t)))
 
 (defun gnus-narrow-to-page (&optional arg)

diff --git a/lisp/gnus-group.el b/lisp/gnus-group.el
index fd6c8bf..7f15f7d 100644 (file)
--- a/lisp/gnus-group.el
+++ b/lisp/gnus-group.el
@@ -849,7 +849,7 @@ simple manner.")
 
     (easy-menu-define
      gnus-group-misc-menu gnus-group-mode-map ""
-     `("Misc"
+     `("Gnus"
        ("SOUP"
        ["Pack replies" nnsoup-pack-replies (fboundp 'nnsoup-request-group)]
        ["Send replies" gnus-soup-send-replies

diff --git a/lisp/gnus-sum.el b/lisp/gnus-sum.el
index 2613302..7e13c64 100644 (file)
--- a/lisp/gnus-sum.el
+++ b/lisp/gnus-sum.el
@@ -2017,7 +2017,7 @@ increase the score of each group you read."
 
     (easy-menu-define
       gnus-summary-misc-menu gnus-summary-mode-map ""
-      `("Misc"
+      `("Gnus"
        ("Mark Read"
         ["Mark as read" gnus-summary-mark-as-read-forward t]
         ["Mark same subject and select"

diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el
index 66c8c7c..22be8a6 100644 (file)
--- a/lisp/gnus-util.el
+++ b/lisp/gnus-util.el
@@ -687,7 +687,8 @@ with potentially long computations."
       ;; Decide whether to append to a file or to an Emacs buffer.
       (let ((outbuf (get-file-buffer filename)))
        (if (not outbuf)
-           (mm-append-to-file (point-min) (point-max) filename)
+           (let ((file-name-coding-system nnmail-pathname-coding-system))
+             (mm-append-to-file (point-min) (point-max) filename))
          ;; File has been visited, in buffer OUTBUF.
          (set-buffer outbuf)
          (let ((buffer-read-only nil)
@@ -756,7 +757,8 @@ with potentially long computations."
                    (insert "\n"))
                  (insert "\n"))
                (goto-char (point-max))
-               (mm-append-to-file (point-min) (point-max) filename)))
+               (let ((file-name-coding-system nnmail-pathname-coding-system))
+                 (mm-append-to-file (point-min) (point-max) filename))))
          ;; File has been visited, in buffer OUTBUF.
          (set-buffer outbuf)
          (let ((buffer-read-only nil))

diff --git a/lisp/mm-uu.el b/lisp/mm-uu.el
index 477a678..da5507c 100644 (file)
--- a/lisp/mm-uu.el
+++ b/lisp/mm-uu.el
@@ -371,7 +371,7 @@ Return that buffer."
     (mm-make-handle buf
                    '("application/pgp-keys"))))
 
-;;;### autoload
+;;;###autoload
 (defun mm-uu-dissect ()
   "Dissect the current buffer and return a list of uu handles."
   (let ((case-fold-search t)

diff --git a/lisp/nnmail.el b/lisp/nnmail.el
index 1901e19..9b30b3b 100644 (file)
--- a/lisp/nnmail.el
+++ b/lisp/nnmail.el
@@ -479,7 +479,7 @@ parameter.  It should return nil, `warn' or `delete'."
   mm-text-coding-system
   "Coding system used in reading inbox")
 
-(defvar nnmail-pathname-coding-system 'iso-8859-1
+(defvar nnmail-pathname-coding-system nil
   "*Coding system for pathname.")
 
 (defun nnmail-find-file (file)