Changes committed gnus/lisp (ChangeLog mml.el)

Modified: ChangeLog mml.el

(mml-attach-buffer): Prompt for `disposition'.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.1858 gnus/lisp/ChangeLog:7.1859
--- ChangeLog:7.1858	Fri May 16 23:26:45 2008
+++ ChangeLog	Fri May 16 23:33:00 2008
@@ -1,5 +1,7 @@
 2008-05-16  Reiner Steib  <[email protected]>
 
+	* mml.el (mml-attach-buffer): Prompt for `disposition'.
+
 	* message.el (message-bogus-address-regexp): Fix and improve custom
 	type.
 	(message-setup-hook): Add message-check-recipients as custom option.
Index: mml.el
diff -u gnus/lisp/mml.el:7.66 gnus/lisp/mml.el:7.67
--- mml.el:7.66	Thu Apr 24 06:19:21 2008
+++ mml.el	Fri May 16 23:33:00 2008
@@ -1315,18 +1315,20 @@
 	  (setq disposition (mml-minibuffer-read-disposition type nil file)))
 	(mml-attach-file file type description disposition)))))
 
-(defun mml-attach-buffer (buffer &optional type description)
+(defun mml-attach-buffer (buffer &optional type description disposition)
   "Attach a buffer to the outgoing MIME message.
-See `mml-attach-file' for details of operation."
+BUFFER is the name of the buffer to attach.  See
+`mml-attach-file' for details of operation."
   (interactive
    (let* ((buffer (read-buffer "Attach buffer: "))
 	  (type (mml-minibuffer-read-type buffer "text/plain"))
-	  (description (mml-minibuffer-read-description)))
-     (list buffer type description)))
+	  (description (mml-minibuffer-read-description))
+	  (disposition (mml-minibuffer-read-disposition type nil)))
+     (list buffer type description disposition)))
   (save-excursion
     (unless (message-in-body-p) (goto-char (point-max)))
     (mml-insert-empty-tag 'part 'type type 'buffer buffer
-			  'disposition "attachment"
+			  'disposition disposition
 			  'description description)))
 
 (defun mml-attach-external (file &optional type description)