Synch to No Gnus 200508300606.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90ddb92..805880b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+2005-08-30  Katsumi Yamaoka  <yamaoka@jpl.org>
+
+       * gnus-art.el (gnus-mime-save-part-and-strip): Clarify prompt.
+       Suggested by Dan Christensen <jdc@uwo.ca>.
+
+       * mm-decode.el (mm-save-part): Enable change of prompt.
+
+2005-08-29  Jari Aalto  <jari.aalto@cante.net>
+
+       * gnus-msg.el (gnus-inews-add-send-actions): Made
+       `message-post-method' lambda parameter ARG `&optional'.
+
 2005-08-29  Reiner Steib  <Reiner.Steib@gmx.de>
 
        * gnus-sum.el (gnus-summary-mime-map): Added

diff --git a/lisp/gnus-art.el b/lisp/gnus-art.el
index 74d7db6..672c253 100644 (file)
--- a/lisp/gnus-art.el
+++ b/lisp/gnus-art.el
@@ -4535,7 +4535,7 @@ The current article has a complicated MIME structure, giving up..."))
         (id (get-text-property (point) 'gnus-part))
         file param
         (handles gnus-article-mime-handles))
-    (setq file (and data (mm-save-part data)))
+    (setq file (and data (mm-save-part data "Delete MIME part and save to: ")))
     (when file
       (with-current-buffer (mm-handle-buffer data)
        (erase-buffer)

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index 80d2d6c..6ee67c3 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -545,7 +545,7 @@ Gcc: header for archiving purposes."
     (gnus-make-local-hook 'message-header-hook)
     (add-hook 'message-header-hook 'gnus-agent-possibly-save-gcc nil t))
   (setq message-post-method
-       `(lambda (arg)
+       `(lambda (&optional arg)
           (gnus-post-method arg ,gnus-newsgroup-name)))
   (setq message-user-agent (gnus-message-make-user-agent))
   (unless message-use-multi-frames

diff --git a/lisp/mm-decode.el b/lisp/mm-decode.el
index 5eee6f5..bc52e59 100644 (file)
--- a/lisp/mm-decode.el
+++ b/lisp/mm-decode.el
@@ -1092,8 +1092,9 @@ string if you do not like underscores."
   (setq filename (gnus-replace-in-string filename "[<>|]" ""))
   (gnus-replace-in-string filename "^[.-]+" ""))
 
-(defun mm-save-part (handle)
-  "Write HANDLE to a file."
+(defun mm-save-part (handle &optional prompt)
+  "Write HANDLE to a file.
+PROMPT overrides the default one used to ask user for a file name."
   (let* ((name (mail-content-type-get (mm-handle-type handle) 'name))
         (filename (mail-content-type-get
                    (mm-handle-disposition handle) 'filename))
@@ -1103,7 +1104,7 @@ string if you do not like underscores."
                                        (file-name-nondirectory filename))))
     (setq file
          (mm-with-multibyte
-           (read-file-name "Save MIME part to: "
+           (read-file-name (or prompt "Save MIME part to: ")
                            (or mm-default-directory default-directory)
                            nil nil (or filename name ""))))
     (setq mm-default-directory (file-name-directory file))