Commit 83ccc32c authored by Katsumi Yamaoka's avatar Katsumi Yamaoka
Browse files

* 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.
parent c1905ca3
2009-09-10 Katsumi Yamaoka <yamaoka@jpl.org>
* 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 <yamaoka@jpl.org>
* gnus-util.el (with-no-warnings): Define it for old Emacsen.
......
......@@ -1387,20 +1387,23 @@ TYPE is the MIME type to use."
(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"
......
......@@ -226,8 +226,6 @@ used to render text. If it is nil, text will simply be folded.")
(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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment