Re: attaching many files

[Katsumi Yamaoka <yamaoka@jpl.org>]

[-- Attachment #1: Type: text/plain, Size: 329 bytes --]

>>>>> Reiner Steib wrote:
>> I didn't try your code yet, but I still think that point should not
>> move when inside the headers.

`C-c C-m m' (mml-insert-multipart) and `C-c C-m p' (mml-insert-part)
insert a MIME tag even in the message header.  Do you have an idea
to fix it?  I vote for stopping it with an error as follows:


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: Type: text/x-patch, Size: 1278 bytes --]

--- mml.el~	2009-09-07 08:13:38 +0000
+++ mml.el	2009-09-08 06:44:08 +0000
@@ -1387,20 +1387,23 @@
 		 (file-name-nondirectory file))))))
 
 (defun mml-insert-multipart (&optional type)
-  (interactive (list (completing-read "Multipart type (default mixed): "
-				      '(("mixed") ("alternative") ("digest") ("parallel")
-					("signed") ("encrypted"))
-				      nil nil "mixed")))
+  (interactive (if (message-in-body-p)
+		   (list (completing-read "Multipart type (default mixed): "
+					  '(("mixed") ("alternative")
+					    ("digest") ("parallel")
+					    ("signed") ("encrypted"))
+					  nil nil "mixed"))
+		 (error "Use this command in the message body")))
   (or type
       (setq type "mixed"))
   (mml-insert-empty-tag "multipart" 'type type)
   (forward-line -1))
 
 (defun mml-insert-part (&optional type)
-  (interactive
-   (list (mml-minibuffer-read-type "")))
-  (mml-insert-tag 'part 'type type 'disposition "inline")
-  (forward-line -1))
+  (interactive (if (message-in-body-p)
+		   (list (mml-minibuffer-read-type ""))
+		 (error "Use this command in the message body")))
+  (mml-insert-tag 'part 'type type 'disposition "inline"))
 
 (declare-function message-subscribed-p "message" ())
 (declare-function message-make-mail-followup-to "message"

[-- Attachment #3: Type: text/plain, Size: 104 bytes --]


(I've added another change to `mml-insert-part' so as to make
 point end up at the end of a MIME tag.)