From: Stefan Monnier Date: Wed, 12 Mar 2008 18:49:53 +0000 (+0000) Subject: (gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer X-Git-Tag: emacs-pretest-23.0.90~7255 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f5fcf556b25acd4597bfb191e6924f3274e5f20a;p=emacs.git (gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer since the buffer is unibyte anyway. --- diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index f1122be967b..1dbde2ece02 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,5 +1,8 @@ 2008-03-12 Stefan Monnier + * gnus-soup.el (gnus-soup-send-packet): Don't use + mm-with-unibyte-current-buffer since the buffer is unibyte anyway. + * nnmh.el: Use with-current-buffer. (nnmh-request-list-1): Use mm-string-to-multibyte rather than mm-string-as-multibyte on the output of mm-encode-coding-string. diff --git a/lisp/gnus/gnus-soup.el b/lisp/gnus/gnus-soup.el index f34e001e231..7133c452217 100644 --- a/lisp/gnus/gnus-soup.el +++ b/lisp/gnus/gnus-soup.el @@ -594,9 +594,8 @@ Return whether the unpacking was successful." (mail-fetch-field "to")) (sit-for 1) (let ((mail-header-separator "")) - (mm-with-unibyte-current-buffer - (funcall (or message-send-mail-real-function - message-send-mail-function))))) + (funcall (or message-send-mail-real-function + message-send-mail-function)))) (t (error "Unknown reply kind"))) (set-buffer msg-buf) @@ -610,5 +609,5 @@ Return whether the unpacking was successful." (provide 'gnus-soup) -;;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c +;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c ;;; gnus-soup.el ends here