procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(message-send-mail): Just set the buffer to unibyte

Browse source 
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.
This commit is contained in:
Stefan Monnier 2008-11-21 22:26:54 +00:00
parent 723d286fb8
commit 8a98686533
2 changed files with 16 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/gnus/ChangeLog
View file

@ -1,3 +1,11 @@
2008-11-21 Stefan Monnier <monnier@iro.umontreal.ca>
* 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 <tzz@lifelogs.com>
* nnrss.el (nnrss-make-hash-index): Debug message of full item.

12
lisp/gnus/message.el
View file

@ -4325,9 +4325,8 @@ This function could be useful in `message-setup-hook'."
(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))))
(funcall (or message-send-mail-real-function
message-send-mail-function)))
(setq n (+ n 1))
(setq p (pop plist))
(erase-buffer)))
@ -4429,6 +4428,11 @@ This function could be useful in `message-setup-hook'."
(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 @@ The size limit is controlled by `message-send-mail-partially-limit'.
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)))