Clean up gnus-uu saving code slightly

* gnus-uu.el (gnus-uu-save-article): Make the
save-restriction/widen calls make more sense.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e463eb1..d582dca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-04-15  Lars Magne Ingebrigtsen  <larsi@gnus.org>
+
+       * gnus-uu.el (gnus-uu-save-article):
+       Make the save-restriction/widen calls make more sense.
+
 2015-04-14  Katsumi Yamaoka  <yamaoka@jpl.org>
 
        * gnus-art.el (gnus-use-idna):

diff --git a/lisp/gnus-uu.el b/lisp/gnus-uu.el
index f5d4495..94f01c6 100644 (file)
--- a/lisp/gnus-uu.el
+++ b/lisp/gnus-uu.el
@@ -873,14 +873,8 @@ When called interactively, prompt for REGEXP."
          (setq state (list 'middle))))
       (with-current-buffer "*gnus-uu-body*"
        (goto-char (setq beg (point-max)))
-       (save-excursion
+       (with-current-buffer buffer
          (save-restriction
-            ;; FIXME: We save excursion and restriction in "*gnus-uu-body*",
-            ;; only to immediately move to another buffer?  And we narrow in
-            ;; that buffer without save-restriction?  And we finish the
-            ;; save-restriction with a call to `widen'?  How can that
-            ;; make sense?
-           (set-buffer buffer)
            (let ((inhibit-read-only t))
              (set-text-properties (point-min) (point-max) nil)
              ;; These two are necessary for XEmacs 19.12 fascism.
@@ -915,8 +909,7 @@ When called interactively, prompt for REGEXP."
                                 (match-beginning 0)
                                 (or (and (re-search-forward "^[^ \t]" nil t)
                                          (1- (point)))
-                                    (progn (forward-line 1) (point)))))))))
-           (widen)))
+                                    (progn (forward-line 1) (point)))))))))))
        (if (and message-forward-as-mime gnus-uu-digest-buffer)
          (if message-forward-show-mml
              (progn