From 2a4955bc97885d3a902ea0bfc85cbe057c4fbd3e Mon Sep 17 00:00:00 2001 From: ShengHuo ZHU Date: Wed, 9 Jan 2002 02:35:54 +0000 Subject: [PATCH] * mm-encode.el (mm-content-transfer-encoding-defaults): Add application/x-emacs-lisp. * gnus-msg.el (gnus-bug): Use application/emacs-lisp. --- lisp/ChangeLog | 5 +++++ lisp/gnus-msg.el | 2 +- lisp/mm-encode.el | 1 + 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 79d44b22d..9afffd33a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,10 @@ 2002-01-08 ShengHuo ZHU + * 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 b1a79d3e2..691396ab1 100644 --- 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 04a067fb6..014a74ae1 100644 --- 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. -- 2.25.1