Suspicious code

[Stefan Monnier]

Can anyone fix the code below or add comments explaining why
it's correct?

Thank you,


        Stefan


--- lisp/gnus/gnus-start.el     9 Jan 2009 03:01:50 -0000       1.65
+++ lisp/gnus/gnus-start.el     28 Oct 2009 18:47:33 -0000
@@ -3058,6 +3041,7 @@
       nil)
      (t
       (save-excursion
+        ;; Shouldn't we set-buffer before saving the restriction?  --Stef
        (save-restriction
          (set-buffer nntp-server-buffer)
          (goto-char (point-min))

--- lisp/gnus/gnus-uu.el        5 Jan 2009 03:22:06 -0000       1.36
+++ lisp/gnus/gnus-uu.el        28 Oct 2009 18:47:36 -0000
@@ -873,10 +869,11 @@
        (set-buffer "*gnus-uu-body*")
        (goto-char (setq beg (point-max)))
        (save-excursion
+          ;; Shouldn't we set-buffer before saving the restriction?  --Stef
          (save-restriction
            (set-buffer buffer)
            (let (buffer-read-only)
@@ -1983,6 +1966,7 @@
                  (gnus-uu-choose-action file-name gnus-uu-ext-to-mime-list)
                  file-name))
   (insert (format "Content-Transfer-Encoding: %s\n\n" encoding))
+  ;; Shouldn't we set-buffer before saving the restriction?  --Stef
   (save-restriction
     (set-buffer gnus-message-buffer)
     (goto-char (point-min))