Changes committed gnus/lisp (ChangeLog mml.el nnrss.el)

Modified: ChangeLog mml.el nnrss.el

* nnrss.el (nnrss-request-article): Remove binding of
default-enable-multibyte-characters that has gotten needless by
the 2007-07-13 change in rfc2047-encode-message-header.

* mml.el (mml-insert-multipart): Error on the message header.
(mml-insert-part): Error on the message header; position point at
the end of a MIME tag.


Index: ChangeLog
diff -u gnus/lisp/ChangeLog:7.2013 gnus/lisp/ChangeLog:7.2014
--- ChangeLog:7.2013	Wed Sep  9 12:42:27 2009
+++ ChangeLog	Thu Sep 10 02:12:47 2009
@@ -1,3 +1,13 @@
+2009-09-10  Katsumi Yamaoka  <[email protected]>
+
+	* nnrss.el (nnrss-request-article): Remove binding of
+	default-enable-multibyte-characters that has gotten needless by
+	the 2007-07-13 change in rfc2047-encode-message-header.
+
+	* mml.el (mml-insert-multipart): Error on the message header.
+	(mml-insert-part): Error on the message header; position point at
+	the end of a MIME tag.
+
 2009-09-09  Katsumi Yamaoka  <[email protected]>
 
 	* time-date.el (autoload): Expand define-obsolete-function-alias into
Index: mml.el
diff -u gnus/lisp/mml.el:7.78 gnus/lisp/mml.el:7.79
--- mml.el:7.78	Mon Sep  7 10:37:39 2009
+++ mml.el	Thu Sep 10 02:12:47 2009
@@ -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"
Index: nnrss.el
diff -u gnus/lisp/nnrss.el:7.63 gnus/lisp/nnrss.el:7.64
--- nnrss.el:7.63	Wed Sep  9 11:31:35 2009
+++ nnrss.el	Thu Sep 10 02:12:47 2009
@@ -226,8 +226,6 @@
 	      (link (nth 2 e))
 	      (enclosure (nth 7 e))
 	      (comments (nth 8 e))
-	      ;; Enable encoding of Newsgroups header in XEmacs.
-	      (default-enable-multibyte-characters t)
 	      (rfc2047-header-encoding-alist
 	       (if (mm-coding-system-p 'utf-8)
 		   (cons '("Newsgroups" . utf-8)