From: Lars Magne Ingebrigtsen Date: Tue, 4 Mar 1997 20:16:25 +0000 (+0000) Subject: *** empty log message *** X-Git-Url: https://cgit.sxemacs.org/?p=gnus;a=commitdiff_plain;h=1c329860c2325decc384e8fb32f6f770c1ecd7fd *** empty log message *** --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb6b18c85..caad9cc54 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,15 @@ +Tue Jul 16 20:05:49 1996 Lars Magne Ingebrigtsen + + * message.el (message-send-mail): Bugged out under Emacs. + (message-send-news): Ditto. + + * nntp.el (nntp-retrieve-headers-with-xover): Would hang + sometimes. + +Sun Jul 14 20:01:26 1996 Lars Magne Ingebrigtsen + + * gnus.el: Gnus v5.2.35 is released. + Sun Jul 14 18:21:14 1996 Lars Magne Ingebrigtsen * gnus-uu.el (gnus-uu-mark-over): Would bug out. diff --git a/lisp/gnus.el b/lisp/gnus.el index 787e19cce..35a0c62e6 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -1771,7 +1771,7 @@ variable (string, integer, character, etc).") "gnus-bug@ifi.uio.no (The Gnus Bugfixing Girls + Boys)" "The mail address of the Gnus maintainers.") -(defconst gnus-version-number "5.2.35" +(defconst gnus-version-number "5.2.36" "Version number for this version of Gnus.") (defconst gnus-version (format "Gnus v%s" gnus-version-number) diff --git a/lisp/message.el b/lisp/message.el index e72ec4938..5f040f98e 100644 --- a/lisp/message.el +++ b/lisp/message.el @@ -1320,7 +1320,10 @@ the user from the mailer." (set-buffer tembuf) (erase-buffer) ;; Avoid copying text props. - (insert (format "%s" (buffer-string nil nil mailbuf))) + (insert (format + "%s" (save-excursion + (set-buffer mailbuf) + (buffer-string)))) ;; Remove some headers. (save-restriction (message-narrow-to-headers) @@ -1437,7 +1440,10 @@ the user from the mailer." (buffer-disable-undo (current-buffer)) (erase-buffer) ;; Avoid copying text props. - (insert (format "%s" (buffer-string nil nil messbuf))) + (insert (format + "%s" (save-excursion + (set-buffer messbuf) + (buffer-string)))) ;; Remove some headers. (save-restriction (message-narrow-to-headers) diff --git a/lisp/nntp.el b/lisp/nntp.el index 07f49fe60..ca2fb4049 100644 --- a/lisp/nntp.el +++ b/lisp/nntp.el @@ -981,7 +981,7 @@ It will prompt for a password." ;; order to avoid deadlocks. (when (or (null articles) ;All requests have been sent. (zerop (% count nntp-maximum-request))) - (accept-process-output nntp-server-process) + (accept-process-output nntp-server-process 1) ;; On some Emacs versions the preceding function has ;; a tendency to change the buffer. Perhaps. It's ;; quite difficult to reproduce, because it only