From: yamaoka <yamaoka>
Date: Tue, 30 Aug 2005 06:10:07 +0000 (+0000)
Subject: Synch to No Gnus 200508300606.
X-Git-Tag: t-gnus-6_17_4-quimby-~410
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=755c6361572063224df231abd56249bce635672e;p=elisp%2Fgnus.git-

Synch to No Gnus 200508300606.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 90ddb92..805880b 100644
--- 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
--- 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
--- 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
--- 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))