From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/68969 Path: news.gmane.org!not-for-mail From: Katsumi Yamaoka Newsgroups: gmane.emacs.gnus.general Subject: Re: attaching many files Date: Tue, 08 Sep 2009 15:46:16 +0900 Organization: Emacsen advocacy group Message-ID: References: <87fxbmmfjh.fsf@marauder.physik.uni-ulm.de> <87zl9j97t4.fsf@marauder.physik.uni-ulm.de> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1252392458 1601 80.91.229.12 (8 Sep 2009 06:47:38 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 8 Sep 2009 06:47:38 +0000 (UTC) To: ding@gnus.org Original-X-From: ding-owner+M17386@lists.math.uh.edu Tue Sep 08 08:47:31 2009 Return-path: Envelope-to: ding-account@gmane.org Original-Received: from util0.math.uh.edu ([129.7.128.18]) by lo.gmane.org with esmtp (Exim 4.50) id 1MkuUE-0007MI-V6 for ding-account@gmane.org; Tue, 08 Sep 2009 08:47:31 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.math.uh.edu) by util0.math.uh.edu with smtp (Exim 4.63) (envelope-from ) id 1MkuTh-0002QL-Jz; Tue, 08 Sep 2009 01:46:57 -0500 Original-Received: from mx2.math.uh.edu ([129.7.128.33]) by util0.math.uh.edu with esmtps (TLSv1:AES256-SHA:256) (Exim 4.63) (envelope-from ) id 1MkuTf-0002Q5-Ax for ding@lists.math.uh.edu; Tue, 08 Sep 2009 01:46:55 -0500 Original-Received: from quimby.gnus.org ([80.91.231.51]) by mx2.math.uh.edu with esmtp (Exim 4.69) (envelope-from ) id 1MkuTe-000449-1s for ding@lists.math.uh.edu; Tue, 08 Sep 2009 01:46:55 -0500 Original-Received: from orlando.hostforweb.net ([216.246.45.90]) by quimby.gnus.org with esmtp (Exim 3.36 #1 (Debian)) id 1MkuUF-0003jT-00 for ; Tue, 08 Sep 2009 08:47:31 +0200 Original-Received: from localhost ([127.0.0.1]:33181) by orlando.hostforweb.net with esmtpa (Exim 4.69) (envelope-from ) id 1MkuT6-0004nZ-OF for ding@gnus.org; Tue, 08 Sep 2009 01:46:21 -0500 X-Hashcash: 1:20:090908:ding@gnus.org::g5m5327j6HOnXZod:00001Q0q X-Face: #kKnN,xUnmKia.'[pp`;Omh}odZK)?7wQSl"4o04=EixTF+V[""w~iNbM9ZL+.b*_CxUmFk B#Fu[*?MZZH@IkN:!"\w%I_zt>[$nm7nQosZ<3eu;B:$Q_:p!',P.c0-_Cy[dz4oIpw0ESA^D*1Lw= L&i*6&( User-Agent: Gnus/5.110011 (No Gnus v0.11) Emacs/23.1.50 (gnu/linux) Cancel-Lock: sha1:rw2BX5JCSHkZFF4i9EflHW1onPY= X-AntiAbuse: This header was added to track abuse, please include it with any abuse report X-AntiAbuse: Primary Hostname - orlando.hostforweb.net X-AntiAbuse: Original Domain - gnus.org X-AntiAbuse: Originator/Caller UID/GID - [47 12] / [47 12] X-AntiAbuse: Sender Address Domain - jpl.org X-Source: X-Source-Args: X-Source-Dir: X-Spam-Score: -2.6 (--) List-ID: Precedence: bulk Xref: news.gmane.org gmane.emacs.gnus.general:68969 Archived-At: --=-=-= >>>>> 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: --=-=-= Content-Type: text/x-patch Content-Disposition: inline --- 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" --=-=-= Content-Disposition: inline (I've added another change to `mml-insert-part' so as to make point end up at the end of a MIME tag.) --=-=-=--