[Emacs-diffs] emacs/lisp/gnus ChangeLog message.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        08/11/21 22:26:55

Modified files:
        lisp/gnus      : ChangeLog message.el 

Log message:
        (message-send-mail): Just set the buffer to unibyte
        rather than use mm-with-unibyte-current-buffer which does a lot more.
        (message-send-mail-partially): Don't bother with
        mm-with-unibyte-current-buffer since it's already been made unibyte by
        message-send-mail.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/ChangeLog?cvsroot=emacs&r1=1.766&r2=1.767
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/gnus/message.el?cvsroot=emacs&r1=1.162&r2=1.163

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/ChangeLog,v
retrieving revision 1.766
retrieving revision 1.767
diff -u -b -r1.766 -r1.767
--- ChangeLog   12 Nov 2008 08:12:19 -0000      1.766
+++ ChangeLog   21 Nov 2008 22:26:54 -0000      1.767
@@ -1,3 +1,11 @@
+2008-11-21  Stefan Monnier  <address@hidden>
+
+       * message.el (message-send-mail): Just set the buffer to unibyte
+       rather than use mm-with-unibyte-current-buffer which does a lot more.
+       (message-send-mail-partially): Don't bother with
+       mm-with-unibyte-current-buffer since it's already been made unibyte by
+       message-send-mail.
+
 2008-11-11  Teodor Zlatanov  <address@hidden>
 
        * nnrss.el (nnrss-make-hash-index): Debug message of full item.

Index: message.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/gnus/message.el,v
retrieving revision 1.162
retrieving revision 1.163
diff -u -b -r1.162 -r1.163
--- message.el  30 Sep 2008 00:48:01 -0000      1.162
+++ message.el  21 Nov 2008 22:26:55 -0000      1.163
@@ -4325,9 +4325,8 @@
              (end-of-line)
              (insert (format " (%d/%d)" n total))
              (widen)
-             (mm-with-unibyte-current-buffer
                (funcall (or message-send-mail-real-function
-                            message-send-mail-function))))
+                           message-send-mail-function)))
            (setq n (+ n 1))
            (setq p (pop plist))
            (erase-buffer)))
@@ -4429,6 +4428,11 @@
                                  (message-fetch-field
                                   "content-transfer-encoding")))))))
            (message-insert-courtesy-copy))
+          ;; Let's make sure we encoded all the body.
+          (assert (save-excursion
+                    (goto-char (point-min))
+                    (not (re-search-forward "[^\000-\377]" nil t))))
+          (mm-disable-multibyte)
          (if (or (not message-send-mail-partially-limit)
                  (< (buffer-size) message-send-mail-partially-limit)
                  (not (message-y-or-n-p
@@ -4453,7 +4457,7 @@
 If you always want Gnus to send messages in one piece, set
 `message-send-mail-partially-limit' to nil.
 ")))
-             (mm-with-unibyte-current-buffer
+             (progn
                (message "Sending via mail...")
                (funcall (or message-send-mail-real-function
                             message-send-mail-function)))