* mm-encode.el (mm-content-transfer-encoding-defaults): Add

	application/x-emacs-lisp.

	* gnus-msg.el (gnus-bug): Use application/emacs-lisp.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79d44b2..9afffd3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,10 @@
 2002-01-08  ShengHuo ZHU  <zsh@cs.rochester.edu>
 
+       * mm-encode.el (mm-content-transfer-encoding-defaults): Add
+       application/x-emacs-lisp.
+
+       * gnus-msg.el (gnus-bug): Use application/emacs-lisp.
+
        * nntp.el (nntp-request-article): Add group parameter.
        (nntp-request-head): Ditto.
        (nntp-find-group-and-number): Add parameter group. Figure out

diff --git a/lisp/gnus-msg.el b/lisp/gnus-msg.el
index b1a79d3..691396a 100644 (file)
--- a/lisp/gnus-msg.el
+++ b/lisp/gnus-msg.el
@@ -1247,7 +1247,7 @@ If YANK is non-nil, include the original article."
        (erase-buffer)
        (gnus-debug)
        (setq text (buffer-string)))
-      (insert "<#part type=application/x-emacs-lisp disposition=inline description=\"User settings\">\n" text "\n<#/part>"))
+      (insert "<#part type=application/emacs-lisp disposition=inline description=\"User settings\">\n" text "\n<#/part>"))
     (goto-char (point-min))
     (search-forward "Subject: " nil t)
     (message "")))

diff --git a/lisp/mm-encode.el b/lisp/mm-encode.el
index 04a067f..014a74a 100644 (file)
--- a/lisp/mm-encode.el
+++ b/lisp/mm-encode.el
@@ -35,6 +35,7 @@
     ("text/.*" qp-or-base64)
     ("message/rfc822" 8bit)
     ("application/emacs-lisp" 8bit)
+    ("application/x-emacs-lisp" 8bit)
     ("application/x-patch" 8bit)
     (".*" base64))
   "Alist of regexps that match MIME types and their encodings.