From f5fcf556b25acd4597bfb191e6924f3274e5f20a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 12 Mar 2008 18:49:53 +0000 Subject: [PATCH] (gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer since the buffer is unibyte anyway. --- lisp/gnus/ChangeLog | 3 +++ lisp/gnus/gnus-soup.el | 7 +++---- 2 files changed, 6 insertions(+), 4 deletions(-) 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 -- 2.39.5