2003-01-12 Gregorio Gervasio, Jr. <gtgj@pacbell.net>
authorLars Magne Ingebrigtsen <larsi@gnus.org>
Sat, 11 Jan 2003 23:35:57 +0000 (23:35 +0000)
committerLars Magne Ingebrigtsen <larsi@gnus.org>
Sat, 11 Jan 2003 23:35:57 +0000 (23:35 +0000)
* gnus-sum.el (gnus-summary-exit): Reverse change to make group
exit work with two frames.

2003-01-11  Fran├žois-David Collin  <Francois-David.Collin@wanadoo.fr>

* message.el (message-forward-make-body): Use mule4.

lisp/ChangeLog
lisp/gnus-sum.el
lisp/message.el

index cdeb76e..1397ec0 100644 (file)
@@ -1,3 +1,12 @@
+2003-01-12  Gregorio Gervasio, Jr.  <gtgj@pacbell.net>
+
+       * gnus-sum.el (gnus-summary-exit): Reverse change to make group
+       exit work with two frames.
+
+2003-01-11  Fran\e,Ag\e(Bois-David Collin  <Francois-David.Collin@wanadoo.fr>
+
+       * message.el (message-forward-make-body): Use mule4.
+
 2003-01-11  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * message.el (message-mode-map): Move wide-reply command.
index 0c37ba2..442fd00 100644 (file)
@@ -6412,7 +6412,10 @@ If FORCE (the prefix), also save the .newsrc file(s)."
        (set-buffer gnus-group-buffer)
        (gnus-summary-clear-local-variables)
        (let ((gnus-summary-local-variables gnus-newsgroup-variables))
-         (gnus-summary-clear-local-variables)))
+         (gnus-summary-clear-local-variables))
+       ;; Return to group mode buffer.
+       (when (eq mode 'gnus-summary-mode)
+         (gnus-kill-buffer buf)))
       (setq gnus-current-select-method gnus-select-method)
       (pop-to-buffer gnus-group-buffer)
       (if (not quit-config)
@@ -6420,9 +6423,6 @@ If FORCE (the prefix), also save the .newsrc file(s)."
            (goto-char group-point)
            (gnus-configure-windows 'group 'force))
        (gnus-handle-ephemeral-exit quit-config))
-      ;; Return to group mode buffer.
-      (when (eq mode 'gnus-summary-mode)
-       (gnus-kill-buffer buf))
       ;; Clear the current group name.
       (unless quit-config
        (setq gnus-newsgroup-name nil)))))
index 9ea1ef6..cb97d81 100644 (file)
@@ -5736,7 +5736,7 @@ Optional DIGEST will use digest to forward."
             (mm-disable-multibyte-mule4)
             (insert
              (with-current-buffer forward-buffer
-               (mm-string-as-unibyte (buffer-string))))
+               (mm-with-unibyte-current-buffer-mule4 (buffer-string))))
             (mm-enable-multibyte-mule4)
             (mime-to-mml)
             (goto-char (point-min))