Mercurial > emacs
comparison lisp/gnus/gnus-soup.el @ 92772:3637573105bd
(gnus-soup-send-packet): Don't use mm-with-unibyte-current-buffer
since the buffer is unibyte anyway.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Wed, 12 Mar 2008 18:49:53 +0000 |
| parents | 107ccd98fa12 |
| children | f42ef85caf91 |
comparison
equal
deleted
inserted
replaced
| 92771:a3d61f1532f1 | 92772:3637573105bd |
|---|---|
| 592 ((string= (gnus-soup-reply-kind (car replies)) "mail") | 592 ((string= (gnus-soup-reply-kind (car replies)) "mail") |
| 593 (gnus-message 5 "Sending mail to %s..." | 593 (gnus-message 5 "Sending mail to %s..." |
| 594 (mail-fetch-field "to")) | 594 (mail-fetch-field "to")) |
| 595 (sit-for 1) | 595 (sit-for 1) |
| 596 (let ((mail-header-separator "")) | 596 (let ((mail-header-separator "")) |
| 597 (mm-with-unibyte-current-buffer | 597 (funcall (or message-send-mail-real-function |
| 598 (funcall (or message-send-mail-real-function | 598 message-send-mail-function)))) |
| 599 message-send-mail-function))))) | |
| 600 (t | 599 (t |
| 601 (error "Unknown reply kind"))) | 600 (error "Unknown reply kind"))) |
| 602 (set-buffer msg-buf) | 601 (set-buffer msg-buf) |
| 603 (goto-char end)) | 602 (goto-char end)) |
| 604 (delete-file (buffer-file-name)) | 603 (delete-file (buffer-file-name)) |
| 608 (setq replies (cdr replies))) | 607 (setq replies (cdr replies))) |
| 609 t))) | 608 t))) |
| 610 | 609 |
| 611 (provide 'gnus-soup) | 610 (provide 'gnus-soup) |
| 612 | 611 |
| 613 ;;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c | 612 ;; arch-tag: eddfa69d-13e8-4aea-84ef-62a526ef185c |
| 614 ;;; gnus-soup.el ends here | 613 ;;; gnus-soup.el ends here |