Mercurial > emacs
changeset 104895:6fd9d35186e0
* 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.
| author | Katsumi Yamaoka <yamaoka@jpl.org> |
|---|---|
| date | Thu, 10 Sep 2009 00:12:07 +0000 |
| parents | 7f459491fb93 |
| children | add40a32098b |
| files | lisp/gnus/ChangeLog lisp/gnus/mml.el lisp/gnus/nnrss.el |
| diffstat | 3 files changed, 21 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/gnus/ChangeLog Wed Sep 09 15:05:47 2009 +0000 +++ b/lisp/gnus/ChangeLog Thu Sep 10 00:12:07 2009 +0000 @@ -1,3 +1,13 @@ +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.
--- a/lisp/gnus/mml.el Wed Sep 09 15:05:47 2009 +0000 +++ b/lisp/gnus/mml.el Thu Sep 10 00:12:07 2009 +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"
--- a/lisp/gnus/nnrss.el Wed Sep 09 15:05:47 2009 +0000 +++ b/lisp/gnus/nnrss.el Thu Sep 10 00:12:07 2009 +0000 @@ -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)