From b0b5f3637c6bf92baabe2b75430547f85f246ad2 Mon Sep 17 00:00:00 2001 From: yamaoka Date: Mon, 22 Mar 2004 05:32:48 +0000 Subject: [PATCH] Synch to No Gnus 200403220532. --- lisp/ChangeLog | 8 ++++++++ lisp/mm-decode.el | 7 ++++--- lisp/mm-util.el | 11 +++++++++-- 3 files changed, 21 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3d4aefd..e0d6df2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2004-03-22 Katsumi Yamaoka + + * mm-decode.el (mm-save-part): Bind enable-multibyte-characters to + t while entering a file name using the mm-with-multibyte macro. + Suggested by Hiroshi Fujishima . + + * mm-util.el (mm-with-multibyte): New macro. + 2004-03-19 Katsumi Yamaoka * gnus-art.el (gnus-mime-recompute-hierarchical-structure): New diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el index 45e8199..67b040e 100644 --- a/lisp/mm-decode.el +++ b/lisp/mm-decode.el @@ -1093,9 +1093,10 @@ string if you do not like underscores." (setq filename (gnus-map-function mm-file-name-rewrite-functions (file-name-nondirectory filename)))) (setq file - (read-file-name "Save MIME part to: " - (or mm-default-directory default-directory) - nil nil (or filename name ""))) + (mm-with-multibyte + (read-file-name "Save MIME part to: " + (or mm-default-directory default-directory) + nil nil (or filename name "")))) (setq mm-default-directory (file-name-directory file)) (and (or (not (file-exists-p file)) (yes-or-no-p (format "File %s already exists; overwrite? " diff --git a/lisp/mm-util.el b/lisp/mm-util.el index b068ff4..b914e1a 100644 --- a/lisp/mm-util.el +++ b/lisp/mm-util.el @@ -1,5 +1,5 @@ ;;; mm-util.el --- Utility functions for Mule and low level things -;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003 +;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004 ;; Free Software Foundation, Inc. ;; Author: Lars Magne Ingebrigtsen @@ -629,12 +629,19 @@ Equivalent to `progn' in XEmacs" (put 'mm-with-unibyte-current-buffer 'edebug-form-spec '(body)) (defmacro mm-with-unibyte (&rest forms) - "Eval the FORMS with the default value of `enable-multibyte-characters' nil, ." + "Eval the FORMS with the default value of `enable-multibyte-characters' nil." `(let (default-enable-multibyte-characters) ,@forms)) (put 'mm-with-unibyte 'lisp-indent-function 0) (put 'mm-with-unibyte 'edebug-form-spec '(body)) +(defmacro mm-with-multibyte (&rest forms) + "Eval the FORMS with the default value of `enable-multibyte-characters' t." + `(let ((default-enable-multibyte-characters t)) + ,@forms)) +(put 'mm-with-multibyte 'lisp-indent-function 0) +(put 'mm-with-multibyte 'edebug-form-spec '(body)) + (defun mm-find-charset-region (b e) "Return a list of Emacs charsets in the region B to E." (cond -- 1.7.10.4